projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[elisp/semi.git]
/
mime-mc.el
diff --git
a/mime-mc.el
b/mime-mc.el
index
75ba129
..
d0d8a0d
100644
(file)
--- a/
mime-mc.el
+++ b/
mime-mc.el
@@
-1,12
+1,11
@@
;;; mime-mc.el --- Mailcrypt interface for SEMI
;;; mime-mc.el --- Mailcrypt interface for SEMI
-;; Copyright (C) 1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1996,1997,1998 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-mc.el,v 0.0 1997-02-27 08:03:48 tmorioka Exp $
;; Keywords: PGP, security, MIME, multimedia, mail, news
;; Keywords: PGP, security, MIME, multimedia, mail, news
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Secure Emacs MIME Interface).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@
-20,13
+19,13
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'mailcrypt)
;;; Code:
(require 'mailcrypt)
-(load "mc-pgp")
+(eval-and-compile (load "mc-pgp"))
(defun mime-mc-pgp-generic-parser (result)
(let ((ret (mc-pgp-generic-parser result)))
(defun mime-mc-pgp-generic-parser (result)
(let ((ret (mc-pgp-generic-parser result)))
@@
-131,7
+130,7
@@
Content-Transfer-Encoding: 7bit
(if mc-pgp-comment
(setq args (cons (format "+comment=%s" mc-pgp-comment) args))
)
(if mc-pgp-comment
(setq args (cons (format "+comment=%s" mc-pgp-comment) args))
)
- (message "Signing as %s ..." (car key))
+ (message "Signing as %s..." (car key))
(if (mime-mc-process-region
start end passwd pgp-path args parser buffer boundary)
(progn
(if (mime-mc-process-region
start end passwd pgp-path args parser buffer boundary)
(progn
@@
-143,7
+142,7
@@
Content-Transfer-Encoding: 7bit
--[[multipart/signed; protocol=\"application/pgp-signature\";
boundary=\"%s\"; micalg=pgp-md5][7bit]]\n" boundary))
))
--[[multipart/signed; protocol=\"application/pgp-signature\";
boundary=\"%s\"; micalg=pgp-md5][7bit]]\n" boundary))
))
- (message "Signing as %s ... Done." (car key))
+ (message "Signing as %s...done" (car key))
t)
nil)))
t)
nil)))