bug#3953: 23.0.94; GPG interaction fails

>>>>> In <87vdlbtho2.fsf@xxxxxxxxxxxxxxxxxxxxx> 
>>>>>   Torsten Bronger <bronger@xxxxxxxxxxxxxxxxxxxxx> wrote:
> > Can you insert debug-prints in epg-wait-for-completion?  It would be
> > something like:
> >
> > (message "epg-process-filter-running: %S" epg-process-filter-running)

> And where should I put it exactly?

Like this:

(defun epg-wait-for-completion (context)
  "Wait until the `epg-gpg-program' process completes."
  (while (eq (process-status (epg-context-process context)) 'run)
    (accept-process-output (epg-context-process context) 1))
  (message "epg-process-filter-running: %S" epg-process-filter-running) ;; <-
  (sleep-for 0.1)
  (message "epg-process-filter-running: %S" epg-process-filter-running) ;; <-
  )

Regards,
-- 
Daiki Ueno