From 3495608a58f5a0cf35774addedffd0a86cce2a5c Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 25 Oct 2001 15:16:37 +0000 Subject: [PATCH] * mmimap.el (mime-imap-entity-header-string): Don't check first element of node-id is `0' (Follow last change). --- elmo/ChangeLog | 5 +++++ elmo/mmimap.el | 8 ++------ 2 files changed, 7 insertions(+), 6 deletions(-) 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 + + * 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 * 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"))))) -- 1.7.10.4