debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Ensure that gnupg output goes at the end of the buffer.

Browse source 
When showing the user some details of gnupg output, ensure that those
details are shown at the end of the gnupg status buffer
("*notmuch-crypto-gpg-out*"), otherwise it can end up mixed up with
earlier output.
This commit is contained in:
David Edmondson 2012-02-07 17:26:11 +00:00 committed by David Bremner
parent 2c8959dad8
commit 5d021e52e2
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/notmuch-crypto.el
View file

@ -129,6 +129,7 @@ mode."
(window (display-buffer buffer t nil))) (window (display-buffer buffer t nil)))
(with-selected-window window (with-selected-window window
(with-current-buffer buffer (with-current-buffer buffer
(goto-char (point-max))
(call-process "gpg" nil t t "--list-keys" fingerprint)) (call-process "gpg" nil t t "--list-keys" fingerprint))
(recenter -1)))) (recenter -1))))
@ -139,6 +140,7 @@ mode."
(window (display-buffer buffer t nil))) (window (display-buffer buffer t nil)))
(with-selected-window window (with-selected-window window
(with-current-buffer buffer (with-current-buffer buffer
(goto-char (point-max))
(call-process "gpg" nil t t "--recv-keys" keyid) (call-process "gpg" nil t t "--recv-keys" keyid)
(insert "\n") (insert "\n")
(call-process "gpg" nil t t "--list-keys" keyid)) (call-process "gpg" nil t t "--list-keys" keyid))