From: yamaoka <yamaoka>
Date: Wed, 2 Oct 2002 09:13:45 +0000 (+0000)
Subject: * mcs-ltn1.el (mime-charset-to-coding-system): Allow the 2nd arg.
X-Git-Tag: apel-10_4~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7db905192fb251b937d0818578f8df46c55d011e;p=elisp%2Fapel.git

* mcs-ltn1.el (mime-charset-to-coding-system): Allow the 2nd arg.
* mcs-nemacs.el (mime-charset-to-coding-system): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 1b50a8e..32f073d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mcs-ltn1.el (mime-charset-to-coding-system): Allow the 2nd arg.
+	* mcs-nemacs.el (mime-charset-to-coding-system): Ditto.
+
 2002-07-13  Daiki Ueno  <daiki@xemacs.org>
 
 	* mcs-xm.el (encode-mime-charset-string): Use `defun' instead of
diff --git a/mcs-ltn1.el b/mcs-ltn1.el
index aa76ef9..9e06fe5 100644
--- a/mcs-ltn1.el
+++ b/mcs-ltn1.el
@@ -38,7 +38,7 @@
 		   (mac . "\r"))))
   )
 
-(defun mime-charset-to-coding-system (charset)
+(defun mime-charset-to-coding-system (charset &optional lbt)
   (if (stringp charset)
       (setq charset (intern (downcase charset))))
   (if (memq charset (list 'us-ascii default-mime-charset))
diff --git a/mcs-nemacs.el b/mcs-nemacs.el
index 9784ac6..c051399 100644
--- a/mcs-nemacs.el
+++ b/mcs-nemacs.el
@@ -42,7 +42,7 @@
 		   (mac . "\r"))))
   )
 
-(defun mime-charset-to-coding-system (charset)
+(defun mime-charset-to-coding-system (charset &optional lbt)
   (if (stringp charset)
       (setq charset (intern (downcase charset)))
     )