* wl-summary.el (wl-summary-target-mark-erase): Delete messages on buffer

for unplugged operation.
(wl-summary-erase): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 95e9482..d0063b8 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,8 @@
 2002-12-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-summary.el (wl-summary-target-mark-erase): Simplify.
+       Delete messages on buffer for unplugged operation.
+       (wl-summary-erase): Ditto.
 
 2002-11-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 61a9100..cd546eb 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3154,6 +3154,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
              (wl-summary-unmark msg-num)
              (elmo-folder-delete-messages wl-summary-buffer-elmo-folder
                                           (list msg-num))
+             (wl-summary-delete-messages-on-buffer (list msg-num))
              (save-excursion (wl-summary-sync nil "update"))))))
     (message "Read-only folder.")))
 
@@ -3166,6 +3167,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
               "Erase all marked messages without moving them to trash? ")
          (elmo-folder-delete-messages wl-summary-buffer-elmo-folder
                                       wl-summary-buffer-target-mark-list)
+         (wl-summary-delete-messages-on-buffer
+          wl-summary-buffer-target-mark-list)
          (setq wl-summary-buffer-target-mark-list nil)
          (save-excursion (wl-summary-sync nil "update"))))
     (message "Read-only folder.")))