64/d65ef60b4ac86716ab9d43c57e9697ff536a05

   1 Return-Path: <amdragon@mit.edu>\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 182E6431E82\r
   6         for <notmuch@notmuchmail.org>; Tue,  3 Sep 2013 14:45:40 -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: -0.7\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\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 tK-09TKo+Jne for <notmuch@notmuchmail.org>;\r
  16         Tue,  3 Sep 2013 14:45:32 -0700 (PDT)\r
  17 Received: from dmz-mailsec-scanner-8.mit.edu (dmz-mailsec-scanner-8.mit.edu\r
  18         [18.7.68.37])\r
  19         by olra.theworths.org (Postfix) with ESMTP id 8243A431FD6\r
  20         for <notmuch@notmuchmail.org>; Tue,  3 Sep 2013 14:45:32 -0700 (PDT)\r
  21 X-AuditID: 12074425-b7f0c8e000000953-9c-5226587b54af\r
  22 Received: from mailhub-auth-2.mit.edu ( [18.7.62.36])\r
  23         by dmz-mailsec-scanner-8.mit.edu (Symantec Messaging Gateway) with SMTP\r
  24         id 56.EF.02387.B7856225; Tue,  3 Sep 2013 17:45:31 -0400 (EDT)\r
  25 Received: from outgoing.mit.edu (outgoing-auth-1.mit.edu [18.9.28.11])\r
  26         by mailhub-auth-2.mit.edu (8.13.8/8.9.2) with ESMTP id r83LjU0t019874; \r
  27         Tue, 3 Sep 2013 17:45:31 -0400\r
  28 Received: from drake.dyndns.org (26-4-182.dynamic.csail.mit.edu [18.26.4.182])\r
  29         (authenticated bits=0)\r
  30         (User authenticated as amdragon@ATHENA.MIT.EDU)\r
  31         by outgoing.mit.edu (8.13.8/8.12.4) with ESMTP id r83LjRfQ026866\r
  32         (version=TLSv1/SSLv3 cipher=AES256-SHA bits=256 verify=NOT);\r
  33         Tue, 3 Sep 2013 17:45:28 -0400\r
  34 Received: from amthrax by drake.dyndns.org with local (Exim 4.77)\r
  35         (envelope-from <amdragon@mit.edu>)\r
  36         id 1VGyPf-0004yF-0W; Tue, 03 Sep 2013 17:45:27 -0400\r
  37 From: Austin Clements <amdragon@MIT.EDU>\r
  38 To: notmuch@notmuchmail.org\r
  39 Subject: [PATCH v2 9/9] emacs: Move ?, q, s, m, =, and G to the common keymap\r
  40 Date: Tue,  3 Sep 2013 17:45:25 -0400\r
  41 Message-Id: <1378244725-18846-10-git-send-email-amdragon@mit.edu>\r
  42 X-Mailer: git-send-email 1.7.10.4\r
  43 In-Reply-To: <1378244725-18846-1-git-send-email-amdragon@mit.edu>\r
  44 References: <1378244725-18846-1-git-send-email-amdragon@mit.edu>\r
  45 X-Brightmail-Tracker:\r
  46  H4sIAAAAAAAAA+NgFjrKIsWRmVeSWpSXmKPExsUixG6nolsdoRZk8P2MhUXTdGeL1XN5LK7f\r
  47         nMnswOyxc9Zddo9b91+zezxbdYs5gDmKyyYlNSezLLVI3y6BK6PzdgNrwVnViic9a1kaGBfJ\r
  48         dzFyckgImEh8/zuRFcIWk7hwbz0biC0ksI9R4tGsmC5GLiB7A6PEhi39rBDOYSaJnWu6mCCc\r
  49         uYwSU94vYgdpYRPQkNi2fzkjiC0iIC2x8+5ssLHMAtESRy7PABsrLOArsePjdSYQm0VAVeLk\r
  50         1Adg9bwCjhLf7ixjhzhDUaL72QSwek6geO8CiPlCAg4STSsvs09g5F/AyLCKUTYlt0o3NzEz\r
  51         pzg1Wbc4OTEvL7VI10IvN7NELzWldBMjOLRcVHcwTjikdIhRgINRiYd3xX3VICHWxLLiytxD\r
  52         jJIcTEqivEdC1YKE+JLyUyozEosz4otKc1KLDzFKcDArifAm+ADleFMSK6tSi/JhUtIcLEri\r
  53         vM+fng0UEkhPLEnNTk0tSC2CycpwcChJ8K4PB2oULEpNT61Iy8wpQUgzcXCCDOcBGv4SpIa3\r
  54         uCAxtzgzHSJ/ilFRSpx3PkhCACSRUZoH1wuL/VeM4kCvCPMeB6niAaYNuO5XQIOZgAanfVYF\r
  55         GVySiJCSamD0V97x/d9595s7ZddyeUqdXZh92LM8tDSb2e/qJEkt61vh37ZbnpBKy9Bi+KBS\r
  56         4GrzrKcodPr73ls/TzRI+YfOchPQy/y46UNgl+m77wcyk8uStc2sv1/h0RB5Xsp03mjav1Xq\r
  57         /jxJAbvPMDl+k09ofLD9jmL1qh0uznMWnmr8cvcqG9+x9p1KLMUZiYZazEXFiQDqZrWX2AIA        AA==\r
  58 X-BeenThere: notmuch@notmuchmail.org\r
  59 X-Mailman-Version: 2.1.13\r
  60 Precedence: list\r
  61 List-Id: "Use and development of the notmuch mail system."\r
  62         <notmuch.notmuchmail.org>\r
  63 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  64         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  65 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  66 List-Post: <mailto:notmuch@notmuchmail.org>\r
  67 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  68 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  69         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  70 X-List-Received-Date: Tue, 03 Sep 2013 21:45:41 -0000\r
  71 \r
  72 The only user-visible effect of this should be that "G" now works in\r
  73 show mode (previously it was unbound for no apparent reason).\r
  74 \r
  75 This shared keymap gives us one place to put global commands, which\r
  76 both forces us to think about what commands should be global, and\r
  77 ensures their bindings can't diverge (like the missing "G" in show).\r
  78 ---\r
  79  emacs/notmuch-hello.el |    6 ------\r
  80  emacs/notmuch-lib.el   |    6 ++++++\r
  81  emacs/notmuch-show.el  |    5 -----\r
  82  emacs/notmuch.el       |    6 ------\r
  83  4 files changed, 6 insertions(+), 17 deletions(-)\r
  84 \r
  85 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
  86 index 46baf55..55c416a 100644\r
  87 --- a/emacs/notmuch-hello.el\r
  88 +++ b/emacs/notmuch-hello.el\r
  89 @@ -525,13 +525,7 @@ Such a list can be computed with `notmuch-hello-query-counts'."\r
  90      (set-keymap-parent map notmuch-common-keymap)\r
  91      (define-key map "v" (lambda () "Display the notmuch version" (interactive)\r
  92                           (message "notmuch version %s" (notmuch-version))))\r
  93 -    (define-key map "?" 'notmuch-help)\r
  94 -    (define-key map "q" 'notmuch-kill-this-buffer)\r
  95 -    (define-key map "=" 'notmuch-refresh-this-buffer)\r
  96 -    (define-key map "G" 'notmuch-poll-and-refresh-this-buffer)\r
  97      (define-key map (kbd "<C-tab>") 'widget-backward)\r
  98 -    (define-key map "m" 'notmuch-mua-new-mail)\r
  99 -    (define-key map "s" 'notmuch-search)\r
 100      map)\r
 101    "Keymap for \"notmuch hello\" buffers.")\r
 102  (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)\r
 103 diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el\r
 104 index 2bf1d2f..58f3313 100644\r
 105 --- a/emacs/notmuch-lib.el\r
 106 +++ b/emacs/notmuch-lib.el\r
 107 @@ -130,6 +130,12 @@ For example, if you wanted to remove an \"inbox\" tag and add an\r
 108  \r
 109  (defvar notmuch-common-keymap\r
 110    (let ((map (make-sparse-keymap)))\r
 111 +    (define-key map "?" 'notmuch-help)\r
 112 +    (define-key map "q" 'notmuch-kill-this-buffer)\r
 113 +    (define-key map "s" 'notmuch-search)\r
 114 +    (define-key map "m" 'notmuch-mua-new-mail)\r
 115 +    (define-key map "=" 'notmuch-refresh-this-buffer)\r
 116 +    (define-key map "G" 'notmuch-poll-and-refresh-this-buffer)\r
 117      map)\r
 118    "Keymap shared by all notmuch modes.")\r
 119  \r
 120 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
 121 index 9f67340..9d8b785 100644\r
 122 --- a/emacs/notmuch-show.el\r
 123 +++ b/emacs/notmuch-show.el\r
 124 @@ -1265,14 +1265,10 @@ reset based on the original query."\r
 125  (defvar notmuch-show-mode-map\r
 126        (let ((map (make-sparse-keymap)))\r
 127         (set-keymap-parent map notmuch-common-keymap)\r
 128 -       (define-key map "?" 'notmuch-help)\r
 129 -       (define-key map "q" 'notmuch-kill-this-buffer)\r
 130         (define-key map (kbd "<C-tab>") 'widget-backward)\r
 131         (define-key map (kbd "M-TAB") 'notmuch-show-previous-button)\r
 132         (define-key map (kbd "<backtab>") 'notmuch-show-previous-button)\r
 133         (define-key map (kbd "TAB") 'notmuch-show-next-button)\r
 134 -       (define-key map "s" 'notmuch-search)\r
 135 -       (define-key map "m" 'notmuch-mua-new-mail)\r
 136         (define-key map "f" 'notmuch-show-forward-message)\r
 137         (define-key map "r" 'notmuch-show-reply-sender)\r
 138         (define-key map "R" 'notmuch-show-reply)\r
 139 @@ -1280,7 +1276,6 @@ reset based on the original query."\r
 140         (define-key map "w" 'notmuch-show-save-attachments)\r
 141         (define-key map "V" 'notmuch-show-view-raw-message)\r
 142         (define-key map "c" 'notmuch-show-stash-map)\r
 143 -       (define-key map "=" 'notmuch-refresh-this-buffer)\r
 144         (define-key map "h" 'notmuch-show-toggle-visibility-headers)\r
 145         (define-key map "*" 'notmuch-show-tag-all)\r
 146         (define-key map "-" 'notmuch-show-remove-tag)\r
 147 diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
 148 index e098bd7..4de6229 100644\r
 149 --- a/emacs/notmuch.el\r
 150 +++ b/emacs/notmuch.el\r
 151 @@ -199,8 +199,6 @@ first line of documentation for the bound function."\r
 152  (defvar notmuch-search-mode-map\r
 153    (let ((map (make-sparse-keymap)))\r
 154      (set-keymap-parent map notmuch-common-keymap)\r
 155 -    (define-key map "?" 'notmuch-help)\r
 156 -    (define-key map "q" 'notmuch-kill-this-buffer)\r
 157      (define-key map "x" 'notmuch-kill-this-buffer)\r
 158      (define-key map (kbd "<DEL>") 'notmuch-search-scroll-down)\r
 159      (define-key map "b" 'notmuch-search-scroll-down)\r
 160 @@ -211,12 +209,8 @@ first line of documentation for the bound function."\r
 161      (define-key map "n" 'notmuch-search-next-thread)\r
 162      (define-key map "r" 'notmuch-search-reply-to-thread-sender)\r
 163      (define-key map "R" 'notmuch-search-reply-to-thread)\r
 164 -    (define-key map "m" 'notmuch-mua-new-mail)\r
 165 -    (define-key map "s" 'notmuch-search)\r
 166      (define-key map "o" 'notmuch-search-toggle-order)\r
 167      (define-key map "c" 'notmuch-search-stash-map)\r
 168 -    (define-key map "=" 'notmuch-refresh-this-buffer)\r
 169 -    (define-key map "G" 'notmuch-poll-and-refresh-this-buffer)\r
 170      (define-key map "t" 'notmuch-search-filter-by-tag)\r
 171      (define-key map "f" 'notmuch-search-filter)\r
 172      (define-key map [mouse-1] 'notmuch-search-show-thread)\r
 173 -- \r
 174 1.7.10.4\r
 175 \r