From 174e9b33467bf47e05487a84943a8c2b8b74e40c Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Fri, 19 Jun 1998 14:13:37 +0000 Subject: [PATCH] (mime-entity-read-field): Fix typo. Use `eword-decode-ignored-field-list'. --- mime-lib.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/mime-lib.el b/mime-lib.el index 955b53f..30ee595 100644 --- a/mime-lib.el +++ b/mime-lib.el @@ -67,17 +67,20 @@ (or field (let ((field-body (mime-entity-fetch-field entity field-name))) (when field-body - (cond ((memq field-name '(From - To Recent-To - Cc Recent-Cc - Bcc Resent-Bcc)) + (cond ((memq field-name '(From Resent-From + To Resent-To + Cc Resent-Cc + Bcc Resent-Bcc + Reply-To Resent-Reply-To)) (setq field (std11-parse-addresses (eword-lexical-analyze field-body))) ) - ((eq field-name 'Sender) + ((eq field-name '(Sender Resent-Sender)) (setq field (std11-parse-address (eword-lexical-analyze field-body))) ) + ((memq field-name eword-decode-ignored-field-list) + (setq field field-body)) ((memq field-name eword-decode-structured-field-list) (setq field (eword-decode-structured-field-body field-body))) -- 1.7.10.4