[Emacs-diffs] /srv/bzr/emacs/trunk r104692: Marking message as "seen" should not mark buffer as changed.

[Richard Stallman]

------------------------------------------------------------
revno: 104692
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-23 12:38:40 -0400
message:
  Marking message as "seen" should not mark buffer as changed.
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-23 16:33:05 +0000
+++ b/lisp/ChangeLog    2011-06-23 16:38:40 +0000
@@ -1,6 +1,7 @@
 2011-06-23  Richard Stallman  <address@hidden>
 
        * mail/rmail.el (rmail-retry-ignored-headers): Add message-id.
+       (rmail-show-message-1): Preserve buffer modified flag.
 
 2011-06-23  Michael Albinus  <address@hidden>
 

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2011-06-23 16:33:05 +0000
+++ b/lisp/mail/rmail.el        2011-06-23 16:38:40 +0000
@@ -2669,8 +2669,11 @@
            (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)