summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-08-03 13:42:27 -0400
committerKyle Meyer <kyle@kyleam.com>2017-08-03 13:42:50 -0400
commit1841426679882fe5a8730bf724eb4b421a44fac0 (patch)
tree3e8cf26df16220237a3a3cdd182f9befa77cf2db /lisp
parent3874dace6e37a7d9a86113352e4a4cd05e05106b (diff)
downloademacs.d-1841426679882fe5a8730bf724eb4b421a44fac0.tar.gz
mail: Read sync-mail arguments through custom function
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-mail.el11
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