From 7db905192fb251b937d0818578f8df46c55d011e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 2 Oct 2002 09:13:45 +0000 Subject: [PATCH] * mcs-ltn1.el (mime-charset-to-coding-system): Allow the 2nd arg. * mcs-nemacs.el (mime-charset-to-coding-system): Ditto. --- ChangeLog | 5 +++++ mcs-ltn1.el | 2 +- mcs-nemacs.el | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1b50a8e..32f073d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-10-02 Katsumi Yamaoka + + * 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 * 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))) ) -- 1.7.10.4