From: hmurata <hmurata>
Date: Sun, 30 Jan 2005 12:52:37 +0000 (+0000)
Subject: * elmo-flag.el (elmo-folder-initialize): Fixed the last change.
X-Git-Tag: wl-2_14-root~69
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d2d603c0c8d18d56b468a21752ff03461034598e;p=elisp%2Fwanderlust.git

* elmo-flag.el (elmo-folder-initialize): Fixed the last change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1ae8acc..a1e38b8 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2005-01-30  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* elmo-flag.el (elmo-folder-initialize): Fixed the last change.
+
 	* elmo-util.el (elmo-read-search-condition): Eliminate (renamed to
 	`wl-read-search-condition').
 	(elmo-read-search-condition-internal): Likewise.
diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 52f791b..bd4f0f7 100644
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -64,7 +64,7 @@
   (unless (string-match (eval-when-compile
 			  (concat "^flag\\(/\\(["
 				  elmo-flag-char-regexp
-				  "]+\\)\\)?"))
+				  "]+\\)\\)?$"))
 			name)
     (error "Error in folder name `%s'" (elmo-folder-name-internal folder)))
   (if (match-beginning 1)