* wl-summary.el (wl-summary-save-view-cache): Avoid error on

xemacs without mule (`mime-charset-to-coding-system' in mcs-ltn1
cannot take second argument).

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1a0d2bc..9e970a5 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-save-view-cache): Avoid error on
+       xemacs without mule (`mime-charset-to-coding-system' in mcs-ltn1
+       cannot take second argument).
+
 2002-09-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-summary.el (wl-summary-line-attached): Bind case-fold-search

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 08e384b..f71948d 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4378,7 +4378,8 @@ If ARG, exit virtual folder."
                (wl-summary-delete-all-temp-marks)
                (encode-coding-region
                 (point-min) (point-max)
-                (or (mime-charset-to-coding-system charset 'LF)
+                (or (and wl-on-mule ; one in mcs-ltn1 cannot take 2 arg.
+                         (mime-charset-to-coding-system charset 'LF))
                     ;; Mule 2 doesn't have `*ctext*unix'.
                     (mime-charset-to-coding-system charset)))
                (write-region-as-binary (point-min)(point-max)