--- /dev/null
+Return-Path: <sojkam1@fel.cvut.cz>\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 9B65D431FC1\r
+ for <notmuch@notmuchmail.org>; Thu, 3 Jun 2010 23:38:08 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -1.9\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5\r
+ tests=[BAYES_00=-1.9] autolearn=ham\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 exRwSez3qCl3 for <notmuch@notmuchmail.org>;\r
+ Thu, 3 Jun 2010 23:37:52 -0700 (PDT)\r
+Received: from max.feld.cvut.cz (max.feld.cvut.cz [147.32.192.36])\r
+ by olra.theworths.org (Postfix) with ESMTP id CE0A44196F0\r
+ for <notmuch@notmuchmail.org>; Thu, 3 Jun 2010 23:37:51 -0700 (PDT)\r
+Received: from localhost (unknown [192.168.200.4])\r
+ by max.feld.cvut.cz (Postfix) with ESMTP id 33BF119F33AB;\r
+ Fri, 4 Jun 2010 08:37:51 +0200 (CEST)\r
+X-Virus-Scanned: IMAP AMAVIS\r
+Received: from max.feld.cvut.cz ([192.168.200.1])\r
+ by localhost (styx.feld.cvut.cz [192.168.200.4]) (amavisd-new,\r
+ port 10044)\r
+ with ESMTP id tbpWisIMg7XS; Fri, 4 Jun 2010 08:37:49 +0200 (CEST)\r
+Received: from imap.feld.cvut.cz (imap.feld.cvut.cz [147.32.192.34])\r
+ by max.feld.cvut.cz (Postfix) with ESMTP id B0DCB19F33A4;\r
+ Fri, 4 Jun 2010 08:37:49 +0200 (CEST)\r
+Received: from steelpick.2x.cz (k335-30.felk.cvut.cz [147.32.86.30])\r
+ (Authenticated sender: sojkam1)\r
+ by imap.feld.cvut.cz (Postfix) with ESMTPSA id 9C152106001;\r
+ Fri, 4 Jun 2010 08:37:49 +0200 (CEST)\r
+Received: from wsh by steelpick.2x.cz with local (Exim 4.71)\r
+ (envelope-from <sojkam1@fel.cvut.cz>)\r
+ id 1OKQXN-0004Su-EU; Fri, 04 Jun 2010 08:37:49 +0200\r
+From: Michal Sojka <sojkam1@fel.cvut.cz>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH RFC] notmuch-hello: What's in your inbox\r
+Date: Fri, 4 Jun 2010 08:37:29 +0200\r
+Message-Id: <1275633449-17134-1-git-send-email-sojkam1@fel.cvut.cz>\r
+X-Mailer: git-send-email 1.7.1.3.g75e44\r
+In-Reply-To: <87wrufjocx.fsf@steelpick.2x.cz>\r
+References: <87wrufjocx.fsf@steelpick.2x.cz>\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: Fri, 04 Jun 2010 06:38:09 -0000\r
+\r
+Hello,\r
+\r
+I found myself very often adding something like 'tag:inbox and ...' to\r
+the saved searches. I want my messages to be tagged by mailing list so\r
+whenever I subscribe to a new mailing list I have to update both the\r
+tagging script and saved searches. This work duplication doesn't seem\r
+ideal for me so here is a patch, which shows a section "What's in your\r
+inbox" in notmuch-hello screen. This section contains all tags of\r
+messages that are tagged by "inbox".\r
+\r
+It would be nice to have some configuration for the "What's in your\r
+inbox" section - for example to specify which tags are not interesting\r
+for me (e.g. unread).\r
+\r
+I'm not sure whether the patch applies to recent dme's notmuch-hello\r
+updates. If not, I'll rebase it as soon as these patches appear in\r
+master.\r
+\r
+Signed-off-by: Michal Sojka <sojkam1@fel.cvut.cz>\r
+\r
+---\r
+ emacs/notmuch-hello.el | 39 +++++++++++++++++++++++++++++++++++++--\r
+ 1 files changed, 37 insertions(+), 2 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
+index 6a1c56e..e61f37a 100644\r
+--- a/emacs/notmuch-hello.el\r
++++ b/emacs/notmuch-hello.el\r
+@@ -55,6 +55,11 @@\r
+ :type 'boolean\r
+ :group 'notmuch)\r
+ \r
++(defcustom notmuch-show-inbox-tags-list nil\r
++ "Should all tags in your inbox be shown in the notmuch-hello view?"\r
++ :type 'boolean\r
++ :group 'notmuch)\r
++\r
+ (defface notmuch-hello-logo-background\r
+ '((((class color)\r
+ (background dark))\r
+@@ -289,7 +294,36 @@ diagonal."\r
+ (mapcar '(lambda (tag) (cons tag (concat "tag:" tag)))\r
+ (process-lines notmuch-command "search-tags"))))\r
+ (alltags-widest (notmuch-hello-longest-label alltags-alist))\r
+- (widest (max saved-widest alltags-widest)))\r
++ (inboxtags-alist (if notmuch-show-inbox-tags-list\r
++ (mapcar '(lambda (tag) (cons tag (concat "tag:inbox and tag:" tag)))\r
++ (process-lines notmuch-command "search-tags" "tag:inbox"))))\r
++ (inboxtags-widest (notmuch-hello-longest-label inboxtags-alist))\r
++ (widest (max saved-widest alltags-widest inboxtags-widest)))\r
++\r
++\r
++ (when inboxtags-alist\r
++ (widget-insert "What's in your inbox: ")\r
++ (widget-create 'push-button\r
++ :notify (lambda (widget &rest ignore)\r
++ (setq notmuch-show-inbox-tags-list nil)\r
++ (notmuch-hello-update))\r
++ "hide")\r
++ (widget-insert "\n\n")\r
++ (setq final-target-pos (point-marker))\r
++ (let ((start (point)))\r
++ (setq found-target-pos (notmuch-hello-insert-tags inboxtags-alist widest target))\r
++ (if (not final-target-pos)\r
++ (setq final-target-pos found-target-pos))\r
++ (indent-rigidly start (point) notmuch-hello-indent)))\r
++\r
++ (when (not notmuch-show-inbox-tags-list)\r
++ (widget-create 'push-button\r
++ :notify (lambda (widget &rest ignore)\r
++ (setq notmuch-show-inbox-tags-list t)\r
++ (notmuch-hello-update))\r
++ "Show tags in your inbox")\r
++ (widget-insert "\n"))\r
++ (widget-insert "\n")\r
+ \r
+ (when saved-alist\r
+ (widget-insert "Saved searches: ")\r
+@@ -297,8 +331,9 @@ diagonal."\r
+ :notify (lambda (&rest ignore)\r
+ (customize-variable 'notmuch-saved-searches))\r
+ "edit")\r
++ (if (not final-target-pos)\r
++ (setq final-target-pos (point-marker)))\r
+ (widget-insert "\n\n")\r
+- (setq final-target-pos (point-marker))\r
+ (let ((start (point)))\r
+ (setq found-target-pos (notmuch-hello-insert-tags saved-alist widest target))\r
+ (if found-target-pos\r
+-- \r
+tg: (1d528f8..) t/emacs-what-is-in-your-inbox (depends on: master)\r
projects / notmuch-archives.git / commitdiff