;;; 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.