* eword-decode.el (mime-decode-header-in-region): Typo fix.

diff --git a/ChangeLog b/ChangeLog
index 9121382..e8cee73 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-01-05  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * eword-decode.el (mime-decode-header-in-region): Typo fix.
+
 1999-01-04  Tanaka Akira      <akr@jaist.ac.jp>
 
        * Sync up to flim-1_12_1 from flim-1_11_3.

diff --git a/eword-decode.el b/eword-decode.el
index 3c4837f..f11b7cc 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -701,7 +701,7 @@ default-mime-charset."
                    default-mime-charset))))
        (if default-charset
            (let ((mode-obj (mime-find-field-presentation-method 'wide))
-                 beg p end field-name-sym len field-decoder
+                 beg p end len field-decoder
                   field-name field-body)
              (goto-char (point-min))
              (while (re-search-forward std11-field-head-regexp nil t)
@@ -709,10 +709,10 @@ default-mime-charset."
                      p (match-end 0)
                      field-name (buffer-substring beg (1- p))
                      len (string-width field-name)
-                     field-name-sym (intern (capitalize field-name))
                      field-decoder (inline
                                      (mime-find-field-decoder-internal
-                                      field-name-sm mode-obj)))
+                                      (intern (capitalize field-name))
+                                       mode-obj)))
                (when field-decoder
                  (setq end (std11-field-end)
                        field-body (buffer-substring p end))