From b667482304d13d3fa3c2b3a65de2190764a733ea Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 25 Mar 2005 15:55:15 +0000 Subject: [PATCH] (elmo-global-flags-initialize): Check the existence of the flag directory. --- elmo/ChangeLog | 5 +++++ elmo/elmo-flag.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 8745c48..d6b453d 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-03-25 Hiroya Murata + + * elmo-flag.el (elmo-global-flags-initialize): Check the + existence of the flag directory. + 2005-03-23 Hiroya Murata * elmo-access.el (elmo-folder-initialize): Call diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el index 826cd7d..c7b6b1d 100644 --- a/elmo/elmo-flag.el +++ b/elmo/elmo-flag.el @@ -450,8 +450,12 @@ If optional IGNORE-PRESERVED is non-nil, preserved flags (append elmo-global-flags additional-flags - (mapcar 'intern - (delete ".." (delete "." (directory-files dir)))))))))) + (and (file-directory-p dir) + (mapcar 'intern + (elmo-list-delete + '(".." ".") + (directory-files dir)))))) + #'delq)))) ;;; To migrate from global mark folder (defvar elmo-global-mark-filename "global-mark" -- 1.7.10.4