From: yoichi <yoichi>
Date: Sat, 29 Nov 2003 04:26:37 +0000 (+0000)
Subject: * wl-util.el (wl-region-exists-p): Use region-active-p.
X-Git-Tag: wl-2_11_23~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b41f5e89f2ea53604f274d09c7f2ba83d83a74ef;p=elisp%2Fwanderlust.git

* wl-util.el (wl-region-exists-p): Use region-active-p.
(wl-deactivate-region): New function.
* wl-message.el (wl-message-redisplay): Deactivate region.

* wl-summary.el (wl-summary-reply): Call
`wl-summary-set-message-buffer-or-redisplay' instead of
`wl-summary-redisplay-internal', don't move point.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 55cf905..85468d5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+2003-11-29  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-util.el (wl-region-exists-p): Use region-active-p.
+	(wl-deactivate-region): New function.
+	* wl-message.el (wl-message-redisplay): Deactivate region.
+	
+	* wl-summary.el (wl-summary-reply): Call
+	`wl-summary-set-message-buffer-or-redisplay' instead of
+	`wl-summary-redisplay-internal', don't move point.
+
 2003-11-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-util.el (wl-region-exists-p): Remove duplicate definition.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index ac3802a..89d275e 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -430,6 +430,7 @@ Returns non-nil if bottom of message."
     (wl-message-select-buffer wl-message-buffer)
 
     (set-buffer message-buf)
+    (wl-deactivate-region)
     (make-local-variable 'truncate-partial-width-windows)
     (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-message-truncate-lines)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 249640c..8522af4 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3877,11 +3877,10 @@ Reply to author if invoked with ARG."
 	mes-buf)
     (when number
       (save-excursion
-	(wl-summary-redisplay-internal folder number))
+	(wl-summary-set-message-buffer-or-redisplay))
       (setq mes-buf wl-message-buffer)
       (wl-message-select-buffer wl-message-buffer)
       (set-buffer mes-buf)
-      (goto-char (point-min))
       (condition-case err
 	  (when (setq mes-buf (wl-message-get-original-buffer))
 	    (wl-draft-reply mes-buf arg summary-buf number)
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 572b29b..b4bbdf2 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -906,9 +906,14 @@ is enclosed by at least one regexp grouping construct."
 (defun wl-region-exists-p ()
   "Return non-nil if a region exists on current buffer."
   (static-if (featurep 'xemacs)
-      (and zmacs-regions zmacs-region-active-p)
+      (region-active-p)
     (and transient-mark-mode mark-active)))
 
+(defun wl-deactivate-region ()
+  "Deactivate region on current buffer"
+  (static-if (not (featurep 'xemacs))
+      (setq mark-active nil)))
+
 (defvar wl-line-string)
 (defun wl-line-parse-format (format spec-alist)
   "Make a formatter from FORMAT and SPEC-ALIST."