diff options
| author | Mark Walters <markwalters1009@gmail.com> | 2016-09-27 10:26:56 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2016-10-09 08:50:02 -0300 |
| commit | 385413e0596b65bb759ec246ed03bc1bf7423cb0 (patch) | |
| tree | c31b8fcc882cdc74960ac9b0dd97a527b64b8d15 | |
| parent | 297d091e1ca8f5b1e144d2be0a8e0a7c271634a8 (diff) | |
emacs: add mimetype completions to searches
| -rw-r--r-- | emacs/notmuch.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 888672b5..6c36ad8a 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -892,9 +892,10 @@ PROMPT is the string to prompt with." (process-lines notmuch-command "search" "--output=tags" "*"))) (completions (append (list "folder:" "path:" "thread:" "id:" "date:" "from:" "to:" - "subject:" "attachment:" "mimetype:") + "subject:" "attachment:") (mapcar (lambda (tag) (concat "tag:" tag)) all-tags) - (mapcar (lambda (tag) (concat "is:" tag)) all-tags)))) + (mapcar (lambda (tag) (concat "is:" tag)) all-tags) + (mapcar (lambda (mimetype) (concat "mimetype:" mimetype)) (mailcap-mime-types))))) (let ((keymap (copy-keymap minibuffer-local-map)) (current-query (case major-mode (notmuch-search-mode (notmuch-search-get-query)) |