From: morioka <morioka>
Date: Tue, 26 Jan 1999 16:32:53 +0000 (+0000)
Subject: (mime-charset-to-coding-system-default-method): New user option.
X-Git-Tag: apel-mcs-2-199901261900~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e7204a618021af133b5efc6de518bcd51a76c69;p=elisp%2Fapel.git

(mime-charset-to-coding-system-default-method): New user option.
(mime-charset-to-coding-system): Call
`mime-charset-to-coding-system-default-method' if suitable
coding-system is not found.
---

diff --git a/mcs-20.el b/mcs-20.el
index 376ded5..bb28c05 100644
--- a/mcs-20.el
+++ b/mcs-20.el
@@ -1,6 +1,6 @@
 ;;; mcs-20.el --- MIME charset implementation for Emacs 20 and XEmacs/mule
 
-;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: emulation, compatibility, Mule
@@ -61,6 +61,14 @@ MIME CHARSET and CODING-SYSTEM must be symbol."
   :group 'i18n
   :type '(repeat (cons symbol coding-system)))
 
+(defcustom mime-charset-to-coding-system-default-method
+  nil
+  "Function called when suitable coding-system is not found from MIME-charset.
+It must be nil or function.
+If it is a function, interface must be (CHARSET LBT CODING-SYSTEM)."
+  :group 'i18n
+  :type '(choice function (const nil)))
+
 (defsubst mime-charset-to-coding-system (charset &optional lbt)
   "Return coding-system corresponding with CHARSET.
 CHARSET is a symbol whose name is MIME charset.
@@ -69,20 +77,23 @@ is specified, it is used as line break code type of coding-system."
   (if (stringp charset)
       (setq charset (intern (downcase charset)))
     )
-  (let ((ret (assq charset mime-charset-coding-system-alist)))
-    (if ret
-	(setq charset (cdr ret))
-      ))
-  (if lbt
-      (setq charset (intern (format "%s-%s" charset
-				    (cond ((eq lbt 'CRLF) 'dos)
-					  ((eq lbt 'LF) 'unix)
-					  ((eq lbt 'CR) 'mac)
-					  (t lbt)))))
-    )
-  (if (find-coding-system charset)
-      charset
-    ))
+  (let ((cs (assq charset mime-charset-coding-system-alist)))
+    (setq cs
+	  (if cs
+	      (cdr cs)
+	    charset))
+    (if lbt
+	(setq cs (intern (format "%s-%s" cs
+				 (cond ((eq lbt 'CRLF) 'dos)
+				       ((eq lbt 'LF) 'unix)
+				       ((eq lbt 'CR) 'mac)
+				       (t lbt)))))
+      )
+    (if (find-coding-system cs)
+	cs
+      (if mime-charset-to-coding-system-default-method
+	  (funcall mime-charset-to-coding-system-default-method charset lbt cs)
+	))))
 
 (defvar widget-mime-charset-prompt-value-history nil
   "History of input to `widget-mime-charset-prompt-value'.")