X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fmmimap.el;h=a7f0e16bd28449f35ff20a7614d46dd5e753f209;hb=9041da3cb714676c25dad85e6cd4a80b3755d4c8;hp=b8a167c5384365a9e5ad660db3f20e65cbd84d4d;hpb=3495608a58f5a0cf35774addedffd0a86cce2a5c;p=elisp%2Fwanderlust.git

diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index b8a167c..a7f0e16 100644
--- 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))))