# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1175642662 0
# Node ID e9a67d6e120b335b6d6290f53f1da67b94d187d3
# Parent  8199e670326839c2e6c507390d912dcf05920442
(gnus-inews-yank-articles): Fix bug: After
message-yank-original, make sure (< mark TEXT point).

diff -r 8199e6703268 -r e9a67d6e120b lisp/gnus/gnus-msg.el
--- a/lisp/gnus/gnus-msg.el	Tue Apr 03 21:27:29 2007 +0000
+++ b/lisp/gnus/gnus-msg.el	Tue Apr 03 23:24:22 2007 +0000
@@ -771,6 +771,7 @@
 		 (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")))