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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1ae8acc..a1e38b8 100644 (file)
--- 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 (file)
--- 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)