commit 86a176e4f91c0156dc671a16f4b9744e1e650578 parent 84df6f3bbcbc60c7c6eb72c98d2a950321af527f Author: Mark Feller <mjfeller1992@gmail.com> Date: Fri, 14 Aug 2020 17:52:34 -0600 improve notmuch initialization Diffstat:
| M | dots/.emacs.d/modules/module-notmuch.el | | | 18 | ++++++++++++++++-- |
1 file changed, 16 insertions(+), 2 deletions(-)
diff --git a/dots/.emacs.d/modules/module-notmuch.el b/dots/.emacs.d/modules/module-notmuch.el @@ -24,8 +24,21 @@ ;;; Code: +(require 'smtpmail) + +(defun mjf/initialize-gmail () + "Configure smtpmail to use gmail" + (setq message-send-mail-function 'smtpmail-send-it + send-mail-function 'smtpmail-send-it + smtpmail-default-smtp-server "smtp.gmail.com" + smtpmail-smtp-server "smtp.gmail.com" + smtpmail-local-domain "gmail.com" + smtpmail-stream-type 'ssl + smtpmail-smtp-service 465)) + (defun mjf/tag-deleted () - "Tag mail at point as deleted" + "Tag mail at point as deleted. This operation will not delete +the mail, but tag it for later deletion." (interactive) (notmuch-search-tag '("+deleted" "-inbox" "-unread")) (next-line)) @@ -47,7 +60,8 @@ :bind (:map notmuch-search-mode-map ("d" . mjf/tag-deleted) - ("D" . mjf/delete-tagged-mail)) + ("D" . mjf/delete-tagged-mail) + ("/" . notmuch-search)) (:map notmuch-tree-mode-map ("d" . mjf/tag-deleted) ("D" . mjf/delete-tagged-mail))