[SOLVED] gnupg-2.1.0-4 breaks encryption via Emacs

Question

I use GnuPG and Emacs to encrypt password lists.  After the recent upgrade of gnupg to 2.1.0-4, decryption of files works in Emacs, but encryption does not work if any changes were to be saved in these files.  I keep getting this error:
Opening output file: [pub u 1024 17 3B6F8AF143C21F3B 1320594077 1509822256 nil u nil ...], 15
Is anyone experiencing this?
Last edited by tsh (2014-12-23 09:12:21)

Answer 1

The error is in epg--list-keys-1, which the patch upstream fixes.
As a temporary workaround you can just eval the following, which is the function with the patch applied.
(defun epg--list-keys-1 (context name mode)
(let ((args (append (if (epg-context-home-directory context)
(list "--homedir"
(epg-context-home-directory context)))
'("--with-colons" "--no-greeting" "--batch"
"--with-fingerprint" "--with-fingerprint")
(unless (eq (epg-context-protocol context) 'CMS)
'("--fixed-list-mode"))))
(list-keys-option (if (memq mode '(t secret))
"--list-secret-keys"
(if (memq mode '(nil public))
"--list-keys"
"--list-sigs")))
(coding-system-for-read 'binary)
keys string field index)
(if name
(progn
(unless (listp name)
(setq name (list name)))
(while name
(setq args (append args (list list-keys-option (car name)))
name (cdr name))))
(setq args (append args (list list-keys-option))))
(with-temp-buffer
(apply #'call-process
(epg-context-program context)
nil (list t nil) nil args)
(goto-char (point-min))
(while (re-search-forward "^[a-z][a-z][a-z]:.*" nil t)
(setq keys (cons (make-vector 15 nil) keys)
string (match-string 0)
index 0
field 0)
(while (and (< field (length (car keys)))
(eq index
(string-match "\\([^:]+\\)?:" string index)))
(setq index (match-end 0))
(aset (car keys) field (match-string 1 string))
(setq field (1+ field))))
(nreverse keys))))