(message-yank-original): Set the mark at the end of the yanked message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0385bd..799f206 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 8fb9986..200fcd6 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3262,7 +3262,9 @@ prefix, and don't delete any headers."
     (when (and message-reply-buffer
               message-cite-function)
       (delete-windows-on message-reply-buffer t)
-      (insert-buffer-substring message-reply-buffer)
+      (push-mark (save-excursion
+                  (insert-buffer-substring message-reply-buffer)
+                  (point)))
       (unless arg
        (funcall message-cite-function))
       (message-exchange-point-and-mark)