From 340042f5401cf9122b7d6e33cbe194b77695bd75 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 31 Oct 2001 14:10:23 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-add): Fixed problem when `name' is list. --- wl/ChangeLog | 4 ++++ wl/wl-fldmgr.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9c1da19..c6f583f 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-10-31 Hiroya Murata + + * wl-fldmgr.el (wl-fldmgr-add): Fixed problem when `name' is list. + 2001-10-29 Yuuichi Teranishi * wl-message.el (wl-message-add-buttons-to-body): Exchenged 3rd and 4th diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el index 3c457c5..1526e11 100644 --- a/wl/wl-fldmgr.el +++ b/wl/wl-fldmgr.el @@ -822,7 +822,9 @@ return value is diffs '(-new -unread -all)." (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add")))) ;; maybe add elmo-plugged-alist. - (elmo-folder-set-plugged (wl-folder-get-elmo-folder name) wl-plugged t) + (elmo-folder-set-plugged (wl-folder-get-elmo-folder + (if (listp name) (car name) name)) + wl-plugged t) (when (setq diffs (wl-add-entity path (list name) wl-folder-entity (nth 3 tmp) t)) -- 1.7.10.4