[Emacs-diffs] emacs/lisp/mail rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/29 03:41:57

Modified files:
        lisp/mail      : rmail.el 

Log message:
        (rmail-file-name): Remove duplicate definition.
        (rmail-set-header): Ensure header changes get saved.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.477&r2=1.478

Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.477
retrieving revision 1.478
diff -u -b -r1.477 -r1.478
--- rmail.el    29 Jan 2009 03:01:44 -0000      1.477
+++ rmail.el    29 Jan 2009 03:41:57 -0000      1.478
@@ -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 ***