emacs: Move definition of notmuch-folders to earlier in the file.
authorCarl Worth <cworth@cworth.org>
Thu, 22 Apr 2010 00:04:36 +0000 (17:04 -0700)
committerCarl Worth <cworth@cworth.org>
Thu, 22 Apr 2010 00:04:36 +0000 (17:04 -0700)
To avoid a warning about a free variable from the emacs compiler.

emacs/notmuch.el

index 6eff654683f97346e19841de3c5bdad4ac740d98..57b7fcf40e0bf790131a2871316fcebdba17adc8 100644 (file)
@@ -665,6 +665,11 @@ characters as well as `_.+-'.
     (apply 'notmuch-call-notmuch-process "tag"
           (append action-split (list notmuch-search-query-string) nil))))
 
     (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)
 (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)
 
 
 (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'.
 
 (defun notmuch-folder-mode ()
   "Major mode for showing notmuch 'folders'.