Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-edit.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 0d2f883870bc
children 25f70ba0133c
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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.8 $ 9 ;; Version: $Revision: 1.9 $
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
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.8 1997/02/15 22:21:28 steve Exp $") 123 "$Id: tm-edit.el,v 1.9 1997/03/22 06:02:45 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))
1758 (let* ((beg (match-beginning 0)) 1758 (let* ((beg (match-beginning 0))
1759 (end (match-end 0)) 1759 (end (match-end 0))
1760 (tag (buffer-substring beg end)) 1760 (tag (buffer-substring beg end))
1761 ) 1761 )
1762 (delete-region beg end) 1762 (delete-region beg end)
1763 (setq contype (mime-editor/get-contype tag)) 1763 (let ((contype (mime-editor/get-contype tag))
1764 (setq encoding (mime-editor/get-encoding tag)) 1764 (encoding (mime-editor/get-encoding tag))
1765 (insert (concat prefix "--" boundary "\n")) 1765 )
1766 (save-restriction 1766 (insert (concat prefix "--" boundary "\n"))
1767 (narrow-to-region (point)(point)) 1767 (save-restriction
1768 (insert "Content-Type: " contype "\n") 1768 (narrow-to-region (point)(point))
1769 (if encoding 1769 (insert "Content-Type: " contype "\n")
1770 (insert "Content-Transfer-Encoding: " encoding "\n")) 1770 (if encoding
1771 (mime/encode-message-header) 1771 (insert "Content-Transfer-Encoding: " encoding "\n"))
1772 ) 1772 (mime/encode-message-header)
1773 ))
1773 t))) 1774 t)))
1774 1775
1775 (defun mime-editor/translate-region (beg end &optional boundary multipart) 1776 (defun mime-editor/translate-region (beg end &optional boundary multipart)
1776 (if (null boundary) 1777 (if (null boundary)
1777 (setq boundary 1778 (setq boundary