[PATCH] fix breakage in `notmuch-hello-generate-tag-alist' due to `tag:' prefix

Pieter Praet pieter at praet.org
Thu Jun 30 01:35:46 PDT 2011


Even though all tests passed, a previous patch [1] seems to have broken
`notmuch-hello-generate-tag-alist', because the latter expects prefix-less tags.

This is a quick'n'dirty patch, thus probably not fit for consumption.
But it Works(TM).

[1] id:"1309422029-22924-1-git-send-email-pieter at praet.org"

Signed-off-by: Pieter Praet <pieter at praet.org>
---
 emacs/notmuch-hello.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 65fde75..4551be1 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -343,6 +343,7 @@ Complete list of currently available key bindings:
   (notmuch-remove-if-not
    #'cdr
    (mapcar (lambda (tag)
+	     (let ((tag (substring tag 4)))
 	     (cons tag
 		   (cond
 		    ((functionp notmuch-hello-tag-list-make-query)
@@ -351,10 +352,11 @@ Complete list of currently available key bindings:
 		    ((stringp notmuch-hello-tag-list-make-query)
 		     (concat "tag:" tag " and ("
 			     notmuch-hello-tag-list-make-query ")"))
-		    (t (concat "tag:" tag)))))
+		    (t (concat "tag:" tag))))))
 	   (notmuch-remove-if-not
 	    (lambda (tag)
-	      (not (member tag notmuch-hello-hide-tags)))
+	      (let ((tag (substring tag 4)))
+	      (not (member tag notmuch-hello-hide-tags))))
 	    (process-lines notmuch-command "search-tags")))))
 
 ;;;###autoload
-- 
1.7.4.1



More information about the notmuch mailing list