From: hmurata <hmurata>
Date: Tue, 8 May 2001 07:36:34 +0000 (+0000)
Subject: * elmo.el (elmo-folder-synchronize): Don't check important mark in
X-Git-Tag: wl-2_6-root^3~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d0d0fb6c73994411b75c7911f36121c3e1212562;p=elisp%2Fwanderlust.git

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