[Emacs-diffs] /srv/bzr/emacs/trunk r104701: * lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.

[Stefan Monnier]

------------------------------------------------------------
revno: 104701
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-25 09:38:32 -0400
message:
  * lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-25 09:31:24 +0000
+++ b/lisp/ChangeLog    2011-06-25 13:38:32 +0000
@@ -1,3 +1,7 @@
+2011-06-25  Stefan Monnier  <address@hidden>
+
+       * mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.
+
 2011-06-25  Giuseppe Scrivano  <address@hidden>
 
        * net/browse-url.el (browse-url-firefox-program): Add icecat to

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2011-06-23 17:08:15 +0000
+++ b/lisp/mail/rmail.el        2011-06-25 13:38:32 +0000
@@ -2674,7 +2674,7 @@
        (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)