diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-08-03 13:42:27 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-08-03 13:42:50 -0400 |
| commit | 1841426679882fe5a8730bf724eb4b421a44fac0 (patch) | |
| tree | 3e8cf26df16220237a3a3cdd182f9befa77cf2db /lisp | |
| parent | 3874dace6e37a7d9a86113352e4a4cd05e05106b (diff) | |
| download | emacs.d-1841426679882fe5a8730bf724eb4b421a44fac0.tar.gz | |
mail: Read sync-mail arguments through custom function
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-mail.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el index 772b3a4..1ff6907 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -107,8 +107,9 @@ ;;;###autoload (defun km/notmuch-sync-mail (&optional cmd-append) - (interactive (list (and current-prefix-arg - (read-string "sync-mail args: ")))) + (interactive (list (if (fboundp 'km/read-sync-mail-args) + (km/read-sync-mail-args) + (read-string "sync-mail args: ")))) (setq mail-sync-calling-buffer (current-buffer)) (let ((default-directory (expand-file-name "~/")) (display-buffer-overriding-action @@ -117,11 +118,5 @@ (and cmd-append " ") cmd-append) 'mail-sync-mode))) - -;;;###autoload -(defun km/notmuch-sync-mail-fast () - (interactive) - (km/notmuch-sync-mail "--fast")) - (provide 'km-mail) ;;; km-mail.el ends here |