From 2145fcb874926c8dcff6a604d74723e0a159adcf Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Thu, 25 May 2006 08:54:29 +0000
Subject: [PATCH] Narrow regions enclosed with "XXX..." / "XXX...done".

---
 epa.el |   15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

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)
-- 
1.7.10.4