From: yoichi <yoichi>
Date: Thu, 11 Oct 2001 10:27:21 +0000 (+0000)
Subject: Fix.
X-Git-Tag: wl-2_7_6~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9db71e3f30336d32f06b30b3500ae133c986f4f;p=elisp%2Fwanderlust.git

Fix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c5d9025..1cf46f0 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-make-group): Check folder name only
+	for access group.
+
 2001-10-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-message.el (wl-message-display-internal): Bind
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 5197378..3c457c5 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -939,7 +939,7 @@ return value is diffs '(-new -unread -all)."
 			   (read-from-minibuffer
 			    (if access "Access Type Group: " "Group: ")))))
 	  ;; To check the folder name is correct.
-	  (elmo-make-folder group)
+	  (if access (elmo-make-folder group))
 	  (when (or access (string-match "[\t ]*/$" group))
 	    (setq group (if access group
 			  (substring group 0 (match-beginning 0))))