From f29a18b4886870b83925490ec049f546aed26932 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 29 Feb 2004 11:58:20 +0000 Subject: [PATCH] (elmo-folder-initialize): Complete abbreviated folder name. --- elmo/ChangeLog | 5 +++++ elmo/elmo-flag.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * elmo-flag.el (elmo-folder-initialize): Complete abbreviated + folder name. + 2004-02-26 Hiroya Murata * 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)) -- 1.7.10.4