From b6013c0e5e7f76382c72c87f2009f07e1c3853cd Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 1 Nov 2000 09:28:18 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-write-current-folder): Added group folder check. --- wl/ChangeLog | 3 +++ wl/wl-folder.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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." -- 1.7.10.4