* elmo.el (elmo-folder-synchronize): Don't check important mark in

mark folder.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 99bdc90..636934e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,8 +1,14 @@
 2001-05-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo.el (elmo-folder-synchronize): Don't check important mark in
+       mark folder.
+
+2001-05-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
        * elmo.el (elmo-message-fetch): Define.
        (elmo-message-fetch-with-cache-process): New generic method.
        (elmo-message-fetch-internal): New generic method.
+       (elmo-folder-synchronize): 
 
        * elmo-archive.el (elmo-message-fetch-internal): Define.
        (elmo-message-fetch): Eliminated.

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 7157b15..353fa53 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1187,12 +1187,14 @@ CROSSED is cross-posted message number."
            (elmo-msgdb-append-to-killed-list folder (car diff-2)))
          ;; Don't delete important marked messages.
          (setq delete-list
-               (elmo-delete-if
-                (lambda (x)
-                  (and (setq mark (cadr (assq x mark-alist)))
-                       (string= mark important-mark)))
-                ;; delete message list
-                (cadr diff)))
+               (if (eq (elmo-folder-type-internal folder) 'mark)
+                   (cadr diff)
+                 (elmo-delete-if
+                  (lambda (x)
+                    (and (setq mark (cadr (assq x mark-alist)))
+                         (string= mark important-mark)))
+                  ;; delete message list
+                  (cadr diff))))
          (if (or (equal diff '(nil nil))
                  (equal diff '(nil))
                  (and (eq (length (car diff)) 0)