From: hmurata <hmurata>
Date: Wed, 31 Oct 2001 14:10:23 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-add): Fixed problem when `name' is list.
X-Git-Tag: wl-2_7_6~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=340042f5401cf9122b7d6e33cbe194b77695bd75;p=elisp%2Fwanderlust.git

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

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  <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
--- 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))