Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

(message-setup-1): Mark buffer as unmodified _after_ running
message-setup-hook and handling message-alternative-emails.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1813 gnus/lisp/ChangeLog:7.1814
--- ChangeLog:7.1813	Mon Mar 24 19:16:27 2008
+++ ChangeLog	Mon Mar 24 19:21:18 2008
@@ -1,6 +1,8 @@
 2008-03-24  Reiner Steib  <[email protected]>
 
 	* message.el (message-check-news-body-syntax): Fix signature check.
+	(message-setup-1): Mark buffer as unmodified _after_ running
+	message-setup-hook and handling message-alternative-emails.
 
         * gnus-group.el (gnus-read-ephemeral-bug-group)
         (gnus-read-ephemeral-debian-bug-group)
Index: message.el
diff -u gnus/lisp/message.el:7.252 gnus/lisp/message.el:7.253
--- message.el:7.252	Mon Mar 24 19:16:27 2008
+++ message.el	Mon Mar 24 19:21:18 2008
@@ -6212,11 +6212,12 @@
   (save-restriction
     (message-narrow-to-headers)
     (run-hooks 'message-header-setup-hook))
-  (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
   (when message-generate-hashcash
     ;; Generate hashcash headers for recipients already known
     (mail-add-payment-async))
+  ;; Gnus posting styles are applied via buffer-local `message-setup-hook'
+  ;; values.
   (run-hooks 'message-setup-hook)
   ;; Do this last to give it precedence over posting styles, etc.
   (when (message-mail-p)
@@ -6225,6 +6226,8 @@
       (if message-alternative-emails
 	  (message-use-alternative-email-as-from))))
   (message-position-point)
+  ;; Allow correct handling of `message-checksum' in `message-yank-original':
+  (set-buffer-modified-p nil)
   (undo-boundary))
 
 (defun message-set-auto-save-file-name ()