From: morioka <morioka>
Date: Wed, 23 Dec 1998 02:54:27 +0000 (+0000)
Subject: (charsets-to-mime-charset): Add new optional argument `default'.
X-Git-Tag: apel-mcs-2-199812231900~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d478c59898888fe443bb4cb01a19c63cadd6c292;p=elisp%2Fapel.git

(charsets-to-mime-charset): Add new optional argument `default'.
---

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