1 ;;; mcharset.el --- MIME charset API
3 ;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Keywords: emulation, compatibility, Mule
8 ;; This file is part of APEL (A Portable Emacs Library).
10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
15 ;; This program is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
29 (cond ((featurep 'mule)
30 (cond ((featurep 'xemacs)
33 ((>= emacs-major-version 20)
37 ;; for MULE 1.* and 2.*
42 ;; for Nemacs and Nepoch
50 (defun charsets-to-mime-charset (charsets)
51 "Return MIME charset from list of charset CHARSETS.
52 Return nil if suitable mime-charset is not found."
55 (let ((rest charsets-mime-charset-alist)
57 (while (setq cell (car rest))
58 (if (catch 'not-subset
65 (throw 'not-subset nil))
66 (setq set1 (cdr set1)))
68 (throw 'tag (cdr cell)))
69 (setq rest (cdr rest)))
78 ;;; mcharset.el ends here