summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2007-04-03 23:25:47 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2007-04-03 23:25:47 +0000
commitc345112ee13b28c6745ad33778d859284a6480c0 (patch)
tree22222edec581d41854d587b4eeb19be3fb7f82ea
parentd2b3c7dbb8d7ab39de31e6011b2224183b9110a0 (diff)
downloademacs-c345112ee13b28c6745ad33778d859284a6480c0.tar.gz
(gnus-inews-yank-articles): Fix bug: After
message-yank-original, make sure (< mark TEXT point).
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/gnus-msg.el1
2 files changed, 6 insertions, 0 deletions
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 <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 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")))