* wl-folder.el (wl-folder-write-current-folder): Added group

folder check.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 97796cf..51f8677 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2000-11-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-folder.el (wl-folder-write-current-folder): Added group
+       folder check.
+
        * wl-summary.el (wl-summary-write-current-folder): Renamed from
        `wl-summary-write-current-newsgroup'.
        (wl-summary-write-current-folder-functions): New variable.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5f75732..78290b3 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2679,7 +2679,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."