From 561fb491477ca38ea90443602a9af7a6faf91fc4 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 27 Mar 2007 14:13:19 +0000 Subject: [PATCH] (message-yank-original): Fix bug: Don't switch point and mark unnecessarily. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/message.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 008906999df..918b4bd3ef3 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2007-03-27 Thien-Thi Nguyen + + * message.el (message-yank-original): Fix bug: + Don't switch point and mark unnecessarily. + 2007-03-20 Andreas Seltenreich * message.el (message-required-news-headers): diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 5bbb565dd7f..305d64a9af3 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3349,7 +3349,8 @@ prefix, and don't delete any headers." (point))) (unless arg (funcall message-cite-function)) - (message-exchange-point-and-mark) + (unless (< (point) (mark-marker)) + (message-exchange-point-and-mark)) (unless (bolp) (insert ?\n)) (unless modified -- 2.39.2