From d478c59898888fe443bb4cb01a19c63cadd6c292 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 23 Dec 1998 02:54:27 +0000 Subject: [PATCH] (charsets-to-mime-charset): Add new optional argument `default'. --- mcharset.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mcharset.el b/mcharset.el index 5ce2108..15de1a6 100644 --- a/mcharset.el +++ b/mcharset.el @@ -47,7 +47,7 @@ )) -(defun charsets-to-mime-charset (charsets) +(defun charsets-to-mime-charset (charsets &optional default) "Return MIME charset from list of charset CHARSETS. This function refers variable `charsets-mime-charset-alist' and `default-mime-charset'." @@ -68,6 +68,7 @@ and `default-mime-charset'." t)) (throw 'tag (cdr cell))) (setq rest (cdr rest))))) + default default-mime-charset))) -- 1.7.10.4