From: okazaki <okazaki>
Date: Tue, 16 Jan 2001 21:29:19 +0000 (+0000)
Subject: Merge 1.15.2.4 from wl-2_4 branch.
X-Git-Tag: wl-2_6-root~148
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2923828c2bee101ff8092fa605e53e4d66a13ebe;p=elisp%2Fwanderlust.git

Merge 1.15.2.4 from wl-2_4 branch.

2000-12-19  Katsumi Yamaoka    <yamaoka@jpl.org>

        * wl-draft.el (wl-draft-reply): Bind `mime-header-lexical-analyzer'
        to the default value as well as `eword-lexical-analyzer'.
---

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