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