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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index dcbcb81a3710466badd7194d7dd8f632e378c5ce..c127239b1648c04558cc111732f015aea34f8723 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 655aa4c3e6b7e7a0d235dd3670ba656bea393908..18feee83032a1bedc08de6c5eec3e8a528b60bbc 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7505,7 +7505,8 @@ which specify the range to operate on."
 
 (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)