From c345112ee13b28c6745ad33778d859284a6480c0 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 3 Apr 2007 23:25:47 +0000 Subject: [PATCH] (gnus-inews-yank-articles): Fix bug: After message-yank-original, make sure (< mark TEXT point). --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-msg.el | 1 + 2 files changed, 6 insertions(+) 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 + + * gnus-msg.el (gnus-inews-yank-articles): Fix bug: After + message-yank-original, make sure (< mark TEXT point). + 2007-03-31 Reiner Steib * 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"))) -- 2.39.5