From: yamaoka <yamaoka>
Date: Mon, 1 Aug 2005 22:32:40 +0000 (+0000)
Subject: Synch to No Gnus 200508012131.
X-Git-Tag: t-gnus-6_17_4-quimby-~441
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=191897a18436c00cc5f96adfc974642e47203151;p=elisp%2Fgnus.git-

Synch to No Gnus 200508012131.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c5d22a..fef87a7 100644
--- 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
--- 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))