* elmo-vars.el (elmo-imap4-default-authenticate-type): Give

[elisp/wanderlust.git] / elmo / mmimap.el

diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index 7199c4a..f0e33a2 100644 (file)
--- a/elmo/mmimap.el
+++ b/elmo/mmimap.el
@@ -61,6 +61,8 @@ SECTION is a section string which is defined in RFC2060.")
 (defun mmimap-entity-section (node-id)
   "Return a section string from NODE-ID"
   (cond
+   ((null node-id)
+    "1")
    ((numberp node-id)
     (number-to-string (1+ node-id)))
    ((listp node-id)
@@ -238,13 +240,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")))))