X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=736d00f366d7c0abd137c99368f593e68772f7b1;hb=746fef0aeafe1f29720140ab8778cdee22d519cb;hp=f0afa0721628c8d53e7abfe3b8d4e603260d2892;hpb=0eaf4a21dda9519cc08db5b49126b02c4c6b5682;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))