From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 25 Jun 2011 13:38:32 +0000 (-0400)
Subject: * lisp/mail/rmail.el (rmail-show-message-1): Use restore-buffer-modified-p.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~414^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c206f5b0f712f347c37cca49236365e54ff17f63;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d95f9000217..5370471bcc3 100644
--- 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 04ff457dcfb..640f1dfff29 100644
--- 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)