From d44f7b44876030c09661f0ea63ec31248cbf9534 Mon Sep 17 00:00:00 2001 From: Simon Parri Date: Thu, 25 Sep 2025 15:11:30 -0500 Subject: Emacs/Gnus: Add command to run mbsync --- common/.emacs.d/init.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'common') diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el index 13b0b02..48a8d38 100644 --- a/common/.emacs.d/init.el +++ b/common/.emacs.d/init.el @@ -2010,6 +2010,13 @@ buffer's text scale." '((gnus-killed-mark (subject -10)) (gnus-catchup-mark (subject -2)))) + (defun my/mbsync (&optional arg) + (interactive "P") + (kill-buffer (get-buffer-create " *mbsync*")) + (call-process-shell-command "mbsync -a; mu index" nil " *mbsync*" arg)) + + (keymap-set gnus-group-mode-map "" 'my/mbsync) + (add-hooks 'gnus-group-mode-hook 'gnus-topic-mode) -- cgit v1.2.3