* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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."