(eval-when-compile (require 'pgg))
(defvar pgg-epg-secret-key-id-list nil)
(defun pgg-epg-passphrase-callback (context key-id ignore)
(if (eq key-id 'SYM)
(eval-when-compile (require 'pgg))
(defvar pgg-epg-secret-key-id-list nil)
(defun pgg-epg-passphrase-callback (context key-id ignore)
(if (eq key-id 'SYM)
(pgg-remove-passphrase-from-cache (car pgg-epg-secret-key-id-list))
(setq pgg-epg-secret-key-id-list (cdr pgg-epg-secret-key-id-list)))
(signal (car error) (cdr error))))
(pgg-remove-passphrase-from-cache (car pgg-epg-secret-key-id-list))
(setq pgg-epg-secret-key-id-list (cdr pgg-epg-secret-key-id-list)))
(signal (car error) (cdr error))))
(setq plain (decode-coding-string plain 'raw-text)))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))
(setq plain (decode-coding-string plain 'raw-text)))
(save-excursion
(set-buffer (get-buffer-create pgg-output-buffer))