(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 34b51016d8d3eb80cb52d3e4e77812f07b9a32ed..f3fd704e9c47c5100316049b1b318293e0966f7e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-03  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * gnus-msg.el (gnus-inews-yank-articles): Fix bug: After
+       message-yank-original, make sure (< mark TEXT point).
+
 2007-03-31  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * nnmail.el (nnmail-spool-file): Mark as obsolete.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index aaf30700e3d371671e813ad11b474fdf2ac59a4f..2e9975f4876ae127f63360ea720fa3ee93cb19b5 100644 (file)
--- 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")))