(message-exchange-point-and-mark): Use message-mark-active-p.

 Suggested by Jesper Harder.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03f97e1..9f70552 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-03-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-exchange-point-and-mark): Use
+       message-mark-active-p.  Suggested by Jesper Harder
+       <harder@ifa.au.dk>.
+
 2004-03-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * message.el (message-exchange-point-and-mark): Don't activate

diff --git a/lisp/message.el b/lisp/message.el
index ccb1f06..b0a1f1e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6488,7 +6488,7 @@ 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."
   (unless (prog1
-             (symbol-value 'mark-active)
+             (message-mark-active-p)
            (exchange-point-and-mark))
     (setq mark-active nil)))