+;;; epg.el --- EasyPG, yet another GnuPG interface.
+;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
+;; Copyright (C) 2006 Daiki Ueno
+
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;; Keywords: PGP, GnuPG
+
+;; This file is part of EasyPG.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Code:
+
(defgroup epg ()
"EasyPG, yet another GnuPG interface.")
(user-id "[^:]+"))
"The schema of keylisting output whose type is \"uid\".
This is used by `epg-list-keys'.")
+
+(defvar epg-prompt-alist nil)
(defun epg-make-context (&optional protocol armor textmode include-certs)
"Return a context object."
(if string
(fillarray string 0))))))
+(defun epg-status-GET_BOOL (process string)
+ (let ((entry (assoc string epg-prompt-alist)))
+ (if (y-or-n-p (if entry (cdr entry) (concat string "? ")))
+ (process-send-string process "y\n")
+ (process-send-string process "n\n"))))
+
+(defun epg-status-GET_LINE (process string)
+ (let* ((entry (assoc string epg-prompt-alist))
+ (string (read-string (if entry (cdr entry) (concat string ": ")))))
+ (process-send-string process (concat string "\n")))))
+
(defun epg-status-GOODSIG (process string)
(if (string-match "\\`\\([^ ]+\\) \\(.*\\)" string)
(epg-context-set-result-for