From: akr <akr>
Date: Fri, 19 Feb 1999 06:59:37 +0000 (+0000)
Subject: * eword-decode.el (mime-decode-header-in-region): Fix typo.
X-Git-Tag: doodle-1_12_3~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3880320c7db87940c8720502b6b2cfa5b5971860;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 8b3113e..6965a6f 100644
--- 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
--- 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)