X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-nmz.el;h=6db859fe21c950953aadd87fe7b9e7161b106284;hb=e93172050fe651aff94e7d078a0e7e1e0143810a;hp=9c80224efb245b13f39066fc75ef9a4c6532e244;hpb=c2738fdc4e616fb55973a7e285432f60af6c1c57;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 9c80224..6db859f 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -98,22 +98,23 @@ If the value is a list, all elements are used as index paths for namazu."
     (elmo-folder-name-internal folder))
    (expand-file-name "nmz" elmo-msgdb-directory)))
 
-(defun elmo-nmz-msgdb-create-entity (folder number)
+(defun elmo-nmz-msgdb-create-entity (msgdb folder number)
   "Create msgdb entity for the message in the FOLDER with NUMBER."
   (let ((location (expand-file-name (elmo-map-message-location folder number)))
 	entity uid)
-    (setq entity (elmo-msgdb-create-overview-entity-from-file number location))
-    (unless (or (> (length (elmo-msgdb-overview-entity-get-to entity)) 0)
-		(> (length (elmo-msgdb-overview-entity-get-cc entity)) 0)
-		(not (string= (elmo-msgdb-overview-entity-get-subject entity)
+    (setq entity (elmo-msgdb-create-message-entity-from-file
+		  (elmo-msgdb-message-entity-handler msgdb) number location))
+    (unless (or (> (length (elmo-message-entity-field entity 'to)) 0)
+		(> (length (elmo-message-entity-field entity 'cc)) 0)
+		(not (string= (elmo-message-entity-field entity 'subject)
 			      elmo-no-subject)))
-      (elmo-msgdb-overview-entity-set-subject entity location)
+      (elmo-message-entity-set-field entity 'subject location)
       (setq uid (nth 2 (file-attributes location)))
-      (elmo-msgdb-overview-entity-set-from entity
-					   (concat
-					    (user-full-name uid)
-					    " <"(user-login-name uid) "@"
-					    (system-name) ">")))
+      (elmo-message-entity-set-field entity 'from
+				     (concat
+				      (user-full-name uid)
+				      " <"(user-login-name uid) "@"
+				      (system-name) ">")))
     entity))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-nmz-folder)
@@ -126,9 +127,9 @@ If the value is a list, all elements are used as index paths for namazu."
     (while numlist
       (setq entity
 	    (elmo-nmz-msgdb-create-entity
-	     folder (car numlist)))
+	     new-msgdb folder (car numlist)))
       (when entity
-	(elmo-msgdb-append-entity new-msgdb entity '(new)))
+	(elmo-msgdb-append-entity new-msgdb entity '(new unread)))
       (when (> num elmo-display-progress-threshold)
 	(setq i (1+ i))
 	(setq percent (/ (* i 100) num))