34 lines
875 B
EmacsLisp
34 lines
875 B
EmacsLisp
;;; module-notmuch.el --- for email processing
|
|
;;;
|
|
;;; Commentary:
|
|
;;;
|
|
;;; notmuch email
|
|
;;;
|
|
;;; Code:
|
|
|
|
(pkg/require 'notmuch)
|
|
|
|
;; minor scope creep... oh well.
|
|
(require 'smtpmail)
|
|
(setq send-mail-function 'smtpmail-send-it
|
|
smtpmail-smtp-server "alioth.uberspace.de"
|
|
smtpmail-smtp-service 587
|
|
smtpmail-stream-type 'starttls
|
|
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.
|