debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 20:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Move definition of notmuch-folders to earlier in the file.

Browse source 
To avoid a warning about a free variable from the emacs compiler.
This commit is contained in:
Carl Worth 2010-04-21 17:04:36 -07:00
parent 3bf27d6c58
commit 38c595738f
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch.el
View file

@ -665,6 +665,11 @@ characters as well as `_.+-'.
(apply 'notmuch-call-notmuch-process "tag" (apply 'notmuch-call-notmuch-process "tag"
(append action-split (list notmuch-search-query-string) nil)))) (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) (defun notmuch-search-buffer-title (query)
"Returns the title for a buffer with notmuch search results." "Returns the title for a buffer with notmuch search results."
(let* ((folder (rassoc-if (lambda (key) (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) (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 () (defun notmuch-folder-mode ()
"Major mode for showing notmuch 'folders'. "Major mode for showing notmuch 'folders'.