# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1262459924 18000
# Node ID 428005d3198e46e0f584ce6e833d94e8215a4749
# Parent  396a004a924b596ae08d104a4fbef41540d9df3d
Fix last change to message-exchange-point-and-mark.

* message.el (message-exchange-point-and-mark): Rework last change to
avoid using optional arg of exchange-point-and-mark, for backward
compatibility.

diff -r 396a004a924b -r 428005d3198e lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Jan 02 14:14:13 2010 -0500
+++ b/lisp/gnus/ChangeLog	Sat Jan 02 14:18:44 2010 -0500
@@ -1,3 +1,9 @@
+2010-01-02  Chong Yidong  <cyd@stupidchicken.com>
+
+	* message.el (message-exchange-point-and-mark): Rework last change to
+	avoid using optional arg of exchange-point-and-mark, for backward
+	compatibility.
+
 2010-01-01  Chong Yidong  <cyd@stupidchicken.com>
 
 	* message.el (message-exchange-point-and-mark): Call
diff -r 396a004a924b -r 428005d3198e lisp/gnus/message.el
--- a/lisp/gnus/message.el	Sat Jan 02 14:14:13 2010 -0500
+++ b/lisp/gnus/message.el	Sat Jan 02 14:18:44 2010 -0500
@@ -7505,7 +7505,8 @@
 
 (defun message-exchange-point-and-mark ()
   "Exchange point and mark, but don't activate region if it was inactive."
-  (exchange-point-and-mark transient-mark-mode))
+  (goto-char (prog1 (mark t)
+	       (set-marker (mark-marker) (point)))))
 
 (defalias 'message-make-overlay 'make-overlay)
 (defalias 'message-delete-overlay 'delete-overlay)