diff options
| author | David Edmondson <dme@dme.org> | 2019-09-11 21:33:00 -0400 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2019-12-14 07:23:42 -0400 |
| commit | a7884929d51790ed2782b04ba5b5e466d7148a63 (patch) | |
| tree | ed05ed989d43e8eb4828e8fd7492ba2de0f60e89 | |
| parent | d137affaceb78d7a54bdd62995c1ffa1fba4308b (diff) | |
emacs: Improve the reporting of key activity
Improve the information provided about key retrieval and key validity.
| -rw-r--r-- | emacs/notmuch-crypto.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/emacs/notmuch-crypto.el b/emacs/notmuch-crypto.el index 9b615a0f..f4585d5e 100644 --- a/emacs/notmuch-crypto.el +++ b/emacs/notmuch-crypto.el @@ -149,13 +149,16 @@ by user FROM." (insert "\n")))) (defun notmuch-crypto-sigstatus-good-callback (button) - (let* ((sigstatus (button-get button :notmuch-sigstatus)) + (let* ((id (notmuch-show-get-message-id)) + (sigstatus (button-get button :notmuch-sigstatus)) (fingerprint (concat "0x" (plist-get sigstatus :fingerprint))) (buffer (get-buffer-create "*notmuch-crypto-gpg-out*")) (window (display-buffer buffer))) (with-selected-window window (with-current-buffer buffer (goto-char (point-max)) + (insert (format "-- Key %s in message %s:\n" + fingerprint id)) (call-process notmuch-crypto-gpg-program nil t t "--batch" "--no-tty" "--list-keys" fingerprint)) (recenter -1)))) @@ -211,10 +214,14 @@ corresponding key when the status button is pressed." (progn (notmuch-crypto--set-button-label button (format "Retrieving key %s asynchronously..." keyid)) + (with-current-buffer buffer + (goto-char (point-max)) + (insert (format "--- Retrieving key %s:\n" keyid))) (let ((p (make-process :name "notmuch GPG key retrieval" + :connection-type 'pipe :buffer buffer + :stderr buffer :command (list notmuch-crypto-gpg-program "--recv-keys" keyid) - :connection-type 'pipe :sentinel #'notmuch-crypto--async-key-sentinel ;; Create the process stopped so that ;; we have time to store the key id, @@ -230,6 +237,7 @@ corresponding key when the status button is pressed." (with-selected-window window (with-current-buffer buffer (goto-char (point-max)) + (insert (format "--- Retrieving key %s:\n" keyid)) (call-process notmuch-crypto-gpg-program nil t t "--recv-keys" keyid) (insert "\n") (call-process notmuch-crypto-gpg-program nil t t "--list-keys" keyid)) |