* lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d95f90002171d7daa23afd009fa3d90b0cc8daf5..5370471bcc3869709085e58f6ca7cb140b71441a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-25  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.
+
 2011-06-25  Giuseppe Scrivano  <gscrivano@gnu.org>
 
        * net/browse-url.el (browse-url-firefox-program): Add icecat to

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 04ff457dcfb57f98507aad71487c01065c7fe075..640f1dfff296046abe2bf7f7878dc63e96980370 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2674,7 +2674,7 @@ The current mail message becomes the message displayed."
        (let ((modiff (buffer-modified-p)))
          (rmail-set-attribute rmail-unseen-attr-index nil)
          (unless modiff
-           (set-buffer-modified-p nil)))
+           (restore-buffer-modified-p modiff)))
        ;; bracket the message in the mail
        ;; buffer and determine the coding system the transfer encoding.
        (rmail-swap-buffers-maybe)