From: hmurata <hmurata>
Date: Mon, 25 Oct 2004 08:34:05 +0000 (+0000)
Subject: (elmo-msgdb-unset-flag): Accept flag `all'.
X-Git-Tag: wl-2_12-root~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=66867da01ea60f9ee322884cba55475b64c4816f;p=elisp%2Fwanderlust.git

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

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  <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
--- 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