From 07b1adf51415fe37c4e2d801afbd2a655490ab8c Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 29 Apr 2006 05:42:04 +0000 Subject: [PATCH] * epg.el (epg-status-NO_PUBKEY): New function. (epg-status-NO_SECKEY): New function. --- ChangeLog | 5 +++++ epg.el | 12 ++++++++++++ 2 files changed, 17 insertions(+) diff --git a/ChangeLog b/ChangeLog index c3015b1..d9b5fa7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-04-29 Daiki Ueno + + * epg.el (epg-status-NO_PUBKEY): New function. + (epg-status-NO_SECKEY): New function. + 2006-04-28 Daiki Ueno * epg.el: Added typecheck to accessors to objects. diff --git a/epg.el b/epg.el index 8d38bf4..68c1041 100644 --- a/epg.el +++ b/epg.el @@ -886,6 +886,18 @@ This function is for internal use only." (eq (epg-signature-status signature) 'good)) (epg-signature-set-validity signature 'ultimate)))) +(defun epg-status-NO_PUBKEY (process string) + (epg-context-set-result-for + epg-context 'error + (cons (cons 'no-pubkey string) + (epg-context-result-for epg-context 'error)))) + +(defun epg-status-NO_SECKEY (process string) + (epg-context-set-result-for + epg-context 'error + (cons (cons 'no-seckey string) + (epg-context-result-for epg-context 'error)))) + (defun epg-status-PROGRESS (process string) (if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" string) -- 1.7.10.4