From 1841426679882fe5a8730bf724eb4b421a44fac0 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 3 Aug 2017 13:42:27 -0400 Subject: mail: Read sync-mail arguments through custom function --- lisp/km-mail.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.3