From: yamaoka <yamaoka>
Date: Tue, 19 Dec 2000 13:11:00 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply): Bind `mime-header-lexical-analyzer' to the
X-Git-Tag: wl-2_4_1pre~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6202d76b564a396ca52e12388db0ba5701143a35;p=elisp%2Fwanderlust.git

* 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/ChangeLog b/wl/ChangeLog
index 4b5cc6e..a943edc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+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'.
+
 2000-12-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-version.el (wl-extended-emacs-version,
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 73ff2ac..b88fa02 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -287,15 +287,17 @@ the `wl-smtp-features' variable."
   ""
 ;;;(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