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