From 3880320c7db87940c8720502b6b2cfa5b5971860 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 19 Feb 1999 06:59:37 +0000 Subject: [PATCH] * eword-decode.el (mime-decode-header-in-region): Fix typo. --- ChangeLog | 4 ++++ eword-decode.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8b3113e..6965a6f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1999-02-19 Tanaka Akira + * eword-decode.el (mime-decode-header-in-region): Fix typo. + +1999-02-19 Tanaka Akira + * 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) -- 1.7.10.4