* wl-summary.el (wl-summary-exec-subr): Delete message buffer only when

message at cursor point is deleted.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f0daa17..bf35862 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-exec-subr): Delete message buffer only when
+       message at cursor point is deleted.
+
 2001-07-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el: Changed file coding system to euc-japan.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 867b143..1a6bae6 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3184,7 +3184,10 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
        (wl-summary-set-message-modified)
        (wl-summary-set-mark-modified)
        (run-hooks 'wl-summary-exec-hook)
-       (wl-summary-toggle-disp-msg 'off)
+       (unless (eq (wl-summary-message-number)
+                   (with-current-buffer wl-message-buffer
+                     wl-message-buffer-cur-number))
+         (wl-summary-toggle-disp-msg 'off))
        (set-buffer-modified-p nil)
        (message (concat "Executing ... done"
                         (if (> refile-failures 0)