X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-mc.el;h=d0d8a0d5acbb8b51dda8a8d9309f1d2f8ea94765;hb=309a7f5d32f628d292c2adbf042c58ac0ee34132;hp=75ba1298a31524575479512cb640e9091b9b13b8;hpb=3cc749dc0dac0f1f3a1b9629147e7e3cb939abea;p=elisp%2Fsemi.git

diff --git a/mime-mc.el b/mime-mc.el
index 75ba129..d0d8a0d 100644
--- a/mime-mc.el
+++ b/mime-mc.el
@@ -1,12 +1,11 @@
 ;;; 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>
-;; Version: $Id: mime-mc.el,v 0.0 1997-02-27 08:03:48 tmorioka Exp $
 ;; 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
@@ -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
-;; 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)
-(load "mc-pgp")
+(eval-and-compile (load "mc-pgp"))
 
 (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))
       )
-    (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
@@ -143,7 +142,7 @@ Content-Transfer-Encoding: 7bit
 --[[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)))