(mime-charset-p): New alias.

diff --git a/mime/mcs-20.el b/mime/mcs-20.el
index fae467b..ca9f394 100644 (file)
--- a/mime/mcs-20.el
+++ b/mime/mcs-20.el
@@ -103,6 +103,8 @@ is specified, it is used as line break code type of coding-system."
                   charset lbt cs)
        ))))
 
+(defalias 'mime-charset-p 'mime-charset-to-coding-system)
+
 (defvar widget-mime-charset-prompt-value-history nil
   "History of input to `widget-mime-charset-prompt-value'.")