From: hmurata <hmurata>
Date: Sun, 29 Feb 2004 11:58:20 +0000 (+0000)
Subject: (elmo-folder-initialize): Complete abbreviated
X-Git-Tag: wl-2_11_25~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f29a18b4886870b83925490ec049f546aed26932;p=elisp%2Fwanderlust.git

(elmo-folder-initialize): Complete abbreviated
folder name.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6ef35e7..967b930 100644
--- 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
--- 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))