From: hmurata <hmurata>
Date: Thu, 25 Oct 2001 15:16:37 +0000 (+0000)
Subject: * mmimap.el (mime-imap-entity-header-string): Don't check first
X-Git-Tag: wl-2_7_6~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3495608a58f5a0cf35774addedffd0a86cce2a5c;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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")))))