mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2011-06-23 12:38:40 -04:00
parent 56c2cc9a95
commit f444564c73
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -1,6 +1,7 @@
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>

7
lisp/mail/rmail.el
View File

@ -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)