diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-09 22:09:19 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-10 22:41:28 -0700 |
commit | ac6d6138c0e00bc7d4aea4b515df9d5f858e37eb (patch) | |
tree | 7adab97e4a7d2bb0d12e3af6ad42ec418b7d4cf9 | |
parent | 2ebbd31bf32ef330e7735c543b285e17852fd5a5 (diff) | |
download | dotfiles-ac6d6138c0e00bc7d4aea4b515df9d5f858e37eb.tar.gz |
run athena movemymail when seeking messages that have just arrived
For its imap-dl(1) runs.
-rw-r--r-- | .emacs.d/init.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 84edfe16..7dacb90d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2768,7 +2768,10 @@ mutt's review view, after exiting EDITOR." ;; time we call 'notmuch new' without --no-hooks from Emacs rather than ;; just waiting for cron, because it's slow. (unless (gnus-alive-p) (gnus)) - (with-temp-message "Fetching & indexing mail ..." + (unless (spw/on-host-p "athena.silentflame.com") + (with-temp-message "Fetching from all accounts on athena ..." + (call-process "ssh" nil nil nil "athena" "movemymail"))) + (with-temp-message "Fetching & indexing mail locally ..." (call-process "notmuch" nil nil nil "new")) (if (not (get-buffer "*Summary nnselect:Process-Weekday*")) (gnus-group-read-group nil t "nnselect:Process-Weekday") |