(elmo-flatten): Use `append' and `listp' instead of

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

diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index b8a167c..a7f0e16 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)
@@ -146,7 +148,7 @@ CLASS, LOCATION, NODE-ID, PARENT are set to the returned entity."
           entity
           (list (mmimap-make-mime-entity
                  (nth 8 bodystructure) class
-                 location node-id 0
+                 location node-id nil
                  entity))))
       entity))))