diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-07 06:56:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-07 06:56:03 +0000 |
| commit | 849056cc4c75dfc22c89b76246459e1c909fad19 (patch) | |
| tree | 8b11b2a5e44f32621150b3cf9c145ead3430d47b | |
| parent | 628300ba192ba70fbb93524007646698b00bee3f (diff) | |
| download | emacs-849056cc4c75dfc22c89b76246459e1c909fad19.tar.gz | |
(rmail-variables): Default rmail-inbox-list here.
(rmail): Not here.
| -rw-r--r-- | lisp/mail/rmail.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 016a94cdaed..2af0a5a7bd0 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -222,14 +222,6 @@ that file, but does not copy any new mail into the file." (or (eq major-mode 'rmail-mode) (rmail-mode-2)) (rmail-mode-2) - ;; Provide default set of inboxes for primary mail file ~/RMAIL. - (and (null rmail-inbox-list) - (null file-name-arg) - (setq rmail-inbox-list - (or rmail-primary-inbox-list - (list (or (getenv "MAIL") - (concat rmail-spool-directory - (user-original-login-name))))))) ;; Convert all or part to Babyl file if possible. (rmail-convert-file) (goto-char (point-max)) @@ -450,6 +442,14 @@ Instead, these commands are available: (make-local-variable 'rmail-last-file) (make-local-variable 'rmail-inbox-list) (setq rmail-inbox-list (rmail-parse-file-inboxes)) + ;; Provide default set of inboxes for primary mail file ~/RMAIL. + (and (null rmail-inbox-list) + (equal buffer-file-name (expand-file-name rmail-file-name)) + (setq rmail-inbox-list + (or rmail-primary-inbox-list + (list (or (getenv "MAIL") + (concat rmail-spool-directory + (user-original-login-name))))))) (make-local-variable 'rmail-keywords) ;; this gets generated as needed (setq rmail-keywords nil)) |