From: tmorioka Date: Thu, 27 Feb 1997 08:55:59 +0000 (+0000) Subject: (charsets-mime-charset-alist, default-mime-charset, X-Git-Tag: Hokutetsu-Ishikawa-new~249 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=10c2f9576e4274a2a5acaa3ef779157eebd9be05;p=elisp%2Fsemi.git (charsets-mime-charset-alist, default-mime-charset, mime-charset-coding-system-alist): New variable; copied from emu-e20.el. (mime-charset-to-coding-system, detect-mime-charset-region, encode-mime-charset-region, decode-mime-charset-region, encode-mime-charset-string, decode-mime-charset-string): New function; copied from emu-e20.el. --- diff --git a/mime-def.el b/mime-def.el index 712c11e..521fecb 100644 --- a/mime-def.el +++ b/mime-def.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: mime-def.el,v 0.27 1997-02-27 08:05:45 tmorioka Exp $ +;; Version: $Id: mime-def.el,v 0.28 1997-02-27 08:55:59 tmorioka Exp $ ;; Keywords: definition, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -25,16 +25,6 @@ ;;; Code: -;;; @ for XEmacs -;;; - -(defvar running-xemacs (string-match "XEmacs" emacs-version)) - -(if running-xemacs - (require 'overlay) - ) - - ;;; @ variables ;;; @@ -60,9 +50,123 @@ (defconst mime/temp-buffer-name " *MIME-temp*") +;;; @ definitions about MIME +;;; + +(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=") +(defconst mime/token-regexp (concat "[^" mime/tspecials "]+")) +(defconst mime-charset-regexp mime/token-regexp) + +(defconst mime/content-type-subtype-regexp + (concat mime/token-regexp "/" mime/token-regexp)) + +(defconst mime/disposition-type-regexp mime/token-regexp) + + +;;; @ MIME charset +;;; + +(defvar charsets-mime-charset-alist + '(((ascii) . us-ascii) + ((ascii latin-iso8859-1) . iso-8859-1) + ((ascii latin-iso8859-2) . iso-8859-2) + ((ascii latin-iso8859-3) . iso-8859-3) + ((ascii latin-iso8859-4) . iso-8859-4) +;;; ((ascii cyrillic-iso8859-5) . iso-8859-5) + ((ascii cyrillic-iso8859-5) . koi8-r) + ((ascii arabic-iso8859-6) . iso-8859-6) + ((ascii greek-iso8859-7) . iso-8859-7) + ((ascii hebrew-iso8859-8) . iso-8859-8) + ((ascii latin-iso8859-9) . iso-8859-9) + ((ascii latin-jisx0201 + japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp) + ((ascii korean-ksc5601) . euc-kr) + ((ascii chinese-gb2312) . cn-gb-2312) + ((ascii chinese-big5-1 chinese-big5-2) . cn-big5) + ((ascii latin-iso8859-1 greek-iso8859-7 + latin-jisx0201 japanese-jisx0208-1978 + chinese-gb2312 japanese-jisx0208 + korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2) + ((ascii latin-iso8859-1 greek-iso8859-7 + latin-jisx0201 japanese-jisx0208-1978 + chinese-gb2312 japanese-jisx0208 + korean-ksc5601 japanese-jisx0212 + chinese-cns11643-1 chinese-cns11643-2) . iso-2022-int-1) + ((ascii latin-iso8859-1 latin-iso8859-2 + cyrillic-iso8859-5 greek-iso8859-7 + latin-jisx0201 japanese-jisx0208-1978 + chinese-gb2312 japanese-jisx0208 + korean-ksc5601 japanese-jisx0212 + chinese-cns11643-1 chinese-cns11643-2 + chinese-cns11643-3 chinese-cns11643-4 + chinese-cns11643-5 chinese-cns11643-6 + chinese-cns11643-7) . iso-2022-cjk) + )) + +(defvar default-mime-charset 'x-ctext) + +(defvar mime-charset-coding-system-alist + '((x-ctext . ctext) + (gb2312 . cn-gb-2312) + (iso-2022-jp-2 . iso-2022-ss2-7) + )) + +(defun mime-charset-to-coding-system (charset &optional lbt) + (if (stringp charset) + (setq charset (intern (downcase charset))) + ) + (let ((cs + (or (cdr (assq charset mime-charset-coding-system-alist)) + (and (coding-system-p charset) charset) + ))) + (if lbt + (intern (concat (symbol-name cs) "-" (symbol-name lbt))) + cs))) + +(defun detect-mime-charset-region (start end) + "Return MIME charset for region between START and END. [emu-e20.el]" + (charsets-to-mime-charset + (find-charset-string (buffer-substring start end)) + )) + +(defun encode-mime-charset-region (start end charset) + "Encode the text between START and END as MIME CHARSET. [emu-e20.el]" + (let ((cs (mime-charset-to-coding-system charset))) + (if cs + (encode-coding-region start end cs) + ))) + +(defun decode-mime-charset-region (start end charset) + "Decode the text between START and END as MIME CHARSET. [emu-e20.el]" + (let ((cs (mime-charset-to-coding-system charset))) + (if cs + (decode-coding-region start end cs) + ))) + +(defun encode-mime-charset-string (string charset) + "Encode the STRING as MIME CHARSET. [emu-e20.el]" + (let ((cs (mime-charset-to-coding-system charset))) + (if cs + (encode-coding-string string cs) + string))) + +(defun decode-mime-charset-string (string charset) + "Decode the STRING as MIME CHARSET. [emu-e20.el]" + (let ((cs (mime-charset-to-coding-system charset))) + (if cs + (decode-coding-string string cs) + string))) + + ;;; @ button ;;; +(defvar running-xemacs (string-match "XEmacs" emacs-version)) + +(if running-xemacs + (require 'overlay) + ) + (defvar mime-button-face 'bold "Face used for content-button or URL-button of MIME-Preview buffer.") @@ -147,19 +251,6 @@ FUNCTION.") pgp-function-alist) -;;; @ definitions about MIME -;;; - -(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=") -(defconst mime/token-regexp (concat "[^" mime/tspecials "]+")) -(defconst mime-charset-regexp mime/token-regexp) - -(defconst mime/content-type-subtype-regexp - (concat mime/token-regexp "/" mime/token-regexp)) - -(defconst mime/disposition-type-regexp mime/token-regexp) - - ;;; @ rot13-47 ;;; ;; caesar-region written by phr@prep.ai.mit.edu Nov 86