From 2923828c2bee101ff8092fa605e53e4d66a13ebe Mon Sep 17 00:00:00 2001 From: okazaki Date: Tue, 16 Jan 2001 21:29:19 +0000 Subject: [PATCH] Merge 1.15.2.4 from wl-2_4 branch. 2000-12-19 Katsumi Yamaoka * wl-draft.el (wl-draft-reply): Bind `mime-header-lexical-analyzer' to the default value as well as `eword-lexical-analyzer'. --- wl/wl-draft.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 6135e76..2630225 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -264,15 +264,17 @@ "" ;;;(save-excursion (let (r-list - (eword-lexical-analyzer '(eword-analyze-quoted-string - eword-analyze-domain-literal - eword-analyze-comment - eword-analyze-spaces - eword-analyze-special - eword-analyze-encoded-word - eword-analyze-atom)) + (mime-header-lexical-analyzer '(eword-analyze-quoted-string + eword-analyze-domain-literal + eword-analyze-comment + eword-analyze-spaces + eword-analyze-special + eword-analyze-encoded-word + eword-analyze-atom)) + eword-lexical-analyzer to mail-followup-to cc subject in-reply-to references newsgroups from to-alist cc-alist) + (setq eword-lexical-analyzer mime-header-lexical-analyzer) (set-buffer buf) (setq from (wl-address-header-extract-address (std11-field-body "From"))) (setq r-list -- 1.7.10.4