* wl-fldmgr.el (wl-fldmgr-add): Fixed problem when `name' is list.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9c1da19..c6f583f 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-31  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-fldmgr.el (wl-fldmgr-add): Fixed problem when `name' is list.
+
 2001-10-29  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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 (file)
--- 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))