Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5170c9cb
Commit
5170c9cb
authored
Feb 23, 1994
by
Karl Heuer
Browse files
(rmail-insert-inbox-text): Recognize the spool directory even if symlinks are
present.
parent
109ebdd4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/mail/rmail.el
lisp/mail/rmail.el
+4
-2
No files found.
lisp/mail/rmail.el
View file @
5170c9cb
...
...
@@ -751,7 +751,8 @@ argument causes us to read a file name and use that file as the inbox."
(defun rmail-insert-inbox-text (files renamep)
(let (file tofile delete-files movemail popmail)
(while files
(setq file (expand-file-name (substitute-in-file-name (car files)))
(setq file (file-truename
(expand-file-name (substitute-in-file-name (car files))))
;;>> un*x specific <<
;; The "+" used to be "~", which is an extremely poor choice;
;; it might accidentally be deleted when space is low
...
...
@@ -760,7 +761,8 @@ argument causes us to read a file name and use that file as the inbox."
;; If getting from mail spool directory,
;; use movemail to move rather than just renaming,
;; so as to interlock with the mailer.
(setq movemail (equal (file-name-directory file) rmail-spool-directory)
(setq movemail (string= (file-name-directory file)
(file-truename rmail-spool-directory))
popmail (string-match "^po:" (file-name-nondirectory file)))
(if popmail (setq file (file-name-nondirectory file)
renamep t))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment