From: akr <akr>
Date: Tue, 5 Jan 1999 03:34:18 +0000 (+0000)
Subject: * eword-decode.el (mime-decode-header-in-region): Typo fix.
X-Git-Tag: doodle-199901051900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bf56fa97f42316b7bcc3db8263c7b6256a5bc751;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 9121382..e8cee73 100644
--- 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
--- 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))