From 0b14021fdc4764b6318a8b317accadcbfdbc809a Mon Sep 17 00:00:00 2001 From: akr Date: Sun, 25 Oct 1998 14:36:09 +0000 Subject: [PATCH] * eword-decode.el (eword-decode-field-body): Refine implementation. --- ChangeLog | 4 ++++ eword-decode.el | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 777cd35..04d1a62 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-10-25 Tanaka Akira + + * eword-decode.el (eword-decode-field-body): Refine implementation. + 1998-10-24 Tanaka Akira * mel-b-ccl.el, mel-q-ccl.el, mel.el, FLIM-ELS: Divide mel-ccl.el diff --git a/eword-decode.el b/eword-decode.el index 7e4336f..d85bce3 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -308,12 +308,12 @@ Non MIME encoded-word part in FILED-BODY is decoded with `default-mime-charset'." (when (eq max-column t) (setq max-column fill-column)) - (let ((field-name-symbol (if (symbolp field-name) - field-name - (intern (capitalize field-name)))) - (len (1+ (string-width field-name)))) - (when (symbolp field-name) - (setq field-name (symbol-name field-name))) + (let (field-name-symbol len) + (if (symbolp field-name) + (setq field-name-symbol field-name + len (1+ (string-width (symbol-name field-name)))) + (setq field-name-symbol (intern (capitalize field-name)) + len (1+ (string-width field-name)))) (if (memq field-name-symbol eword-decode-ignored-field-list) ;; Don't decode (if max-column -- 1.7.10.4