* 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 (file)
--- 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 (file)
--- 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