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

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

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