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

[elisp/apel.git] / mcs-ltn1.el

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