diff options
| author | Richard M. Stallman | 1993-07-06 22:39:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-06 22:39:56 +0000 |
| commit | 6cd37f8f5fea8076eb56af74ce5316a5bddedd7b (patch) | |
| tree | 67715a87ffb738efc371d163c434e47189077f95 | |
| parent | 056a5ef342e59842bb6145808d6bd284f0324888 (diff) | |
| download | emacs-6cd37f8f5fea8076eb56af74ce5316a5bddedd7b.tar.gz emacs-6cd37f8f5fea8076eb56af74ce5316a5bddedd7b.zip | |
(rmail-variables): Compare truename as well as given name
against rmail-file-name.
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a40351c359c..5bffa4ef60d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -545,7 +545,8 @@ Instead, these commands are available: | |||
| 545 | (setq rmail-inbox-list (rmail-parse-file-inboxes)) | 545 | (setq rmail-inbox-list (rmail-parse-file-inboxes)) |
| 546 | ;; Provide default set of inboxes for primary mail file ~/RMAIL. | 546 | ;; Provide default set of inboxes for primary mail file ~/RMAIL. |
| 547 | (and (null rmail-inbox-list) | 547 | (and (null rmail-inbox-list) |
| 548 | (equal buffer-file-name (expand-file-name rmail-file-name)) | 548 | (or (equal buffer-file-name (expand-file-name rmail-file-name)) |
| 549 | (equal buffer-file-truename (file-truename rmail-file-name))) | ||
| 549 | (setq rmail-inbox-list | 550 | (setq rmail-inbox-list |
| 550 | (or rmail-primary-inbox-list | 551 | (or rmail-primary-inbox-list |
| 551 | (list (or (getenv "MAIL") | 552 | (list (or (getenv "MAIL") |