Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-edit.el @ 88:821dec489c24 r20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0
author cvs
date Mon, 13 Aug 2007 09:09:59 +0200
parents 364816949b59
children 0d2f883870bc
comparison
equal deleted inserted replaced
87:7df2982f5c17 88:821dec489c24
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.6 $ 9 ;; Version: $Revision: 1.7 $
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
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 ;; 97 ;;
98 ;;--[[text/plain; charset=ISO-2022-JP]] 98 ;;--[[text/plain; charset=ISO-2022-JP]]
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. 99 ;; [Insert Japanese text here]
100 ;; 100 ;;
101 ;;--[[text/richtext]] 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...
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.6 1997/01/30 02:22:48 steve Exp $") 123 "$Id: tm-edit.el,v 1.7 1997/02/02 02:16:16 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))
851 (run-hooks 'mime-editor/translate-hook) 851 (run-hooks 'mime-editor/translate-hook)
852 (mime-editor/translate-buffer))) 852 (mime-editor/translate-buffer)))
853 ;; Restore previous state. 853 ;; Restore previous state.
854 (setq mime/editor-mode-flag nil) 854 (setq mime/editor-mode-flag nil)
855 (cond (running-xemacs 855 (cond (running-xemacs
856 (delete-menu-item (list mime-editor/menu-title))) 856 (if (featurep 'menubar)
857 (delete-menu-item (list mime-editor/menu-title))))
857 (t 858 (t
858 (use-local-map mime/editor-mode-old-local-map))) 859 (use-local-map mime/editor-mode-old-local-map)))
859 860
860 (end-of-invisible) 861 (end-of-invisible)
861 (set-buffer-modified-p (buffer-modified-p)) 862 (set-buffer-modified-p (buffer-modified-p))