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

diff --git a/mcharset.el b/mcharset.el
index 5ce2108..15de1a6 100644 (file)
--- 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)))