X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=elmo%2Felmo-pop3.el;h=d594e9333f7a4daab2cc3b6ee62a2ac72b8a37cc;hb=9ddac14c0b5daa5f6226bb422c36d16b2ccac5e9;hp=0192041b8c8d74c06970de03b6c9fa7c294a0e87;hpb=2a411790da5e15af74e1b82857c221cea02059f7;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 0192041..d594e93 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -677,7 +677,9 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
       (copy-to-buffer tobuffer (point-min) (point-max)))))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-pop3-folder)
-					      numlist seen-list)
+					      numlist new-mark
+					      already-mark seen-mark
+					      important-mark seen-list)
   (let ((process (elmo-network-session-process-internal
 		  (elmo-pop3-get-session folder))))
     (with-current-buffer (process-buffer process)
@@ -686,7 +688,8 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
        (elmo-pop3-msgdb-create-by-header
 	process
 	numlist
-	seen-list
+	new-mark already-mark
+	seen-mark seen-list
 	(if (elmo-pop3-folder-use-uidl-internal folder)
 	    (elmo-pop3-folder-location-alist-internal folder)))))))
 
@@ -724,6 +727,8 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
 		     elmo-pop3-size-hash))
 
 (defun elmo-pop3-msgdb-create-by-header (process numlist
+						 new-mark already-mark
+						 seen-mark
 						 seen-list
 						 loc-alist)
   (let ((tmp-buffer (get-buffer-create " *ELMO Overview TMP*")))
@@ -744,13 +749,14 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
 	   process
 	   (length numlist)
 	   numlist
-	   seen-list loc-alist)
+	   new-mark already-mark seen-mark seen-list loc-alist)
 	(kill-buffer tmp-buffer)))))
 
 (defun elmo-pop3-msgdb-create-message (buffer
 				       process
 				       num
-				       numlist
+				       numlist new-mark already-mark
+				       seen-mark
 				       seen-list
 				       loc-alist)
   (save-excursion
@@ -801,11 +807,11 @@ If IF-EXISTS is `any-exists', get BIFF session or normal session if exists."
 				       (elmo-file-cache-get message-id))
 				      (if seen
 					  nil
-					elmo-msgdb-unread-cached-mark)
+					already-mark)
 				    (if seen
 					(if elmo-pop3-use-cache
-					    elmo-msgdb-read-uncached-mark)
-				      elmo-msgdb-new-mark))))
+					    seen-mark)
+				      new-mark))))
 		  (setq mark-alist
 			(elmo-msgdb-mark-append
 			 mark-alist