[PATCH] emacs: add keybind and function to stash Message-ID without prefix

diff --git a/62/dbeae18e6f2f3886c8481700fa7b7fb1ec448e b/62/dbeae18e6f2f3886c8481700fa7b7fb1ec448e
new file mode 100644 (file)
index 0000000..736e234
--- /dev/null
+++ b/62/dbeae18e6f2f3886c8481700fa7b7fb1ec448e
@@ -0,0 +1,91 @@
+Return-Path: <pieter@praet.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 65CDF41ED8F\r
+       for <notmuch@notmuchmail.org>; Thu, 30 Jun 2011 01:20:57 -0700 (PDT)\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 CL7eDGPOVK+Q for <notmuch@notmuchmail.org>;\r
+       Thu, 30 Jun 2011 01:20:56 -0700 (PDT)\r
+Received: from mail-wy0-f181.google.com (mail-wy0-f181.google.com\r
+       [74.125.82.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id 96A8641ED8E\r
+       for <notmuch@notmuchmail.org>; Thu, 30 Jun 2011 01:20:56 -0700 (PDT)\r
+Received: by wyh22 with SMTP id 22so1529362wyh.26\r
+       for <notmuch@notmuchmail.org>; Thu, 30 Jun 2011 01:20:55 -0700 (PDT)\r
+Received: by 10.216.10.132 with SMTP id 4mr1536367wev.38.1309422055377;\r
+       Thu, 30 Jun 2011 01:20:55 -0700 (PDT)\r
+Received: from localhost ([109.131.21.173])\r
+       by mx.google.com with ESMTPS id u38sm189024weq.13.2011.06.30.01.20.53\r
+       (version=TLSv1/SSLv3 cipher=OTHER);\r
+       Thu, 30 Jun 2011 01:20:54 -0700 (PDT)\r
+From: Pieter Praet <pieter@praet.org>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] emacs: add keybind and function to stash Message-ID without\r
+       prefix\r
+Date: Thu, 30 Jun 2011 10:20:50 +0200\r
+Message-Id: <1309422050-23241-1-git-send-email-pieter@praet.org>\r
+X-Mailer: git-send-email 1.7.4.1\r
+In-Reply-To: <877hbiep5g.fsf@SSpaeth.de>\r
+References: <877hbiep5g.fsf@SSpaeth.de>\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: Thu, 30 Jun 2011 08:20:57 -0000\r
+\r
+Add function `notmuch-show-stash-message-id-stripped'\r
+which stashes a Message-ID after ripping off the prefix and quotes,\r
+add bind it to "I" key in `notmuch-show-stash-map'.\r
+\r
+Simplifying `notmuch-show-get-message-id' instead might seem better,\r
+but that would require concat'ing in 9 places instead of 1.\r
+\r
+Signed-off-by: Pieter Praet <pieter@praet.org>\r
+---\r
+ emacs/notmuch-show.el |    6 ++++++\r
+ 1 files changed, 6 insertions(+), 0 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
+index 6685717..a703732 100644\r
+--- a/emacs/notmuch-show.el\r
++++ b/emacs/notmuch-show.el\r
+@@ -858,6 +858,7 @@ function is used. "\r
+     (define-key map "F" 'notmuch-show-stash-filename)\r
+     (define-key map "f" 'notmuch-show-stash-from)\r
+     (define-key map "i" 'notmuch-show-stash-message-id)\r
++    (define-key map "I" 'notmuch-show-stash-message-id-stripped)\r
+     (define-key map "s" 'notmuch-show-stash-subject)\r
+     (define-key map "T" 'notmuch-show-stash-tags)\r
+     (define-key map "t" 'notmuch-show-stash-to)\r
+@@ -1408,6 +1409,11 @@ buffer."\r
+   (interactive)\r
+   (notmuch-common-do-stash (notmuch-show-get-message-id)))\r
+ \r
++(defun notmuch-show-stash-message-id-stripped ()\r
++  "Copy message ID of current message (sans `id:' prefix) to kill-ring."\r
++  (interactive)\r
++  (notmuch-common-do-stash (substring (notmuch-show-get-message-id) 4 -1)))\r
++\r
+ (defun notmuch-show-stash-subject ()\r
+   "Copy Subject field of current message to kill-ring."\r
+   (interactive)\r
+-- \r
+1.7.4.1\r
+\r