From 66867da01ea60f9ee322884cba55475b64c4816f Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 25 Oct 2004 08:34:05 +0000 Subject: [PATCH] (elmo-msgdb-unset-flag): Accept flag `all'. --- elmo/ChangeLog | 4 ++++ elmo/modb-legacy.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 0d89886..7017a9e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2004-10-25 Hiroya Murata + + * modb-legacy.el (elmo-msgdb-unset-flag): Accept flag `all'. + 2004-10-24 Hiroya Murata * elmo-multi.el (elmo-folder-unset-flag): Ignore errors. diff --git a/elmo/modb-legacy.el b/elmo/modb-legacy.el index b5b00ec..5165218 100644 --- a/elmo/modb-legacy.el +++ b/elmo/modb-legacy.el @@ -373,7 +373,7 @@ Return a list of message numbers which have duplicated message-ids." (luna-define-method elmo-msgdb-set-flag ((msgdb modb-legacy) number flag) (unless (modb-legacy-supported-flag-p flag) - (error "Flag `%s' is not supproted by this msgdb type" + (error "Flag `%s' is not supported by this msgdb type" (capitalize (symbol-name flag)))) (case flag (read @@ -397,8 +397,9 @@ Return a list of message numbers which have duplicated message-ids." (luna-define-method elmo-msgdb-unset-flag ((msgdb modb-legacy) number flag) - (unless (modb-legacy-supported-flag-p flag) - (error "Flag `%s' is not supproted by this msgdb type" + (unless (or (modb-legacy-supported-flag-p flag) + (eq flag 'all)) + (error "Flag `%s' is not supported by this msgdb type" (capitalize (symbol-name flag)))) (case flag (read -- 1.7.10.4