changeset 76928:e9a67d6e120b

(gnus-inews-yank-articles): Fix bug: After message-yank-original, make sure (< mark TEXT point).
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Tue, 03 Apr 2007 23:24:22 +0000
parents 8199e6703268
children bf72a6fc219b
files lisp/gnus/gnus-msg.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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")))