From 059830feabe75e11d8e64dfc670915a6c09a51bf Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 1 Feb 2002 01:40:28 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-make-filter): Make filter folder of multi folder if entity is group. --- wl/ChangeLog | 5 +++++ wl/wl-fldmgr.el | 31 +++++++++++++++++++------------ 2 files changed, 24 insertions(+), 12 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index d009023..f68f3c1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2002-02-01 Kenichi OKADA + * wl-fldmgr.el (wl-fldmgr-make-filter): Make filter folder of + multi folder if entity is group. + +2002-02-01 Kenichi OKADA + * wl-message.el (wl-message-buffer-prefetch-debug): Default value is nil. diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el index 8f4f7f7..b572930 100644 --- a/wl/wl-fldmgr.el +++ b/wl/wl-fldmgr.el @@ -1015,18 +1015,25 @@ return value is diffs '(-new -unread -all)." (interactive) (save-excursion (beginning-of-line) - (if (looking-at wl-folder-group-regexp) - (message "This folder is group") - (let ((tmp (wl-fldmgr-get-path-from-buffer)) - entity) - (if (eq (cdr (nth 2 tmp)) 'access) - (message "Can't change access group") - (setq entity (nth 4 tmp)) - (unless entity (error "No folder")) - (wl-fldmgr-add (concat "/" - (elmo-read-search-condition - wl-fldmgr-make-filter-default) - "/" entity))))))) + (let ((tmp (wl-fldmgr-get-path-from-buffer)) + entity) + (if (eq (cdr (nth 2 tmp)) 'access) + (message "Can't change access group") + (if (wl-folder-buffer-group-p) + (setq entity + (concat + "*" + (mapconcat 'identity + (wl-folder-get-entity-list + (wl-folder-search-group-entity-by-name + (nth 4 tmp) + wl-folder-entity)) ","))) + (setq entity (nth 4 tmp))) + (unless entity (error "No folder")) + (wl-fldmgr-add (concat "/" + (elmo-read-search-condition + wl-fldmgr-make-filter-default) + "/" entity)))))) (defun wl-fldmgr-sort () (interactive) -- 1.7.10.4