(elmo-folder-initialize): Complete abbreviated

folder name.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6ef35e7..967b930 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-flag.el (elmo-folder-initialize): Complete abbreviated
+       folder name.
+
 2004-02-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo.el (elmo-folder-kill-messages): Don't use msgdb directly.

diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 87ebab4..8dbd111 100644 (file)
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -48,7 +48,10 @@
                                            name)
   (if (string-match "flag/\\([a-z]+\\)" name)
       (setq name (match-string 1 name))
-    (setq name (symbol-name (car elmo-global-flag-list))))
+    (setq name (symbol-name (car elmo-global-flag-list)))
+    (elmo-folder-set-name-internal
+     folder
+     (concat (elmo-folder-name-internal folder) "/" name)))
   (or (cdr (assq (intern name) elmo-global-flag-folder-alist))
       (let ((flag (intern name))
            msgdb-path)
@@ -85,7 +88,7 @@
                               elem
                               (elmo-flag-folder-minfo-hash-internal folder))))
        (setq elmo-global-flag-folder-alist
-             (cons (cons (intern name) folder) elmo-global-flag-folder-alist))
+             (cons (cons flag folder) elmo-global-flag-folder-alist))
        folder)))
 
 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-flag-folder))