From: hmurata <hmurata>
Date: Sat, 3 Jun 2006 08:39:45 +0000 (+0000)
Subject: (wl-mime-pgp-decrypt-region): Display a progress
X-Git-Tag: wl-2_15_4~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db0560e0ba5f6dde7e73751df30ef16e8ae8f854;p=elisp%2Fwanderlust.git

(wl-mime-pgp-decrypt-region): Display a progress
message.
(wl-mime-pgp-verify-region): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a2b705c..6512a9d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2006-06-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-mime.el (wl-mime-pgp-decrypt-region): Display a progress
+	message.
+	(wl-mime-pgp-verify-region): Ditto.
+
 2006-05-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-mime-pgp-verify-region): Does not use temporary
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 267ae06..a991ba3 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -480,17 +480,20 @@ It calls following-method selected from variable
  ((require 'epg nil t)
   (defun wl-mime-pgp-decrypt-region (beg end &optional no-decode)
     (require 'epg)
-    (let ((plain (decode-coding-string
-		  (epg-decrypt-string
-		   (epg-make-context)
-		   (buffer-substring beg end))
-		  (if no-decode 'raw-text wl-cs-autoconv))))
-      (delete-region beg end)
-      (insert plain)))
+    (message "Decrypting...")
+    (insert (prog1
+		(decode-coding-string
+		 (epg-decrypt-string
+		  (epg-make-context)
+		  (buffer-substring beg end))
+		 (if no-decode 'raw-text wl-cs-autoconv))
+	      (delete-region beg end)))
+    (message "Decrypting...done"))
 
   (defun wl-mime-pgp-verify-region (beg end &optional coding-system)
     (require 'epg)
     (let ((context (epg-make-context)))
+      (message "Verifying...")
       (epg-verify-string
        context
        (encode-coding-string
@@ -498,6 +501,7 @@ It calls following-method selected from variable
 	(if coding-system
 	    (coding-system-change-eol-conversion coding-system 'dos)
 	  'raw-text-dos)))
+      (message "Verifying...done")
       (when (epg-context-result-for context 'verify)
 	(epa-display-verify-result
 	 (epg-context-result-for context 'verify))))))