Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-ew-e.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children 8fc7fe29b841
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
1 ;;; tm-ew-e.el --- RFC 2047 based encoded-word encoder for GNU Emacs 1 ;;; tm-ew-e.el --- RFC 2047 based encoded-word encoder for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Revision: 1.1.1.1 $ 6 ;; Version: $Revision: 1.2 $
7 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news 7 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
33 33
34 ;;; @ version 34 ;;; @ version
35 ;;; 35 ;;;
36 36
37 (defconst tm-ew-e/RCS-ID 37 (defconst tm-ew-e/RCS-ID
38 "$Id: tm-ew-e.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $") 38 "$Id: tm-ew-e.el,v 1.2 1996/12/22 00:29:39 steve Exp $")
39 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID)) 39 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
40 40
41 41
42 ;;; @ variables 42 ;;; @ variables
43 ;;; 43 ;;;
88 (iso-8859-7 . "Q") 88 (iso-8859-7 . "Q")
89 (iso-8859-8 . "Q") 89 (iso-8859-8 . "Q")
90 (iso-8859-9 . "Q") 90 (iso-8859-9 . "Q")
91 (iso-2022-jp . "B") 91 (iso-2022-jp . "B")
92 (iso-2022-kr . "B") 92 (iso-2022-kr . "B")
93 (gb2312 . "B")
94 (cn-gb . "B")
95 (cn-gb-2312 . "B")
93 (euc-kr . "B") 96 (euc-kr . "B")
94 (iso-2022-jp-2 . "B") 97 (iso-2022-jp-2 . "B")
95 (iso-2022-int-1 . "B") 98 (iso-2022-int-1 . "B")
96 )) 99 ))
100
97 101
98 ;;; @ encoded-text encoder 102 ;;; @ encoded-text encoder
99 ;;; 103 ;;;
100 104
101 (defun tm-eword::encode-encoded-text (charset encoding string &optional mode) 105 (defun tm-eword::encode-encoded-text (charset encoding string &optional mode)