(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 (file)
--- 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 (file)
--- 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))))))