projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.69.
[elisp/tm.git]
/
tm-edit.el
diff --git
a/tm-edit.el
b/tm-edit.el
index
06338da
..
86cc55a
100644
(file)
--- a/
tm-edit.el
+++ b/
tm-edit.el
@@
-8,7
+8,7
@@
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.68 $
+;;; Version: $Revision: 7.69 $
;;; Keywords: mail, news, MIME, multimedia, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;; Keywords: mail, news, MIME, multimedia, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
@@
-122,7
+122,7
@@
;;;
(defconst mime-editor/RCS-ID
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.68 1996/06/12 05:53:26 morioka Exp $")
+ "$Id: tm-edit.el,v 7.69 1996/06/27 14:22:59 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
@@
-1700,13
+1700,7
@@
Content-Transfer-Encoding: 7bit
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
- (or (let ((program-coding-system-alist
- (cons (cons (cons nil ".*pgp.*")
- (cons *noconv* *noconv*))
- program-coding-system-alist))
- )
- (mc-pgp-sign-region beg (point-max))
- )
+ (or (as-binary-process (mc-pgp-sign-region beg (point-max)))
(throw 'mime-editor/error 'pgp-error)
)
(goto-char beg)
(throw 'mime-editor/error 'pgp-error)
)
(goto-char beg)
@@
-1753,15
+1747,11
@@
Content-Transfer-Encoding: 7bit
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
- (or (let ((program-coding-system-alist
- (cons (cons (cons nil ".*pgp.*")
- (cons *noconv* *noconv*))
- program-coding-system-alist))
- )
- (mc-pgp-encrypt-region
- (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
- beg (point-max))
- )
+ (or (as-binary-process
+ (mc-pgp-encrypt-region
+ (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
+ beg (point-max))
+ )
(throw 'mime-editor/error 'pgp-error)
)
(goto-char beg)
(throw 'mime-editor/error 'pgp-error)
)
(goto-char beg)