From: akr <akr>
Date: Sun, 25 Oct 1998 14:36:09 +0000 (+0000)
Subject: * eword-decode.el (eword-decode-field-body): Refine implementation.
X-Git-Tag: flim-1_11_2~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b14021fdc4764b6318a8b317accadcbfdbc809a;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 777cd35..04d1a62 100644
--- 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
--- 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