Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-edit.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
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.10 $ 9 ;; Version: $Revision: 1.11 $
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.10 1997/05/29 23:50:20 steve Exp $") 123 "$Id: tm-edit.el,v 1.11 1997/06/06 00:57:43 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))
1552 (insert (format "Content-Type: %s\n" ctype)) 1552 (insert (format "Content-Type: %s\n" ctype))
1553 (if encoding 1553 (if encoding
1554 (insert (format "Content-Transfer-Encoding: %s\n" encoding)) 1554 (insert (format "Content-Transfer-Encoding: %s\n" encoding))
1555 ) 1555 )
1556 (insert "\n") 1556 (insert "\n")
1557 (or (funcall (pgp-function 'mime-sign) 1557 (or (as-binary-process
1558 (point-min)(point-max) nil nil pgp-boundary) 1558 (funcall (pgp-function 'mime-sign)
1559 (point-min)(point-max) nil nil pgp-boundary))
1559 (throw 'mime-editor/error 'pgp-error) 1560 (throw 'mime-editor/error 'pgp-error)
1560 ) 1561 )
1561 )))) 1562 ))))
1562 1563
1563 (defvar mime-editor/encrypt-recipient-fields-list '("To" "cc")) 1564 (defvar mime-editor/encrypt-recipient-fields-list '("To" "cc"))