X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=736d00f366d7c0abd137c99368f593e68772f7b1;hb=5073de34b453f5f7f18a54791141b38783089485;hp=f0afa0721628c8d53e7abfe3b8d4e603260d2892;hpb=596a2076dcc1ebec2dc217f6d967397ef125aac4;p=notmuch diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f0afa072..736d00f3 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -85,11 +85,13 @@ For example: `notmuch-read-tag-changes' function.") (defun notmuch-tag-completions (&optional search-terms) + (if (null search-terms) + (setq search-terms (list "*"))) (split-string (with-output-to-string (with-current-buffer standard-output (apply 'call-process notmuch-command nil t - nil "search-tags" search-terms))) + nil "search" "--output=tags" "--exclude=false" search-terms))) "\n+" t)) (defun notmuch-select-tag-with-completion (prompt &rest search-terms) @@ -712,12 +714,12 @@ This function advances the next thread when finished." Here is an example of how to color search results based on tags. (the following text would be placed in your ~/.emacs file): - (setq notmuch-search-line-faces '((\"delete\" . (:foreground \"red\" + (setq notmuch-search-line-faces '((\"deleted\" . (:foreground \"red\" :background \"blue\")) (\"unread\" . (:foreground \"green\")))) The attributes defined for matching tags are merged, with later -attributes overriding earlier. A message having both \"delete\" +attributes overriding earlier. A message having both \"deleted\" and \"unread\" tags with the above settings would have a green foreground and blue background." :type '(alist :key-type (string) :value-type (custom-face-edit))