From: hmurata <hmurata>
Date: Sun, 21 Sep 2003 13:23:08 +0000 (+0000)
Subject: * modb-standard.el (elmo-msgdb-create-message-entity-from-buffer):
X-Git-Tag: wl-2_11_17~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40c00618b569fc4328317745a9665fbc89618e04;p=elisp%2Fwanderlust.git

* modb-standard.el (elmo-msgdb-create-message-entity-from-buffer):
Fixed how to set extra field into entity.
(elmo-msgdb-message-entity-set-field): Fixed mistake string for
symbol.

* modb-legacy.el (elmo-msgdb-create-message-entity-from-buffer):
Fixed how to set extra field into entity.
(elmo-msgdb-message-entity-set-field): Fixed mistake string for
symbol.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1fa706f..220aae7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,15 @@
+2003-09-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-standard.el (elmo-msgdb-create-message-entity-from-buffer): 
+	Fixed how to set extra field into entity.
+	(elmo-msgdb-message-entity-set-field): Fixed mistake string for
+	symbol.
+
+	* modb-legacy.el (elmo-msgdb-create-message-entity-from-buffer):
+	Fixed how to set extra field into entity.
+	(elmo-msgdb-message-entity-set-field): Fixed mistake string for
+	symbol.
+
 2003-09-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* modb.el (elmo-message-entity-db): New function.
diff --git a/elmo/modb-legacy.el b/elmo/modb-legacy.el
index d0c8990..ee483b4 100644
--- a/elmo/modb-legacy.el
+++ b/elmo/modb-legacy.el
@@ -704,11 +704,11 @@ Return a list of message numbers which have duplicated message-ids."
 	  (setq size 0)))
       (while extras
 	(if (setq field-body (elmo-field-body (car extras)))
-	    (setq extra (cons (cons (downcase (car extras))
-				    field-body) extra)))
+	    (elmo-msgdb-message-entity-set-field
+	     msgdb entity (intern (downcase (car extras))) field-body))
 	(setq extras (cdr extras)))
-      (dolist (field '(message-id number references from subject date to cc
-				  size extra))
+      (dolist (field '(message-id number references from subject
+				  date to cc size))
 	(when (symbol-value field)
 	  (elmo-msgdb-message-entity-set-field
 	   msgdb entity field (symbol-value field))))
@@ -761,7 +761,7 @@ Return a list of message numbers which have duplicated message-ids."
 	 (t
 	  (let ((extras (and entity (aref (cdr entity) 8)))
 		extra)
-	    (if (setq extra (assoc field extras))
+	    (if (setq extra (assoc (symbol-name field) extras))
 		(setcdr extra value)
 	      (aset (cdr entity) 8 (cons (cons (symbol-name field)
 					       value) extras))))))))
diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index f5b6a2a..356bb34 100644
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -508,11 +508,11 @@
 	  (setq size 0)))
       (while extras
 	(if (setq field-body (elmo-field-body (car extras)))
-	    (setq extra (cons (cons (downcase (car extras))
-				    field-body) extra)))
+	    (elmo-msgdb-message-entity-set-field
+	     msgdb entity (intern (downcase (car extras))) field-body))
 	(setq extras (cdr extras)))
-      (dolist (field '(number message-id references from subject date to cc
-			      size extra))
+      (dolist (field '(number message-id references from subject
+			      date to cc size))
 	(when (symbol-value field)
 	  (elmo-msgdb-message-entity-set-field
 	   msgdb entity field (symbol-value field))))
@@ -555,7 +555,7 @@
 	 (t
 	  (let ((extras (and entity (aref (cdr entity) 8)))
 		extra)
-	    (if (setq extra (assoc field extras))
+	    (if (setq extra (assoc (symbol-name field) extras))
 		(setcdr extra value)
 	      (aset (cdr entity) 8 (cons (cons (symbol-name field)
 					       value) extras))))))))