From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Tue, 27 Mar 2007 14:13:19 +0000 (+0000)
Subject: (message-yank-original): Fix bug:
X-Git-Tag: emacs-pretest-22.0.97~159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=561fb491477ca38ea90443602a9af7a6faf91fc4;p=emacs.git

(message-yank-original): Fix bug:
Don't switch point and mark unnecessarily.
---

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  <ttn@gnu.org>
+
+	* message.el (message-yank-original): Fix bug:
+	Don't switch point and mark unnecessarily.
+
 2007-03-20  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
 
 	* 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