From: yoichi <yoichi>
Date: Sun, 16 Feb 2003 16:05:46 +0000 (+0000)
Subject: * wl-mime.el (wl-summary-burst): Update summary only when target
X-Git-Tag: merged-trunk-to-elmo-mark-15~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f902466589f92d94e1e4d6c8ff4b4f22449b620;p=elisp%2Fwanderlust.git

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