X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epa.el;h=4d16a3c8fd3bf60a0cc4ec58e56729470d235fa9;hb=c0378f681c22cfd4128d009b581b9225c56bade2;hp=d56777c18fc0a5e07ec523c3f4a64b7d29791593;hpb=a9b1f2f3d182b4a37bba42df4ba759ef1486b2f7;p=elisp%2Fepg.git

diff --git a/epa.el b/epa.el
index d56777c..4d16a3c 100644
--- a/epa.el
+++ b/epa.el
@@ -527,8 +527,8 @@ If no one is selected, default secret key is used.  "
 	(context (epg-make-context)))
     (epg-context-set-armor context epa-armor)
     (epg-context-set-textmode context epa-textmode)
-    (message "Signing %s..." (file-name-nondirectory file))
     (epg-context-set-signers context signers)
+    (message "Signing %s..." (file-name-nondirectory file))
     (epg-sign-file context file signature mode)
     (message "Signing %s...done" (file-name-nondirectory file))))
 
@@ -555,8 +555,7 @@ If no one is selected, symmetric encryption will be performed.  ")))
     (let ((context (epg-make-context))
 	  charset plain coding-system)
       (message "Decrypting...")
-      (setq plain (epg-decrypt-string context
-				      (buffer-substring start end)))
+      (setq plain (epg-decrypt-string context (buffer-substring start end)))
       (message "Decrypting...done")
       (delete-region start end)
       (goto-char start)
@@ -649,8 +648,8 @@ If no one is selected, default secret key is used.  "
 	  signature)
       (epg-context-set-armor context epa-armor)
       (epg-context-set-textmode context epa-textmode)
-      (message "Signing...")
       (epg-context-set-signers context signers)
+      (message "Signing...")
       (setq signature (epg-sign-string context
 				       (encode-coding-string
 					(buffer-substring start end)
@@ -694,8 +693,8 @@ If no one is selected, symmetric encryption will be performed.  ")))
   (let ((context (epg-make-context)))
     (message "Deleting...")
     (epg-delete-keys context keys allow-secret)
-    (apply #'epa-list-keys epa-list-keys-arguments)
-    (message "Deleting...done")))
+    (message "Deleting...done")
+    (apply #'epa-list-keys epa-list-keys-arguments)))
 
 ;;;###autoload
 (defun epa-import-keys (file)
@@ -704,8 +703,8 @@ If no one is selected, symmetric encryption will be performed.  ")))
   (let ((context (epg-make-context)))
     (message "Importing %s..." (file-name-nondirectory file))
     (epg-import-keys-from-file context (expand-file-name file))
-    (apply #'epa-list-keys epa-list-keys-arguments)
-    (message "Importing %s...done" (file-name-nondirectory file))))
+    (message "Importing %s...done" (file-name-nondirectory file))
+    (apply #'epa-list-keys epa-list-keys-arguments)))
 
 ;;;###autoload
 (defun epa-export-keys (keys file)