aboutsummaryrefslogtreecommitdiff
path: root/emacs/notmuch-lib.el
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-08-08 13:49:48 +0200
committerDavid Bremner <david@tethera.net>2020-08-09 20:59:11 -0300
commit177cd31fbdff93254d576b737b55656d3a6086b5 (patch)
tree8a07b9d1a394c77502e9d87fcd842889ea67ea16 /emacs/notmuch-lib.el
parent14c4533c43ce319a8ba353f41e8c2f6be31164aa (diff)
emacs: notmuch-poll: Let the user know we are polling
It is done synchronously and it can take a while, so we should let the user know what is going on.
Diffstat (limited to 'emacs/notmuch-lib.el')
-rw-r--r--emacs/notmuch-lib.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index 4496ecd2..6ff351d7 100644
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -259,11 +259,13 @@ on the command line, and then retry your notmuch command")))
Invokes `notmuch-poll-script', \"notmuch new\", or does nothing
depending on the value of `notmuch-poll-script'."
(interactive)
+ (message "Polling mail...")
(if (stringp notmuch-poll-script)
(unless (string= notmuch-poll-script "")
(unless (equal (call-process notmuch-poll-script nil nil) 0)
(error "Notmuch: poll script `%s' failed!" notmuch-poll-script)))
- (notmuch-call-notmuch-process "new")))
+ (notmuch-call-notmuch-process "new"))
+ (message "Polling mail...done"))
(defun notmuch-bury-or-kill-this-buffer ()
"Undisplay the current buffer.