A new branch wl-2_4 is created.

[elisp/wanderlust.git] / wl / wl-folder.el

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5f75732..90c7f7f 100644 (file)
--- 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."