* epg.el (epg-status-GET_HIDDEN): Don't pass KEY-ID to
[elisp/epg.git] / epg.el
diff --git a/epg.el b/epg.el
index 243b0a3..f4c2f83 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -33,6 +33,8 @@
   :group 'epg
   :type 'string)
 
+(defconst epg-version-number "0.0.0")
+
 (defvar epg-user-id nil
   "GnuPG ID of your default identity.")
 
     (9 . "Not a secret key")
     (10 . "Key not trusted")))
 
+(defconst epg-delete-problem-alist
+  '((1 . "No such key")
+    (2 . "Must delete secret key first")
+    (3 . "Ambigious specification")))
+
 (defvar epg-key-validity-alist
   '((?o . unknown)
     (?i . invalid)
@@ -402,8 +409,7 @@ This function is for internal use only."
   "Start `epg-gpg-program' in a subprocess with given ARGS."
   (let* ((args (append (list "--no-tty"
                             "--status-fd" "1"
-                            "--command-fd" "0"
-                            "--yes")
+                            "--command-fd" "0")
                       (if (epg-context-armor context) '("--armor"))
                       (if (epg-context-textmode context) '("--textmode"))
                       (if (epg-context-output-file context)
@@ -414,6 +420,12 @@ This function is for internal use only."
         (orig-mode (default-file-modes))
         (buffer (generate-new-buffer " *epg*"))
         process)
+    (if epg-debug
+       (save-excursion
+         (set-buffer (get-buffer-create  " *epg-debug*"))
+         (goto-char (point-max))
+         (insert (format "%s %s\n" epg-gpg-program
+                         (mapconcat #'identity args " ")))))
     (with-current-buffer buffer
       (make-local-variable 'epg-read-point)
       (setq epg-read-point (point-min))
@@ -477,8 +489,9 @@ This function is for internal use only."
                epg-pending-status-list)
       (accept-process-output (epg-context-process context) 1))))
 
-(defun epg-wait-for-completion (context)
-  (if (eq (process-status (epg-context-process context)) 'run)
+(defun epg-wait-for-completion (context &optional no-eof)
+  (if (and (not no-eof)
+          (eq (process-status (epg-context-process context)) 'run))
       (process-send-eof (epg-context-process context)))
   (while (eq (process-status (epg-context-process context)) 'run)
     ;; We can't use accept-process-output instead of sit-for here
@@ -521,7 +534,6 @@ This function is for internal use only."
         (funcall (if (consp (epg-context-passphrase-callback epg-context))
                      (car (epg-context-passphrase-callback epg-context))
                    (epg-context-passphrase-callback epg-context))
-                 epg-key-id
                  (if (consp (epg-context-passphrase-callback epg-context))
                      (cdr (epg-context-passphrase-callback epg-context)))))
        string)
@@ -697,16 +709,23 @@ This function is for internal use only."
    (cons 'no-recipients
         (epg-context-result-for epg-context 'error))))
 
-(defun epg-passphrase-callback-function (key-id handback)
+(defun epg-status-DELETE_PROBLEM (process string)
+  (if (string-match "\\`\\([0-9]+\\)" string)
+      (epg-context-set-result-for
+       epg-context 'error
+       (cons (cons 'delete-problem (string-to-number (match-string 1 string)))
+            (epg-context-result-for epg-context 'error)))))
+
+(defun epg-passphrase-callback-function (handback)
   (read-passwd
-   (if (eq key-id 'SYM)
+   (if (eq epg-key-id 'SYM)
        "Passphrase for symmetric encryption: "
-     (if (eq key-id 'PIN)
+     (if (eq epg-key-id 'PIN)
         "Passphrase for PIN: "
-       (let ((entry (assoc key-id epg-user-id-alist)))
+       (let ((entry (assoc epg-key-id epg-user-id-alist)))
         (if entry
-            (format "Passphrase for %s %s: " key-id (cdr entry))
-          (format "Passphrase for %s: " key-id)))))))
+            (format "Passphrase for %s %s: " epg-key-id (cdr entry))
+          (format "Passphrase for %s: " epg-key-id)))))))
 
 (defun epg-progress-callback-function (what char current total handback)
   (message "%s: %d%%/%d%%" what current total))
@@ -755,7 +774,8 @@ This function is for internal use only."
 
 (defun epg-make-sub-key-1 (line)
   (epg-make-sub-key
-   (cdr (assq (string-to-char (aref line 1)) epg-key-validity-alist))
+   (if (aref line 1)
+       (cdr (assq (string-to-char (aref line 1)) epg-key-validity-alist)))
    (delq nil
         (mapcar (lambda (char) (cdr (assq char epg-key-capablity-alist)))
                 (aref line 11)))
@@ -780,8 +800,9 @@ This function is for internal use only."
           (car keys)
           (nreverse (epg-key-user-id-list (car keys)))))
        (setq keys (cons (epg-make-key
-                         (cdr (assq (string-to-char (aref (car lines) 8))
-                                    epg-key-validity-alist)))
+                         (if (aref (car lines) 8)
+                             (cdr (assq (string-to-char (aref (car lines) 8))
+                                        epg-key-validity-alist))))
                         keys))
        (epg-key-set-sub-key-list
         (car keys)
@@ -796,8 +817,9 @@ This function is for internal use only."
        (epg-key-set-user-id-list
         (car keys)
         (cons (epg-make-user-id
-               (cdr (assq (string-to-char (aref (car lines) 1))
-                          epg-key-validity-alist))
+               (if (aref (car lines) 1)
+                   (cdr (assq (string-to-char (aref (car lines) 1))
+                              epg-key-validity-alist)))
                (aref (car lines) 9))
               (epg-key-user-id-list (car keys)))))
        ((equal (aref (car lines) 0) "fpr")
@@ -882,7 +904,7 @@ If PLAIN is nil, it returns the result as a string."
          (epg-context-set-output-file context
                                       (epg-make-temp-file "epg-output")))
        (epg-start-decrypt context (epg-make-data-from-file cipher))
-       (epg-wait-for-completion context)
+       (epg-wait-for-completion context t)
        (if (epg-context-result-for context 'error)
            (error "Decrypt failed: %S"
                   (epg-context-result-for context 'error)))
@@ -963,7 +985,7 @@ For a normal or a clear text signature, SIGNED-TEXT should be nil."
                              (epg-make-data-from-file signed-text))
          (epg-start-verify context
                            (epg-make-data-from-file signature)))
-       (epg-wait-for-completion context)
+       (epg-wait-for-completion context t)
        (unless plain
          (epg-read-output context)))
     (unless plain
@@ -1046,7 +1068,7 @@ Otherwise, it makes a normal signature."
          (epg-context-set-output-file context
                                       (epg-make-temp-file "epg-output")))
        (epg-start-sign context (epg-make-data-from-file plain) mode)
-       (epg-wait-for-completion context)
+       (epg-wait-for-completion context t)
        (if (epg-context-result-for context 'error)
            (error "Sign failed: %S"
                   (epg-context-result-for context 'error)))
@@ -1104,9 +1126,8 @@ If you are unsure, use synchronous version of this function
                     (if (epg-data-file plain)
                         (list (epg-data-file plain)))))
   (if sign
-      (epg-wait-for-status context '("BEGIN_SIGNING"))
-    (if (null recipients)
-       (epg-wait-for-status context '("BEGIN_ENCRYPTION"))))
+      (epg-wait-for-status context '("BEGIN_SIGNING")))
+  (epg-wait-for-status context '("BEGIN_ENCRYPTION"))
   (if (and (epg-data-string plain)
           (eq (process-status (epg-context-process context)) 'run))
       (process-send-string (epg-context-process context)
@@ -1126,7 +1147,7 @@ If RECIPIENTS is nil, it performs symmetric encryption."
                                       (epg-make-temp-file "epg-output")))
        (epg-start-encrypt context (epg-make-data-from-file plain)
                           recipients sign always-trust)
-       (epg-wait-for-completion context)
+       (epg-wait-for-completion context t)
        (if (epg-context-result-for context 'error)
            (error "Encrypt failed: %S"
                   (epg-context-result-for context 'error)))
@@ -1156,31 +1177,47 @@ If RECIPIENTS is nil, it performs symmetric encryption."
     (epg-reset context)))
 
 ;;;###autoload
-(defun epg-start-export-keys (context pattern)
+(defun epg-start-export-keys (context keys)
   "Initiate an export keys operation.
 
 If you use this function, you will need to wait for the completion of
 `epg-gpg-program' by using `epg-wait-for-completion' and call
 `epg-reset' to clear a temporaly output file.
 If you are unsure, use synchronous version of this function
-`epg-export-keys' instead."
+`epg-export-keys-to-file' or `epg-export-keys-to-string' instead."
   (epg-context-set-result context nil)
-  (epg-context-set-output-file context (epg-make-temp-file "epg-output"))
-  (epg-start context (list "--export" pattern)))
+  (epg-start context (cons "--export"
+                          (mapcar
+                           (lambda (key)
+                             (epg-sub-key-id
+                              (car (epg-key-sub-key-list key))))
+                           keys))))
 
 ;;;###autoload
-(defun epg-export-keys (context pattern)
-  "Extract public keys matched with PATTERN and return them."
+(defun epg-export-keys-to-file (context keys file)
+  "Extract public KEYS."
   (unwind-protect
       (progn
-       (epg-start-export-keys context pattern)
+       (if keys
+           (epg-context-set-output-file context file)
+         (epg-context-set-output-file context
+                                      (epg-make-temp-file "epg-output")))
+       (epg-start-export-keys context keys)
        (epg-wait-for-completion context)
        (if (epg-context-result-for context 'error)
            (error "Export keys failed"))
-       (epg-read-output context))
+       (unless file
+         (epg-read-output context)))
+    (unless file
+      (epg-delete-output-file context))
     (epg-reset context)))
 
 ;;;###autoload
+(defun epg-export-keys-to-string (context keys)
+  "Extract public KEYS and return them as a string."
+  (epg-export-keys-to-file context keys nil))
+
+;;;###autoload
 (defun epg-start-import-keys (context keys)
   "Initiate an import keys operation.
 KEYS is a data object.
@@ -1192,7 +1229,7 @@ If you are unsure, use synchronous version of this function
 `epg-import-keys-from-file' or `epg-import-keys-from-string' instead."
   (epg-context-set-result context nil)
   (epg-context-set-output-file context (epg-make-temp-file "epg-output"))
-  (epg-start context (append (list "--import") (epg-data-file keys)))
+  (epg-start context (list "--import" (epg-data-file keys)))
   (if (and (epg-data-string keys)
           (eq (process-status (epg-context-process context)) 'run))
       (process-send-string (epg-context-process context)
@@ -1202,7 +1239,7 @@ If you are unsure, use synchronous version of this function
   (unwind-protect
       (progn
        (epg-start-import-keys context keys)
-       (epg-wait-for-completion context)
+       (epg-wait-for-completion context (epg-data-file keys))
        (if (epg-context-result-for context 'error)
            (error "Import keys failed"))
        (epg-read-output context))
@@ -1218,6 +1255,36 @@ If you are unsure, use synchronous version of this function
   "Add keys from a string KEYS."
   (epg-import-keys-1 context (epg-make-data-from-string keys)))
 
+;;;###autoload
+(defun epg-start-delete-keys (context keys &optional allow-secret)
+  "Initiate an delete keys operation.
+
+If you use this function, you will need to wait for the completion of
+`epg-gpg-program' by using `epg-wait-for-completion' and call
+`epg-reset' to clear a temporaly output file.
+If you are unsure, use synchronous version of this function
+`epg-delete-keys' instead."
+  (epg-context-set-result context nil)
+  (epg-start context (cons (if allow-secret
+                              "--delete-secret-key"
+                            "--delete-key")
+                          (mapcar
+                           (lambda (key)
+                             (epg-sub-key-id
+                              (car (epg-key-sub-key-list key))))
+                           keys))))
+
+;;;###autoload
+(defun epg-delete-keys (context keys &optional allow-secret)
+  "Delete KEYS from the key ring."
+  (unwind-protect
+      (progn
+       (epg-start-delete-keys context keys)
+       (epg-wait-for-completion context t)
+       (if (epg-context-result-for context 'error)
+           (error "Delete key failed")))
+    (epg-reset context)))
+
 (provide 'epg)
 
 ;;; epg.el ends here