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