# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1262378542 18000
# Node ID 5240a1bf44bcac4d20a13f6311d53a45de618dab
# Parent  4af83423a0f1c63d81672f8731cbd3b0bcdd9d43
* lisp/gnus/message.el (message-exchange-point-and-mark): Call
exchange-point-and-mark with an argument rather than setting
mark-active by hand (Bug#5175).

diff -r 4af83423a0f1 -r 5240a1bf44bc lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Jan 01 15:03:37 2010 -0500
+++ b/lisp/gnus/ChangeLog	Fri Jan 01 15:42:22 2010 -0500
@@ -1,3 +1,9 @@
+2010-01-01  Chong Yidong  <cyd@stupidchicken.com>
+
+	* message.el (message-exchange-point-and-mark): Call
+	exchange-point-and-mark with an argument rather than setting
+	mark-active by hand (Bug#5175).
+
 2009-12-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nntp.el (nntp-service-to-port): Work for service expressed with
diff -r 4af83423a0f1 -r 5240a1bf44bc lisp/gnus/message.el
--- a/lisp/gnus/message.el	Fri Jan 01 15:03:37 2010 -0500
+++ b/lisp/gnus/message.el	Fri Jan 01 15:42:22 2010 -0500
@@ -7505,10 +7505,7 @@
 
 (defun message-exchange-point-and-mark ()
   "Exchange point and mark, but don't activate region if it was inactive."
-  (unless (prog1
-	      (message-mark-active-p)
-	    (exchange-point-and-mark))
-    (setq mark-active nil)))
+  (exchange-point-and-mark transient-mark-mode))
 
 (defalias 'message-make-overlay 'make-overlay)
 (defalias 'message-delete-overlay 'delete-overlay)