Re: epg.el: epg--status-GET_LINE not working?

[Daiki Ueno <ueno@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 669 bytes --]

Teemu Likonen <tlikonen@iki.fi> writes:

> I suggest a minimal handler so that epg wouldn't wait GET_LINE input in
> tofu conflicts (which currently doesn't work anyway) and
> epg-signature-to-string function would return a string like this:
>
>     Good signature from [keyid] [user id] (tofu conflict) created at
>     [date] using [algorithm]
>
> I believe epg is mostly used with Gnus and that line alone is useful.

Would that work?  I mean, if there is an unresolved tofu conflict,
shouldn't signature verification fail?

Anyway, I would rather ignore "tofu.conflict" like the attached patch
(not tested), until it becomes really useful.

Regards,
-- 
Daiki Ueno

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: epg.el.diff --]
[-- Type: text/x-patch, Size: 1015 bytes --]

diff --git a/lisp/epg.el b/lisp/epg.el
index 1e24b8d..4eb51ef 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -163,6 +163,8 @@ epg-dn-type-alist
 
 (defvar epg-prompt-alist nil)
 
+(defvar epg-unsupported-prompt-list '("tofu.conflict"))
+
 (define-error 'epg-error "GPG error")
 
 (cl-defstruct (epg-data
@@ -910,11 +912,13 @@ epg--status-GET_LINE
 	inhibit-quit)
     (condition-case nil
 	(process-send-string (epg-context-process context)
-			     (concat (read-string
-				      (if entry
-					  (cdr entry)
-					(concat string ": ")))
-				     "\n"))
+                             (if (member string epg-unsupported-prompt-list)
+                                 "\n"
+                               (concat (read-string
+                                        (if entry
+                                            (cdr entry)
+                                          (concat string ": ")))
+                                       "\n")))
       (quit
        (epg-context-set-result-for
 	context 'error