(elmo-msgdb-unset-flag): Accept flag `all'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 0d89886..7017a9e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * modb-legacy.el (elmo-msgdb-unset-flag): Accept flag `all'.
+
 2004-10-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * 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 (file)
--- 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