From 0954b0aa0e1e12341e203f68d49ee9b530d81781 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 29 Jan 2009 03:41:57 +0000 Subject: [PATCH] (rmail-file-name): Remove duplicate definition. (rmail-set-header): Ensure header changes get saved. --- lisp/mail/rmail.el | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 7f2ef8a2cf4..6a514d91af1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -100,20 +100,7 @@ its character representation and its display representation.") "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 @@ If MSGNUM is nil, use the current message." (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 *** -- 2.39.2