lkn
/
syscfg
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sync mail func

This commit is contained in:
Levi Neely 2024-09-26 20:21:41 +02:00
parent 915432e6cf
commit a6b1206cf9
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
emacs/module/module-notmuch.el
View File

@ -17,6 +17,17 @@
user-mail-address "me@lkn.uber.space"
user-full-name "Levi Neely")
(defun sync-and-index-mail ()
"Synchronize mail using mbsync and index with notmuch."
(interactive)
(let ((default-directory "~/"))
(message "Syncing mail...")
(shell-command "mbsync uberspace >/dev/null")
(message "Indexing mail...")
(shell-command "notmuch new >/dev/null")
(message "Mail sync and indexing completed.")))
(global-set-key (kbd "C-x M") 'sync-and-index-mail)
(provide 'module-notmuch)
;;; module-qt.el ends here.