From bf56fa97f42316b7bcc3db8263c7b6256a5bc751 Mon Sep 17 00:00:00 2001 From: akr Date: Tue, 5 Jan 1999 03:34:18 +0000 Subject: [PATCH] * eword-decode.el (mime-decode-header-in-region): Typo fix. --- ChangeLog | 4 ++++ eword-decode.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9121382..e8cee73 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1999-01-05 Tanaka Akira + + * eword-decode.el (mime-decode-header-in-region): Typo fix. + 1999-01-04 Tanaka Akira * 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)) -- 1.7.10.4