(gnus-inews-yank-articles): Fix bug: After

message-yank-original, make sure (< mark TEXT point).

(gnus-inews-yank-articles): Fix bug: After
message-yank-original, make sure (< mark TEXT point).
c345112e · Thien-Thi Nguyen · d2b3c7db · c345112e · c345112e
Commit c345112e authored Apr 03, 2007 by Thien-Thi Nguyen
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

lisp/gnus/ChangeLog lisp/gnus/ChangeLog +5 -0

lisp/gnus/gnus-msg.el lisp/gnus/gnus-msg.el +1 -0

No files found.
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
+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.

--- 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")))