From 1c196fe0586806e88c0619858785b98ee4e61ee3 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 15 May 2006 13:51:36 +0000 Subject: [PATCH] * elmo-flag.el (elmo-folder-expand-msgdb-path): Translate path. (elmo-global-flags-initialize): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-flag.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 4a4f8ef..fa29191 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2006-05-15 Yoichi NAKAYAMA + + * elmo-flag.el (elmo-folder-expand-msgdb-path): Translate path. + (elmo-global-flags-initialize): Ditto. + 2006-05-14 Yoichi NAKAYAMA * elmo-archive.el (toplevel): Don't require emu, std11 diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el index 7a64396..0ee9397 100644 --- a/elmo/elmo-flag.el +++ b/elmo/elmo-flag.el @@ -116,8 +116,9 @@ (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-flag-folder)) (expand-file-name (concat "flag/" - (symbol-name - (elmo-flag-folder-flag-internal folder))) + (elmo-replace-string-as-filename + (symbol-name + (elmo-flag-folder-flag-internal folder)))) elmo-msgdb-directory)) (luna-define-method elmo-folder-commit :after ((folder @@ -451,7 +452,8 @@ If optional IGNORE-PRESERVED is non-nil, preserved flags elmo-global-flags additional-flags (and (file-directory-p dir) - (mapcar 'intern + (mapcar (lambda (x) + (intern (elmo-recover-string-from-filename x))) (elmo-list-delete '(".." ".") (directory-files dir)))))) -- 1.7.10.4