From 38c595738f229eda659853df34dee05cf618556c Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 21 Apr 2010 17:04:36 -0700 Subject: [PATCH] emacs: Move definition of notmuch-folders to earlier in the file. To avoid a warning about a free variable from the emacs compiler. --- emacs/notmuch.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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'. -- 2.43.0