* epg.el (epg-process-filter): Call epg-after-status-XXXXX-function.

diff --git a/ChangeLog b/ChangeLog
index 926f454..7e52c2a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * epg.el (epg-status-GET_HIDDEN): Don't pass KEY-ID to
        passphrase-callback-function.
+       (epg-process-filter): Call epg-after-status-XXXXX-function.
 
 2006-04-18  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/epg.el b/epg.el
index f4c2f83..e256ce0 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -467,7 +467,12 @@ This function is for internal use only."
                      (setq epg-pending-status-list nil))
                  (if (and symbol
                           (fboundp symbol))
-                     (funcall symbol process string)))))
+                     (funcall symbol process string))
+                 (condition-case nil
+                     (run-hook-with-args-until-success
+                      (intern (concat "epg-after-status-" status "-function"))
+                      string)
+                   (error)))))
          (forward-line))
        (setq epg-read-point (point)))))