X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fmmimap.el;h=f0e33a2939a71b1dfe814d09b56e09a63b1ea926;hb=a96af5f347545669151a8aa6b7326b374023e494;hp=7199c4ab36bf3bb66af31cb005980a2ce337730c;hpb=b77d1531e59f9f2a5eee6f3db38198ce6d1a7617;p=elisp%2Fwanderlust.git

diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index 7199c4a..f0e33a2 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)
@@ -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")))))