bug#45941: [PATCH] add option to mark buffer as modified after reading new message

[Andrea G. Monaco]

Hello,


this patch from current rmail.el adds an option for marking buffer as
modified when a message is read for the first time. The variable defaults
to nil, so it should not change current behavior.


diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 29460cc20f..d800dce671 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -686,6 +686,10 @@ rmail-show-mime-function
 This function is called when `rmail-enable-mime' is non-nil.
 The package providing MIME support should set this.")
 
+(defvar rmail-read-new-message-trigger-modified nil
+  "If true, reading a message for the first time and thus clearing
+its unseen attribute triggers the modified flag for the RMAIL buffer.")
+
 ;;;###autoload
 (defvar rmail-insert-mime-forwarded-message-function nil
   "Function to insert a message in MIME format so it can be forwarded.
@@ -2747,10 +2751,11 @@ rmail-show-message-1
            (t (setq rmail-current-message msg)))
       (with-current-buffer rmail-buffer
        (setq header-style rmail-header-style)
-       ;; Mark the message as seen, but preserve buffer modified flag.
-       (let ((modiff (buffer-modified-p)))
+        ;; Mark the message as seen, but preserve buffer modified flag,
+       ;; unless rmail-read-new-message-trigger-modified is t
+        (let ((modiff (buffer-modified-p)))
          (rmail-set-attribute rmail-unseen-attr-index nil)
-         (unless modiff
+         (unless rmail-read-new-message-trigger-modified
            (restore-buffer-modified-p modiff)))
        ;; bracket the message in the mail
        ;; buffer and determine the coding system the transfer encoding.



-- 
Andrea G. Monaco
Hacker, mathematician, lgbt+ activist
"Hope will never be silent!", H. Milk