From fbe8832406f67cb4f7b7d2a5c9a8517556c98613 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 18 Apr 2006 22:32:18 +0000 Subject: [PATCH] * epg.el (epg-process-filter): Call epg-after-status-XXXXX-function. --- ChangeLog | 1 + epg.el | 7 ++++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 926f454..7e52c2a 100644 --- 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 diff --git a/epg.el b/epg.el index f4c2f83..e256ce0 100644 --- 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))))) -- 1.7.10.4