Mercurial > emacs

diff lisp/gnus/message.el @ 64712:4db92b217e85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-507 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 100) - Update from CVS 2005-08-02 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/mml.el (mml-generate-mime-1): Make the content type default to text/plain if the filename is not specified. 2005-08-01 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring instead of insert-buffer. * lisp/gnus/message.el (message-yank-original): Ditto; set the mark at the end of the yanked message.
author Miles Bader <miles@gnu.org>
date Tue, 02 Aug 2005 07:21:08 +0000
parents 18a818a2ee7c
children bfabe4ff7114
line wrap: on
line diff
--- a/lisp/gnus/message.el	Tue Aug 02 02:00:20 2005 +0000
+++ b/lisp/gnus/message.el	Tue Aug 02 07:21:08 2005 +0000
@@ -3206,7 +3206,9 @@
     (when (and message-reply-buffer
 	       message-cite-function)
       (delete-windows-on message-reply-buffer t)
-      (insert-buffer 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)