X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=wl%2Fwl-folder.el;h=90c7f7ffb57786d5e87e541d8dacbc55c4e886a1;hb=bc2119676091ece4bbacec3e0fa184c245674b41;hp=5f75732c713379d9de448697a1e4ce5ca7e20ea4;hpb=910a7854864ae38c13ed47b045c4483148fb3896;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5f75732..90c7f7f 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2038,12 +2038,8 @@ Don't care multi."
 						 'case-ignore)))
 	    (setq toalist (append toalist (cdr (car rules)))))
 	(setq rules (cdr rules)))
-      (when toalist
-	(setq tokey (car (rassoc folder toalist)))
+      (setq tokey (car (rassoc folder toalist)))
 ;;;     (setq histkey (car (rassoc folder wl-refile-alist)))
-	(elmo-string-matched-member tokey
-				    wl-subscribed-mailing-list t))
-
       ;; case-ignore search `wl-subscribed-mailing-list'
       (if (stringp tokey)
 	  (list
@@ -2679,7 +2675,8 @@ If optional arg exists, don't check any folders."
 (defun wl-folder-write-current-folder ()
   ""
   (interactive)
-  (wl-summary-write-current-folder (wl-folder-entity-name)))
+  (unless (wl-folder-buffer-group-p)
+    (wl-summary-write-current-folder (wl-folder-entity-name))))
 
 (defun wl-folder-mimic-kill-buffer ()
   "Kill the current (Folder) buffer with query."