[PATCH] VIM: Add a 'tag all' folder option.

diff --git a/67/1497446c57ddc19da65b6b532868da49fd810b b/67/1497446c57ddc19da65b6b532868da49fd810b
new file mode 100644 (file)
index 0000000..bf3bd5f
--- /dev/null
+++ b/67/1497446c57ddc19da65b6b532868da49fd810b
@@ -0,0 +1,85 @@
+Return-Path: <imain@stemwinder.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 10A3E431FBC\r
+       for <notmuch@notmuchmail.org>; Wed,  1 Oct 2014 12:43:44 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0 tagged_above=-999 required=5\r
+       tests=[RCVD_IN_DNSWL_NONE=-0.0001] 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 OB5eh8ss83iO for <notmuch@notmuchmail.org>;\r
+       Wed,  1 Oct 2014 12:43:40 -0700 (PDT)\r
+Received: from cmta5.telus.net (cmta5.telus.net [209.171.16.78])\r
+       by olra.theworths.org (Postfix) with ESMTP id AF52B431FB6\r
+       for <notmuch@notmuchmail.org>; Wed,  1 Oct 2014 12:43:40 -0700 (PDT)\r
+Received: from ovo.mains.priv ([207.102.88.62]) by cmta5.telus.net with TELUS\r
+       id xvje1o00R1LiWEf01vjekt; Wed, 01 Oct 2014 13:43:39 -0600\r
+X-Authority-Analysis: v=2.0 cv=JvIvWrEC c=1 sm=2\r
+       a=EcQDfIwDZEqJA1f7rVUV8Q==:17 a=S-IsBHyFrF4A:10 a=tsa3CZZnAAAA:8\r
+       a=ANjgZLozyFeyC-GoRkwA:9 a=EcQDfIwDZEqJA1f7rVUV8Q==:117\r
+X-Telus-Outbound-IP: 207.102.88.62\r
+From: Ian Main <imain@stemwinder.org>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] VIM: Add a 'tag all' folder option.\r
+Date: Wed,  1 Oct 2014 12:43:33 -0700\r
+Message-Id: <1412192613-16552-1-git-send-email-imain@stemwinder.org>\r
+X-Mailer: git-send-email 1.9.3\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: Wed, 01 Oct 2014 19:43:44 -0000\r
+\r
+This adds the ability to mark an entire folder as read (or any other\r
+tags you like once you map it).\r
+\r
+    Ian\r
+---\r
+ vim/notmuch.vim | 11 +++++++++++\r
+ 1 file changed, 11 insertions(+)\r
+\r
+diff --git a/vim/notmuch.vim b/vim/notmuch.vim\r
+index 331e930..3f2444b 100644\r
+--- a/vim/notmuch.vim\r
++++ b/vim/notmuch.vim\r
+@@ -11,6 +11,7 @@ let g:loaded_notmuch = "yep"\r
+ let g:notmuch_folders_maps = {\r
+       \ '<Enter>':    'folders_show_search()',\r
+       \ 's':          'folders_search_prompt()',\r
++      \ 'A':          'folders_tag_all("-inbox -unread")',\r
+       \ '=':          'folders_refresh()',\r
+       \ 'c':          'compose()',\r
+       \ }\r
+@@ -378,6 +379,16 @@ ruby << EOF\r
+ EOF\r
+ endfunction\r
+ \r
++function! s:folders_tag_all(tags)\r
++ruby << EOF\r
++      n = $curbuf.line_number\r
++      s = $searches[n - 1]\r
++      t = VIM::evaluate('a:tags')\r
++      do_tag(s, t)\r
++EOF\r
++      call s:folders_refresh()\r
++endfunction\r
++\r
+ function! s:folders()\r
+       call s:new_buffer('folders')\r
+       ruby folders_render()\r
+-- \r
+1.9.3\r
+\r