From d0d0fb6c73994411b75c7911f36121c3e1212562 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 8 May 2001 07:36:34 +0000 Subject: [PATCH] * elmo.el (elmo-folder-synchronize): Don't check important mark in mark folder. --- elmo/ChangeLog | 6 ++++++ elmo/elmo.el | 14 ++++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 99bdc90..636934e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,8 +1,14 @@ 2001-05-08 Hiroya Murata + * elmo.el (elmo-folder-synchronize): Don't check important mark in + mark folder. + +2001-05-08 Hiroya Murata + * 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 --- 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) -- 1.7.10.4