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

Adjust autoload comments

Browse source 
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.
This commit is contained in:
Keith Amidon 2009-11-27 05:30:08 -08:00 committed by Carl Worth
parent 92c4dcc641
commit 0a7bd1c728
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
notmuch.el
View file

@ -809,8 +809,6 @@ view, (remove the \"inbox\" tag from each), with
mode-name "notmuch-show") mode-name "notmuch-show")
(setq buffer-read-only t)) (setq buffer-read-only t))
;;;###autoload
(defgroup notmuch nil (defgroup notmuch nil
"Notmuch mail reader for Emacs." "Notmuch mail reader for Emacs."
:group 'mail) :group 'mail)
@ -1160,6 +1158,7 @@ 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))))
;;;###autoload
(defun notmuch-search (query &optional oldest-first) (defun notmuch-search (query &optional oldest-first)
"Run \"notmuch search\" with the given query string and display results." "Run \"notmuch search\" with the given query string and display results."
(interactive "sNotmuch search: ") (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: "))) (list (notmuch-select-tag-with-completion "Filter by tag: ")))
(notmuch-search (concat notmuch-search-query-string " and tag:" tag) notmuch-search-oldest-first)) (notmuch-search (concat notmuch-search-query-string " and tag:" tag) notmuch-search-oldest-first))
;;;###autoload
(defun notmuch () (defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'" "Run notmuch to display all mail with tag of 'inbox'"
(interactive) (interactive)
@ -1314,6 +1315,7 @@ results for the search terms in that line.
(if search (if search
(notmuch-search (cdr search) notmuch-search-oldest-first)))) (notmuch-search (cdr search) notmuch-search-oldest-first))))
;;;###autoload
(defun notmuch-folder () (defun notmuch-folder ()
"Show the notmuch folder view and update the displayed counts." "Show the notmuch folder view and update the displayed counts."
(interactive) (interactive)