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

diff --git a/64/741f261bbd6d58c13dfdc222e376fc733735bd b/64/741f261bbd6d58c13dfdc222e376fc733735bd
new file mode 100644 (file)
index 0000000..893f6b0
--- /dev/null
+++ b/64/741f261bbd6d58c13dfdc222e376fc733735bd
@@ -0,0 +1,87 @@
+Return-Path: <dme@dme.org>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 0017A431FBF\r
+       for <notmuch@notmuchmail.org>; Tue,  7 Feb 2012 09:26:18 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -0.7\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
+       tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id wv5TMkz1yeXT for <notmuch@notmuchmail.org>;\r
+       Tue,  7 Feb 2012 09:26:18 -0800 (PST)\r
+Received: from mail-ww0-f41.google.com (mail-ww0-f41.google.com\r
+ [74.125.82.41])       (using TLSv1 with cipher RC4-SHA (128/128 bits))        (No client\r
+ certificate requested)        by olra.theworths.org (Postfix) with ESMTPS id\r
+ 4BAEB431FAE   for <notmuch@notmuchmail.org>; Tue,  7 Feb 2012 09:26:18 -0800\r
+ (PST)\r
+Received: by wgbdt11 with SMTP id dt11so4495275wgb.2\r
+       for <notmuch@notmuchmail.org>; Tue, 07 Feb 2012 09:26:15 -0800 (PST)\r
+MIME-Version: 1.0\r
+Received: by 10.216.138.130 with SMTP id a2mr5514072wej.42.1328635575590;\r
+       Tue, 07 Feb 2012 09:26:15 -0800 (PST)\r
+Received: from hotblack-desiato.hh.sledj.net\r
+       (host81-149-164-25.in-addr.btopenworld.com. [81.149.164.25])\r
+       by mx.google.com with ESMTPS id hb10sm5689817wib.10.2012.02.07.09.26.13\r
+       (version=TLSv1/SSLv3 cipher=OTHER);\r
+       Tue, 07 Feb 2012 09:26:14 -0800 (PST)\r
+Received: by hotblack-desiato.hh.sledj.net (Postfix, from userid 30000)\r
+       id 31F7FA0F06; Tue,  7 Feb 2012 17:26:12 +0000 (GMT)\r
+From: David Edmondson <dme@dme.org>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] emacs: Ensure that gnupg output goes at the end of the\r
+ buffer.\r
+Date: Tue,  7 Feb 2012 17:26:11 +0000\r
+Message-Id: <1328635571-20622-1-git-send-email-dme@dme.org>\r
+X-Mailer: git-send-email 1.7.8.3\r
+X-Gm-Message-State:\r
+ ALoCoQmuscVKaZ1SMin70XEnqmQ9k9iDV3kt3y4XTrwXFPD/caT5VXZcehNlPJPSjCmk2tcf0z6W\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Tue, 07 Feb 2012 17:26:19 -0000\r
+\r
+When showing the user some details of gnupg output, ensure that those\r
+details are shown at the end of the gnupg status buffer\r
+("*notmuch-crypto-gpg-out*"), otherwise it can end up mixed up with\r
+earlier output.\r
+---\r
+ emacs/notmuch-crypto.el |    2 ++\r
+ 1 files changed, 2 insertions(+), 0 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-crypto.el b/emacs/notmuch-crypto.el\r
+index 80ac350..c7ef1eb 100644\r
+--- a/emacs/notmuch-crypto.el\r
++++ b/emacs/notmuch-crypto.el\r
+@@ -129,6 +129,7 @@ mode."\r
+        (window (display-buffer buffer t nil)))\r
+     (with-selected-window window\r
+       (with-current-buffer buffer\r
++      (goto-char (point-max))\r
+       (call-process "gpg" nil t t "--list-keys" fingerprint))\r
+       (recenter -1))))\r
+ \r
+@@ -139,6 +140,7 @@ mode."\r
+        (window (display-buffer buffer t nil)))\r
+     (with-selected-window window\r
+       (with-current-buffer buffer\r
++      (goto-char (point-max))\r
+       (call-process "gpg" nil t t "--recv-keys" keyid)\r
+       (insert "\n")\r
+       (call-process "gpg" nil t t "--list-keys" keyid))\r
+-- \r
+1.7.8.3\r
+\r