[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