Commit f444564c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Marking message as "seen" should not mark buffer as changed.

parent 56c2cc9a
2011-06-23 Richard Stallman <rms@gnu.org>
* mail/rmail.el (rmail-retry-ignored-headers): Add message-id.
(rmail-show-message-1): Preserve buffer modified flag.
2011-06-23 Michael Albinus <michael.albinus@gmx.de>
......
......@@ -2669,8 +2669,11 @@ The current mail message becomes the message displayed."
(t (setq rmail-current-message msg)))
(with-current-buffer rmail-buffer
(setq header-style rmail-header-style)
;; Mark the message as seen
(rmail-set-attribute rmail-unseen-attr-index nil)
;; Mark the message as seen, but preserve buffer modified flag.
(let ((modiff (buffer-modified-p)))
(rmail-set-attribute rmail-unseen-attr-index nil)
(unless modiff
(set-buffer-modified-p nil)))
;; bracket the message in the mail
;; buffer and determine the coding system the transfer encoding.
(rmail-swap-buffers-maybe)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment