4d/2ec51061823b1ab4ff7dabae458fe230cfbc43

   1 Return-Path: <jrollins@finestructure.net>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 9074740BFD5\r
   6         for <notmuch@notmuchmail.org>; Sat, 18 Sep 2010 12:49:05 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -4.2\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-4.2 tagged_above=-999 required=5\r
  12         tests=[BAYES_00=-1.9, RCVD_IN_DNSWL_MED=-2.3] autolearn=ham\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id BS8Qg6gDcpXd for <notmuch@notmuchmail.org>;\r
  16         Sat, 18 Sep 2010 12:48:52 -0700 (PDT)\r
  17 Received: from serrano.cc.columbia.edu (serrano.cc.columbia.edu [128.59.29.6])\r
  18         by olra.theworths.org (Postfix) with ESMTP id C084440BD85\r
  19         for <notmuch@notmuchmail.org>; Sat, 18 Sep 2010 12:48:52 -0700 (PDT)\r
  20 Received: from servo.finestructure.net (cpe-67-243-144-42.nyc.res.rr.com\r
  21         [67.243.144.42])\r
  22         (user=jgr2110 author=jrollins@finestructure.net mech=PLAIN bits=0)\r
  23         by serrano.cc.columbia.edu (8.14.4/8.14.3) with ESMTP id o8IJmoq1017278\r
  24         (version=TLSv1/SSLv3 cipher=AES256-SHA bits=256 verify=NOT)\r
  25         for <notmuch@notmuchmail.org>; Sat, 18 Sep 2010 15:48:52 -0400 (EDT)\r
  26 Received: from jrollins by servo.finestructure.net with local (Exim 4.72)\r
  27         (envelope-from <jrollins@finestructure.net>)\r
  28         id 1Ox3P0-00080I-CJ; Sat, 18 Sep 2010 15:48:50 -0400\r
  29 From: Jameson Rollins <jrollins@finestructure.net>\r
  30 To: notmuch@notmuchmail.org\r
  31 Subject: [PATCH 2/2] emacs: add stash thread-id function to notmuch-search\r
  32  mode\r
  33 Date: Sat, 18 Sep 2010 15:48:22 -0400\r
  34 Message-Id: <1284839302-30583-2-git-send-email-jrollins@finestructure.net>\r
  35 X-Mailer: git-send-email 1.7.1\r
  36 In-Reply-To: <1284839302-30583-1-git-send-email-jrollins@finestructure.net>\r
  37 References: <1284839302-30583-1-git-send-email-jrollins@finestructure.net>\r
  38 X-No-Spam-Score: Local\r
  39 X-Scanned-By: MIMEDefang 2.68 on 128.59.29.6\r
  40 X-BeenThere: notmuch@notmuchmail.org\r
  41 X-Mailman-Version: 2.1.13\r
  42 Precedence: list\r
  43 List-Id: "Use and development of the notmuch mail system."\r
  44         <notmuch.notmuchmail.org>\r
  45 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  46         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  47 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  48 List-Post: <mailto:notmuch@notmuchmail.org>\r
  49 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  50 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  51         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  52 X-List-Received-Date: Sat, 18 Sep 2010 19:49:05 -0000\r
  53 \r
  54 This add a "stash-map" for search-mode, just like in show-mode, and\r
  55 adds one function, bound to "i" to stash the thread-id of the current\r
  56 selected thread.\r
  57 \r
  58 Couldn't think of the correct way to stash other thread info, so I\r
  59 didn't add any other stash functions for now.\r
  60 ---\r
  61  emacs/notmuch.el |   13 +++++++++++++\r
  62  1 files changed, 13 insertions(+), 0 deletions(-)\r
  63 \r
  64 diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
  65 index fe1041f..c8486ba 100644\r
  66 --- a/emacs/notmuch.el\r
  67 +++ b/emacs/notmuch.el\r
  68 @@ -207,6 +207,7 @@ For a mouse binding, return nil."\r
  69      (define-key map "m" 'notmuch-mua-mail)\r
  70      (define-key map "s" 'notmuch-search)\r
  71      (define-key map "o" 'notmuch-search-toggle-order)\r
  72 +    (define-key map "c" 'notmuch-search-stash-map)\r
  73      (define-key map "=" 'notmuch-search-refresh-view)\r
  74      (define-key map "G" 'notmuch-search-poll-and-refresh-view)\r
  75      (define-key map "t" 'notmuch-search-filter-by-tag)\r
  76 @@ -221,6 +222,18 @@ For a mouse binding, return nil."\r
  77    "Keymap for \"notmuch search\" buffers.")\r
  78  (fset 'notmuch-search-mode-map notmuch-search-mode-map)\r
  79  \r
  80 +(defvar notmuch-search-stash-map\r
  81 +  (let ((map (make-sparse-keymap)))\r
  82 +    (define-key map "i" 'notmuch-search-stash-thread-id)\r
  83 +    map)\r
  84 +  "Submap for stash commands")\r
  85 +(fset 'notmuch-search-stash-map notmuch-search-stash-map)\r
  86 +\r
  87 +(defun notmuch-search-stash-thread-id ()\r
  88 +  "Copy thread ID of current thread to kill-ring."\r
  89 +  (interactive)\r
  90 +  (notmuch-common-do-stash (notmuch-search-find-thread-id)))\r
  91 +\r
  92  (defvar notmuch-search-query-string)\r
  93  (defvar notmuch-search-target-thread)\r
  94  (defvar notmuch-search-target-line)\r
  95 -- \r
  96 1.7.1\r
  97 \r