From 0a7bd1c728390efc5cc000987f6dd42638314328 Mon Sep 17 00:00:00 2001 From: Keith Amidon Date: Fri, 27 Nov 2009 05:30:08 -0800 Subject: [PATCH] Adjust autoload comments The previous location of autoload comments didn't seem to correspond with the functions most likely to be the entry points for using notmuch. This change adjusts them to match those likely entry points. --- notmuch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/notmuch.el b/notmuch.el index 04c0fe70..96c5d965 100644 --- a/notmuch.el +++ b/notmuch.el @@ -809,8 +809,6 @@ view, (remove the \"inbox\" tag from each), with mode-name "notmuch-show") (setq buffer-read-only t)) -;;;###autoload - (defgroup notmuch nil "Notmuch mail reader for Emacs." :group 'mail) @@ -1160,6 +1158,7 @@ characters as well as `_.+-'. (apply 'notmuch-call-notmuch-process "tag" (append action-split (list notmuch-search-query-string) nil)))) +;;;###autoload (defun notmuch-search (query &optional oldest-first) "Run \"notmuch search\" with the given query string and display results." (interactive "sNotmuch search: ") @@ -1239,6 +1238,8 @@ current search results AND that are tagged with the given tag." (list (notmuch-select-tag-with-completion "Filter by tag: "))) (notmuch-search (concat notmuch-search-query-string " and tag:" tag) notmuch-search-oldest-first)) + +;;;###autoload (defun notmuch () "Run notmuch to display all mail with tag of 'inbox'" (interactive) @@ -1314,6 +1315,7 @@ results for the search terms in that line. (if search (notmuch-search (cdr search) notmuch-search-oldest-first)))) +;;;###autoload (defun notmuch-folder () "Show the notmuch folder view and update the displayed counts." (interactive)