From: Thien-Thi Nguyen Date: Tue, 3 Apr 2007 23:25:47 +0000 (+0000) Subject: (gnus-inews-yank-articles): Fix bug: After X-Git-Tag: emacs-pretest-22.0.97~2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c345112ee13b28c6745ad33778d859284a6480c0;p=emacs.git (gnus-inews-yank-articles): Fix bug: After message-yank-original, make sure (< mark TEXT point). --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 34b51016d8d..f3fd704e9c4 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2007-04-03 Thien-Thi Nguyen + + * gnus-msg.el (gnus-inews-yank-articles): Fix bug: After + message-yank-original, make sure (< mark TEXT point). + 2007-03-31 Reiner Steib * nnmail.el (nnmail-spool-file): Mark as obsolete. diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index aaf30700e3d..2e9975f4876 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -771,6 +771,7 @@ active, the entire article will be yanked." (nnheader-narrow-to-headers) (nnheader-parse-naked-head))))) (message-yank-original) + (exchange-point-and-mark) ; so that (< mark TEXT point) (setq beg (or beg (mark t)))) (when articles (insert "\n")))