* wl-mime.el (wl-summary-burst): Update summary only when target

folder equals current folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c757b6a..f4ccb26 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-mime.el (wl-summary-burst): Update summary only when target
+       folder equals current folder.
+
 2003-02-16  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-thread.el (wl-thread-set-parent): Reconstruct number-list.

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index cc0d236..37afaf2 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -438,12 +438,12 @@ With ARG, ask destination folder."
   (interactive "P")
   (let ((raw-buf (wl-summary-get-original-buffer))
        (view-buf wl-message-buffer)
-       children message-entity content-type target)
+       children message-entity content-type target-name target)
     (save-excursion
       (setq target wl-summary-buffer-elmo-folder)
       (when (or arg (not (elmo-folder-writable-p target)))
-       (let ((fld (wl-summary-read-folder wl-default-folder "to extract to")))
-         (setq target (wl-folder-get-elmo-folder fld))))
+       (setq target-name (wl-summary-read-folder wl-default-folder "to extract to"))
+       (setq target (wl-folder-get-elmo-folder target-name)))
       (wl-summary-set-message-buffer-or-redisplay)
       (with-current-buffer view-buf
        (setq message-entity (get-text-property (point-min) 'mime-view-entity)))
@@ -454,7 +454,9 @@ With ARG, ask destination folder."
        (message "Bursting...done"))
       (if (elmo-folder-plugged-p target)
          (elmo-folder-check target)))
-    (wl-summary-sync-update)))
+    (when (or (not target-name)
+             (string= wl-summary-buffer-folder-name target-name))
+      (save-excursion (wl-summary-sync-update)))))
 
 ;; internal variable.
 (defvar wl-mime-save-directory nil "Last saved directory.")