diff options
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 |