Synch to No Gnus 200508012131.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c5d22a..fef87a7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,7 +3,8 @@
        * gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring
        instead of insert-buffer.
 
-       * message.el (message-yank-original): Ditto.
+       * message.el (message-yank-original): Ditto; set the mark at the
+       end of the yanked message.
 
 2005-07-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 203e29c..8f87b32 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3552,8 +3552,10 @@ be added to the \"References\" field."
                 (prog1
                     t
                   (delete-windows-on buffer t)
-                  ; The mark will be set at the end of the article.
-                  (insert-buffer-substring buffer))))
+                  ; Set the mark at the end of the yanked message.
+                  (push-mark (save-excursion
+                               (insert-buffer-substring buffer)
+                               (point))))))
       ;; Add new IDs to the References field.
       (when (and message-yank-add-new-references
                 (interactive-p))