* eword-decode.el (eword-decode-field-body): Refine implementation.

diff --git a/ChangeLog b/ChangeLog
index 777cd35..04d1a62 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-25  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * eword-decode.el (eword-decode-field-body): Refine implementation.
+
 1998-10-24  Tanaka Akira      <akr@jaist.ac.jp>
 
        * 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 (file)
--- 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