From: kaoru <kaoru>
Date: Wed, 1 Nov 2000 09:28:18 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-write-current-folder): Added group
X-Git-Tag: wl-2_4-root~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6013c0e5e7f76382c72c87f2009f07e1c3853cd;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 97796cf..51f8677 100644
--- 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
--- 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."