Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-edit.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents bcdc7deadc19
children 8fc7fe29b841
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; tm-edit.el --- Simple MIME Composer for GNU Emacs 1 ;;; tm-edit.el --- Simple MIME Composer for GNU Emacs
2 2
3 ;; Copyright (C) 1993 .. 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993,1994,1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp> 5 ;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1994/08/21 renamed from mime.el 8 ;; Created: 1994/08/21 renamed from mime.el
9 ;; Version: $Revision: 1.4 $ 9 ;; Version: $Revision: 1.5 $
10 ;; Keywords: mail, news, MIME, multimedia, multilingual 10 ;; Keywords: mail, news, MIME, multimedia, multilingual
11 11
12 ;; This file is part of tm (Tools for MIME). 12 ;; This file is part of tm (Tools for MIME).
13 13
14 ;; This program is free software; you can redistribute it and/or 14 ;; This program is free software; you can redistribute it and/or
39 ;; of handling multilingual text in limited ISO-2022 manner that is 39 ;; of handling multilingual text in limited ISO-2022 manner that is
40 ;; based on early experiences in Japanese Internet community and 40 ;; based on early experiences in Japanese Internet community and
41 ;; resulted in RFC 1468 (ISO-2022-JP charset for MIME). In order to 41 ;; resulted in RFC 1468 (ISO-2022-JP charset for MIME). In order to
42 ;; enable multilingual capability in single text message in MIME, 42 ;; enable multilingual capability in single text message in MIME,
43 ;; charset of multilingual text written in Mule is declared as either 43 ;; charset of multilingual text written in Mule is declared as either
44 ;; `ISO-2022-JP-2' [RFC 1554] or `ISO-2022-INT-1'. Mule is required 44 ;; `ISO-2022-JP-2' [RFC 1554]. Mule is required for reading the such
45 ;; for reading the such messages. 45 ;; messages.
46 46
47 ;; This MIME composer can work with Mail mode, mh-e letter Mode, and 47 ;; This MIME composer can work with Mail mode, mh-e letter Mode, and
48 ;; News mode. First of all, you need the following autoload 48 ;; News mode. First of all, you need the following autoload
49 ;; definition to load mime/editor-mode automatically: 49 ;; definition to load mime/editor-mode automatically:
50 ;; 50 ;;
92 ;; This is a conventional plain text. It should be translated into 92 ;; This is a conventional plain text. It should be translated into
93 ;; text/plain. 93 ;; text/plain.
94 ;; 94 ;;
95 ;;--[[text/plain]] 95 ;;--[[text/plain]]
96 ;; This is also a plain text. But, it is explicitly specified as is. 96 ;; This is also a plain text. But, it is explicitly specified as is.
97 ;;--[[text/plain; charset=ISO-8859-1]]
98 ;; This is also a plain text. But charset is specified as iso-8859-1.
97 ;; 99 ;;
98 ;;--[[text/plain; charset=ISO-2022-JP]] 100 ;; ¡Hola! Buenos días. ¿Cómo está usted?
99 ;; $B$3$l$O(B charset $B$r(B ISO-2022-JP $B$K;XDj$7$?F|K\8l$N(B plain $B%F%-%9%H$G$9(B. 101 ;;--[[text/enriched]]
100 ;;
101 ;;--[[text/richtext]]
102 ;; <center>This is a richtext.</center> 102 ;; <center>This is a richtext.</center>
103 ;; 103 ;;
104 ;;--[[image/gif][base64]]^M...image encoded in base64 comes here... 104 ;;--[[image/gif][base64]]^M...image encoded in base64 comes here...
105 ;; 105 ;;
106 ;;--[[audio/basic][base64]]^M...audio encoded in base64 comes here... 106 ;;--[[audio/basic][base64]]^M...audio encoded in base64 comes here...
118 118
119 ;;; @ version 119 ;;; @ version
120 ;;; 120 ;;;
121 121
122 (defconst mime-editor/RCS-ID 122 (defconst mime-editor/RCS-ID
123 "$Id: tm-edit.el,v 1.4 1997/01/04 21:20:11 steve Exp $") 123 "$Id: tm-edit.el,v 1.5 1997/02/02 05:06:19 steve Exp $")
124 124
125 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) 125 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
126 126
127 (defconst mime-editor/version-name 127 (defconst mime-editor/version-name
128 (concat "tm-edit " mime-editor/version)) 128 (concat "tm-edit " mime-editor/version))
739 This is a conventional plain text. It should be translated 739 This is a conventional plain text. It should be translated
740 into text/plain. 740 into text/plain.
741 --[[text/plain]] 741 --[[text/plain]]
742 This is also a plain text. But, it is explicitly specified as 742 This is also a plain text. But, it is explicitly specified as
743 is. 743 is.
744 --[[text/plain; charset=ISO-2022-JP]] 744 --[[text/plain; charset=ISO-8859-1]]
745 ...Japanese text here.... 745 This is also a plain text. But charset is specified as
746 --[[text/richtext]] 746 iso-8859-1.
747 <center>This is a richtext.</center> 747
748 --[[image/gif][base64]]^M...image encoded in base64 here... 748 ¡Hola! Buenos días. ¿Cómo está usted?
749 --[[audio/basic][base64]]^M...audio encoded in base64 here... 749 --[[text/enriched]]
750 This is a <bold>enriched text</bold>.
751 --[[image/gif][base64]]...image encoded in base64 here...
752 --[[audio/basic][base64]]...audio encoded in base64 here...
750 753
751 User customizable variables (not documented all of them): 754 User customizable variables (not documented all of them):
752 mime-prefix 755 mime-prefix
753 Specifies a key prefix for MIME minor mode commands. 756 Specifies a key prefix for MIME minor mode commands.
754 757
848 (run-hooks 'mime-editor/translate-hook) 851 (run-hooks 'mime-editor/translate-hook)
849 (mime-editor/translate-buffer))) 852 (mime-editor/translate-buffer)))
850 ;; Restore previous state. 853 ;; Restore previous state.
851 (setq mime/editor-mode-flag nil) 854 (setq mime/editor-mode-flag nil)
852 (cond (running-xemacs 855 (cond (running-xemacs
853 (delete-menu-item (list mime-editor/menu-title))) 856 (if (featurep 'menubar)
857 (delete-menu-item (list mime-editor/menu-title))))
854 (t 858 (t
855 (use-local-map mime/editor-mode-old-local-map))) 859 (use-local-map mime/editor-mode-old-local-map)))
856 860
857 (end-of-invisible) 861 (end-of-invisible)
858 (set-buffer-modified-p (buffer-modified-p)) 862 (set-buffer-modified-p (buffer-modified-p))