mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Mairix: autoload main interactive functions

Browse source 
* lisp/net/mairix.el (mairix-search, mairix-use-saved-search)
(mairix-edit-saved-searches-customize, mairix-search-from-this-article)
(mairix-search-thread-this-article, mairix-widget-search-based-on-article)
(mairix-edit-saved-searches, mairix-widget-search, mairix-update-database):
Add magic autoload comment.

Copyright-paperwork-exempt: yes
This commit is contained in:
Daniel Semyonov 2021-05-01 17:01:22 +03:00 • committed by Eli Zaretskii
parent 63d259cc0d
commit b1ac6797c5
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/mairix.el
View file

@ -328,6 +328,7 @@ Currently there are `threads' and `flags'.")
;;;; Main interactive functions ;;;; Main interactive functions
;;;###autoload
(defun mairix-search (search threads) (defun mairix-search (search threads)
"Call Mairix with SEARCH. "Call Mairix with SEARCH.
If THREADS is non-nil, also display whole threads of found If THREADS is non-nil, also display whole threads of found
@ -342,6 +343,7 @@ messages. Results will be put into the default search file."
threads) threads)
(mairix-show-folder mairix-search-file))) (mairix-show-folder mairix-search-file)))
;;;###autoload
(defun mairix-use-saved-search () (defun mairix-use-saved-search ()
"Use a saved search for querying Mairix." "Use a saved search for querying Mairix."
(interactive) (interactive)
@ -374,6 +376,7 @@ Overwrite existing entry? ")
(setcdr (assoc name mairix-saved-searches) mairix-last-search)))) (setcdr (assoc name mairix-saved-searches) mairix-last-search))))
(mairix-select-save)) (mairix-select-save))
;;;###autoload
(defun mairix-edit-saved-searches-customize () (defun mairix-edit-saved-searches-customize ()
"Edit the list of saved searches in a customization buffer." "Edit the list of saved searches in a customization buffer."
(interactive) (interactive)
@ -386,6 +389,8 @@ in your .emacs by pressing `Save for Future Sessions'.\n"
(make-string 65 ?=) "\n"))) (make-string 65 ?=) "\n")))
(autoload 'mail-strip-quoted-names "mail-utils") (autoload 'mail-strip-quoted-names "mail-utils")
;;;###autoload
(defun mairix-search-from-this-article (threads) (defun mairix-search-from-this-article (threads)
"Search messages from sender of the current article. "Search messages from sender of the current article.
This is effectively a shortcut for calling `mairix-search' with This is effectively a shortcut for calling `mairix-search' with
@ -402,6 +407,7 @@ threads."
threads) threads)
(error "No function for obtaining mail header specified")))) (error "No function for obtaining mail header specified"))))
;;;###autoload
(defun mairix-search-thread-this-article () (defun mairix-search-thread-this-article ()
"Search thread for the current article. "Search thread for the current article.
This is effectively a shortcut for calling `mairix-search' This is effectively a shortcut for calling `mairix-search'
@ -423,12 +429,14 @@ with m:msgid of the current article and enabled threads."
(mairix-search (mairix-search
(format "m:%s" mid) t))) (format "m:%s" mid) t)))
;;;###autoload
(defun mairix-widget-search-based-on-article () (defun mairix-widget-search-based-on-article ()
"Create mairix query based on current article using widgets." "Create mairix query based on current article using widgets."
(interactive) (interactive)
(mairix-widget-search (mairix-widget-search
(mairix-widget-get-values))) (mairix-widget-get-values)))
;;;###autoload
(defun mairix-edit-saved-searches () (defun mairix-edit-saved-searches ()
"Edit current mairix searches." "Edit current mairix searches."
(interactive) (interactive)
@ -441,6 +449,7 @@ with m:msgid of the current article and enabled threads."
(defvar mairix-widgets) (defvar mairix-widgets)
;;;###autoload
(defun mairix-widget-search (&optional mvalues) (defun mairix-widget-search (&optional mvalues)
"Create mairix query interactively using graphical widgets. "Create mairix query interactively using graphical widgets.
MVALUES may contain values from current article." MVALUES may contain values from current article."
@ -470,6 +479,7 @@ MVALUES may contain values from current article."
(widget-setup) (widget-setup)
(goto-char (point-min))) (goto-char (point-min)))
;;;###autoload
(defun mairix-update-database () (defun mairix-update-database ()
"Call mairix for updating the database for SERVERS. "Call mairix for updating the database for SERVERS.
Mairix will be called asynchronously unless Mairix will be called asynchronously unless