From 191897a18436c00cc5f96adfc974642e47203151 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 1 Aug 2005 22:32:40 +0000 Subject: [PATCH] Synch to No Gnus 200508012131. --- lisp/ChangeLog | 3 ++- lisp/message.el | 6 ++++-- 2 files changed, 6 insertions(+), 3 deletions(-) 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 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)) -- 1.7.10.4