Mercurial > emacs
changeset 101632:f2c12c2dac63
(rmail-file-name): Remove duplicate definition.
(rmail-set-header): Ensure header changes get saved.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 29 Jan 2009 03:41:57 +0000 |
| parents | 13338e3ca8a7 |
| children | c92166611a26 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Thu Jan 29 03:41:38 2009 +0000 +++ b/lisp/mail/rmail.el Thu Jan 29 03:41:57 2009 +0000 @@ -100,20 +100,7 @@ "The current header display style choice, one of 'normal (selected headers) or 'full (all headers).") -; These variables now declared in paths.el. -;(defvar rmail-spool-directory "/usr/spool/mail/" -; "This is the name of the directory used by the system mailer for\n\ -;delivering new mail. Its name should end with a slash.") -;(defvar rmail-file-name -; (expand-file-name "~/RMAIL") -; "") - -;; Temporary support for mbox. -(defcustom rmail-file-name "~/RMAIL" - "Name of user's primary mail file." - :type 'string - :group 'rmail - :version "21.1") +;; rmail-spool-directory and rmail-file-name are defined in paths.el. (defgroup rmail nil "Mail reader for Emacs." @@ -2011,7 +1998,9 @@ (insert " " value)) (goto-char end) (insert name ": " value "\n"))) - (rmail-error-bad-format msgnum))))))))) + (rmail-error-bad-format msgnum))))) + ;; Ensure header changes get saved. + (if end (set-buffer-modified-p t)))))) ;;;; *** Rmail Attributes and Keywords ***