Fixed indant.
authorhmurata <hmurata>
Sun, 1 May 2005 03:49:49 +0000 (03:49 +0000)
committerhmurata <hmurata>
Sun, 1 May 2005 03:49:49 +0000 (03:49 +0000)
elmo/modb.el

index 762113f..c02b7f4 100644 (file)
@@ -242,16 +242,16 @@ If optional argument TYPE is specified, return converted value.")
       (let ((flags (elmo-msgdb-flags msgdb number)))
        (cond ((string= (elmo-filter-value condition) "any")
               (and flags (not (equal flags '(cached)))))
-            ((string= (elmo-filter-value condition) "digest")
-             (catch 'found
-               (dolist (flag flags)
-                 (when (or (memq flag elmo-digest-flags)
-                           (elmo-global-flag-p flag))
-                   (throw 'found t)))))
-            ((string= (elmo-filter-value condition) "read")
-             (not (memq 'read flags)))
-            (t
-             (memq (intern (elmo-filter-value condition)) flags)))))
+             ((string= (elmo-filter-value condition) "digest")
+              (catch 'found
+                (dolist (flag flags)
+                  (when (or (memq flag elmo-digest-flags)
+                            (elmo-global-flag-p flag))
+                    (throw 'found t)))))
+             ((string= (elmo-filter-value condition) "read")
+              (not (memq 'read flags)))
+             (t
+              (memq (intern (elmo-filter-value condition)) flags)))))
      (t
       (elmo-msgdb-message-match-condition (elmo-message-entity-handler entity)
                                          condition entity)))))