X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-mc.el;h=a9f1ebc9aba8b67b702fa68156093d78d2a0af4d;hb=1e28d7c2ec749121b7f9434232b7a936a8de3fe6;hp=78dfdaeb3c994416528c82eba385d3ab4091809d;hpb=0c115c3068d06f197bf3cb99aad53c3a948a15a0;p=elisp%2Fsemi.git

diff --git a/mime-mc.el b/mime-mc.el
index 78dfdae..a9f1ebc 100644
--- a/mime-mc.el
+++ b/mime-mc.el
@@ -25,7 +25,7 @@
 ;;; 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)))
@@ -130,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
@@ -142,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)))