X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg-epg.el;h=09f69f0749e413722f45edd28ed56a55d6b71c8d;hb=9c4b50c1650d0f1c9d0c6189d721de83d57d8ce6;hp=730d61d0a5af9768c069d8302d93da6cb4bffd65;hpb=71a13a1a2d2aad16b9020f932db41067915abfc3;p=elisp%2Fepg.git diff --git a/pgg-epg.el b/pgg-epg.el index 730d61d..09f69f0 100644 --- a/pgg-epg.el +++ b/pgg-epg.el @@ -1,10 +1,10 @@ -;;; pgg-epg.el --- Gnus/PGG backend of EasyPG. +;;; pgg-epg.el --- Gnus' PGG backend of EasyPG. ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, ;; 2005, 2006 Free Software Foundation, Inc. ;; Copyright (C) 2006 Daiki Ueno ;; Author: Daiki Ueno -;; Keywords: PGP, GnuPG +;; Keywords: PGP, GnuPG, Gnus ;; This file is part of EasyPG. @@ -69,15 +69,18 @@ passphrase cache or user." (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (condition-case error (setq cipher (epg-encrypt-string context (buffer-substring start end) (mapcar (lambda (recipient) - (car (epg-list-keys recipient))) + (car (epg-list-keys context recipient))) (if pgg-encrypt-for-me (cons pgg-default-user-id recipients) recipients)) @@ -90,7 +93,6 @@ passphrase cache or user." (signal (car error) (cdr error)))) (save-excursion (set-buffer (get-buffer-create pgg-output-buffer)) - (erase-buffer) (insert cipher)) t)) @@ -116,19 +118,24 @@ passphrase cache or user." (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (condition-case error - (setq plain (epg-decrypt-string context (buffer-substring start end)) + (setq plain + (epg-decrypt-string context (buffer-substring start end)) pgg-epg-secret-key-id-list nil) (error (while pgg-epg-secret-key-id-list (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)))) + (if pgg-text-mode + (setq plain (decode-coding-string plain 'raw-text))) (save-excursion (set-buffer (get-buffer-create pgg-output-buffer)) - (erase-buffer) (insert plain)) t)) @@ -145,14 +152,20 @@ passphrase cache or user." (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (epg-context-set-signers + context + (list (car (epg-list-keys context pgg-default-user-id t)))) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (condition-case error (setq signature (epg-sign-string context (buffer-substring start end) (if cleartext - 'clearsign + 'clear 'detached)) pgg-epg-secret-key-id-list nil) (error @@ -162,7 +175,6 @@ passphrase cache or user." (signal (car error) (cdr error)))) (save-excursion (set-buffer (get-buffer-create pgg-output-buffer)) - (erase-buffer) (insert signature)) t)) @@ -176,8 +188,11 @@ Verify region between START and END as the detached signature SIGNATURE." (inhibit-redisplay t)) ;Gnus users don't like flickering (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (if signature (epg-verify-string context (with-temp-buffer @@ -189,7 +204,6 @@ Verify region between START and END as the detached signature SIGNATURE." (set-buffer (get-buffer-create pgg-errors-buffer)) (make-local-variable 'pgg-epg-signatures) (setq pgg-epg-signatures (epg-context-result-for context 'verify)) - (erase-buffer) (insert (epg-verify-result-to-string pgg-epg-signatures))) t)) @@ -202,8 +216,11 @@ Insert public key at point." ) (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (insert (epg-export-keys-to-string context pgg-default-user-id)))) (defun pgg-epg-snarf-keys-region (start end) @@ -215,8 +232,11 @@ Add all public keys in region between START and END to the keyring." ) (epg-context-set-armor context t) (epg-context-set-textmode context pgg-text-mode) - (get-buffer-create pgg-output-buffer) - (get-buffer-create pgg-errors-buffer) + (save-excursion + (set-buffer (get-buffer-create pgg-output-buffer)) + (erase-buffer) + (set-buffer (get-buffer-create pgg-errors-buffer)) + (erase-buffer)) (epg-import-keys-from-string context (buffer-substring start end)))) (eval-when-compile @@ -226,7 +246,9 @@ Add all public keys in region between START and END to the keyring." (let* ((expired (eq (epg-signature-status (car pgg-epg-signatures)) 'key-expired)) (signer (cons (epg-signature-key-id (car pgg-epg-signatures)) - (epg-signature-user-id (car pgg-epg-signatures)))) + (cdr (assoc (epg-signature-key-id + (car pgg-epg-signatures)) + epg-user-id-alist)))) (fprint (epg-signature-fingerprint (car pgg-epg-signatures))) (trust-good-enough-p (memq (epg-signature-validity (car pgg-epg-signatures)) @@ -243,6 +265,12 @@ Add all public keys in region between START and END to the keyring." "From unknown user"))) "From unknown user")) +(defun pgg-epg-lookup-key (string &optional type) + "Search keys associated with STRING." + (mapcar (lambda (key) + (epg-sub-key-id (car (epg-key-sub-key-list key)))) + (epg-list-keys (epg-make-context) string (not (null type))))) + (provide 'pgg-epg) ;;; pgg-epg.el ends here