* mmimap.el (mime-imap-entity-header-string): Don't check first

element of node-id is `0' (Follow last change).

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 83d9829..86f4521 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * mmimap.el (mime-imap-entity-header-string): Don't check first
+       element of node-id is `0' (Follow last change).
+
 2001-10-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * mmimap.el (mmimap-make-mime-entity): Fixed problem to be

diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index 7199c4a..b8a167c 100644 (file)
--- a/elmo/mmimap.el
+++ b/elmo/mmimap.el
@@ -238,13 +238,9 @@ CLASS, LOCATION, NODE-ID, PARENT are set to the returned entity."
        entity
        (mime-imap-location-section-body
        (mime-entity-location-internal entity)
-       (if (if (eq (car (mime-entity-node-id-internal entity)) 0)
-               (cdr (mime-entity-node-id-internal entity))
-             (mime-entity-node-id-internal entity))
+       (if (mime-entity-node-id-internal entity)
            (concat (mmimap-entity-section
-                    (if (eq (car (mime-entity-node-id-internal entity)) 0)
-                        (cdr (mime-entity-node-id-internal entity))
-                      (mime-entity-node-id-internal entity)))
+                    (mime-entity-node-id-internal entity))
                    ".HEADER")
          "HEADER")))))