From: yamaoka <yamaoka>
Date: Sat, 27 Mar 2004 14:46:59 +0000 (+0000)
Subject: Synch to No Gnus 200403271441.
X-Git-Tag: t-gnus-6_17_4-quimby-~992
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2d588232cd16c29356b6e5ccfab447fc99a28049;p=elisp%2Fgnus.git-

Synch to No Gnus 200403271441.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03f97e1..9f70552 100644
--- 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 8c5ee64..cb90c8c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7209,7 +7209,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)))