* eword-decode.el (mime-decode-header-in-region): Fix typo.

diff --git a/ChangeLog b/ChangeLog
index 8b3113e..6965a6f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-02-19  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * eword-decode.el (mime-decode-header-in-region): Fix typo.
+
+1999-02-19  Tanaka Akira      <akr@jaist.ac.jp>
+
        * eword-encode.el (eword-encode-field-body): Use
        `eword-encode-structured-field-body' for "Content-Type" field.
 

diff --git a/eword-decode.el b/eword-decode.el
index a1be3bc..c478042 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -36,6 +36,9 @@
 (require 'mel)
 (require 'mime-def)
 
+(require 'ew-dec)
+(require 'ew-line)
+
 (eval-when-compile (require 'cl))
 
 (defgroup eword-decode nil
@@ -269,7 +272,6 @@ such as a version of Net$cape)."
   "*Field decoder cache update function.")
 
 (defun ew-mime-update-field-decoder-cache (field mode)
-  (require 'ew-dec)
   (let ((fun (cond
               ((eq mode 'plain)
                (lexical-let ((field-name (symbol-name field)))
@@ -553,7 +555,7 @@ default-mime-charset."
                    (insert (funcall field-decoder body (1+ len)))
                    (add-text-properties beg (min (1+ (point)) (point-max))
                                         (list 'original-field-name field-name
-                                              'original-field-body field-body))
+                                              'original-field-body body))
                    ))
                ))
          (eword-decode-region (point-min) (point-max) t)