From: yoichi <yoichi>
Date: Wed, 11 Sep 2002 14:42:06 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-save-view-cache): Avoid error on
X-Git-Tag: elmo-mark-root~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bcbd823e0c193626dbe7da3be3ddb5d48ed2a5b7;p=elisp%2Fwanderlust.git

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