X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=57b7fcf40e0bf790131a2871316fcebdba17adc8;hp=6eff654683f97346e19841de3c5bdad4ac740d98;hb=38c595738f229eda659853df34dee05cf618556c;hpb=3bf27d6c5867a14c58735adba36a3a9ead06a8ff diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 6eff6546..57b7fcf4 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -665,6 +665,11 @@ characters as well as `_.+-'. (apply 'notmuch-call-notmuch-process "tag" (append action-split (list notmuch-search-query-string) nil)))) +(defcustom notmuch-folders (quote (("inbox" . "tag:inbox") ("unread" . "tag:unread"))) + "List of searches for the notmuch folder view" + :type '(alist :key-type (string) :value-type (string)) + :group 'notmuch) + (defun notmuch-search-buffer-title (query) "Returns the title for a buffer with notmuch search results." (let* ((folder (rassoc-if (lambda (key) @@ -808,11 +813,6 @@ current search results AND that are tagged with the given tag." (fset 'notmuch-folder-mode-map notmuch-folder-mode-map) -(defcustom notmuch-folders (quote (("inbox" . "tag:inbox") ("unread" . "tag:unread"))) - "List of searches for the notmuch folder view" - :type '(alist :key-type (string) :value-type (string)) - :group 'notmuch) - (defun notmuch-folder-mode () "Major mode for showing notmuch 'folders'.