From e1d0a0ffe481dc40f28a10034913d0b4349eb06a Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 21 May 1999 11:24:41 +0000 Subject: [PATCH] (find-mime-charset-by-charsets): New function. --- mcharset.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/mcharset.el b/mcharset.el index 8de8709..44a65cb 100644 --- a/mcharset.el +++ b/mcharset.el @@ -91,6 +91,24 @@ Return nil if suitable mime-charset is not found." (setq rest (cdr rest))) )))) +(defun find-mime-charset-by-charsets (charsets &optional mode &rest args) + "Like `charsets-to-mime-charset', but it does not return nil. + +When suitable mime-charset is not found and variable +`default-mime-charset-detect-method-for-write' is not nil, +`find-mime-charset-by-charsets' calls the variable as function and +return the return value of the function. +Interface of the function is (MODE CHARSETS &rest ARGS). + +When suitable mime-charset is not found and variable +`default-mime-charset-detect-method-for-write' is nil, +variable `default-mime-charset-for-write' is returned." + (or (charsets-to-mime-charset charsets) + (if default-mime-charset-detect-method-for-write + (apply default-mime-charset-detect-method-for-write + mode charsets args) + default-mime-charset-for-write))) + ;;; @ end ;;; -- 1.7.10.4