From: Amin Bandali Date: Sun, 16 Sep 2018 20:36:24 +0000 (-0400) Subject: [emacs] put sendmail and message into their own sections X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/6c5b745ffd13f9b510c998fe6cb95c262261a858?ds=inline [emacs] put sendmail and message into their own sections also change notmuch binding from C-c m to C-c n; all in anticipation for adding a Gnus config and potentially transitioning to Gnus. --- diff --git a/init.org b/init.org index b7679a7..96899a5 100644 --- a/init.org +++ b/init.org @@ -1452,42 +1452,39 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]]. #+end_src * Email -** [[https://notmuchmail.org][notmuch]] - -See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. #+begin_src emacs-lisp -(defvar amin-maildir "~/mail") +(defvar amin-maildir (expand-file-name "~/mail/")) +(after! recentf + (add-to-list 'recentf-exclude amin-maildir)) +#+end_src +** sendmail + +#+begin_src emacs-lisp (use-package sendmail - ;; :ensure nil :config (setq sendmail-program "/usr/bin/msmtp" - ; message-sendmail-extra-arguments '("-v" "-d") + ;; message-sendmail-extra-arguments '("-v" "-d") mail-specify-envelope-from t mail-envelope-from 'header)) +#+end_src + +** message +#+begin_src emacs-lisp (use-package message - ;; :ensure nil :config (setq message-kill-buffer-on-exit t message-send-mail-function 'message-send-mail-with-sendmail message-sendmail-envelope-from 'header - message-directory "drafts" + ;; message-directory "drafts" message-user-fqdn "aminb.org") (add-hook 'message-mode-hook (lambda () (setq fill-column 65 message-fill-column 65))) (add-hook 'message-mode-hook #'flyspell-mode) - ;; (add-hook 'notmuch-message-mode-hook #'+doom-modeline|set-special-modeline) - ;; TODO: is there a way to only run this when replying and not composing? - ;; (add-hook 'notmuch-message-mode-hook - ;; (lambda () (progn - ;; (newline) - ;; (newline) - ;; (forward-line -1) - ;; (forward-line -1)))) ;; (add-hook 'message-setup-hook ;; #'mml-secure-message-sign-pgpmime) ) @@ -1495,7 +1492,13 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. (after! mml-sec (setq mml-secure-openpgp-encrypt-to-self t mml-secure-openpgp-sign-with-sender t)) +#+end_src +** [[https://notmuchmail.org][notmuch]] + +See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. + +#+begin_src emacs-lisp (defun amin/notmuch () "Delete other windows, then launch `notmuch'." (interactive) @@ -1504,7 +1507,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. (use-package notmuch :commands notmuch - :bind ("C-c m" . amin/notmuch) + :bind ("C-c n" . amin/notmuch) :custom (notmuch-always-prompt-for-sender t) :config (setq notmuch-hello-sections @@ -1614,9 +1617,6 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. (after! notmuch-crypto (setq notmuch-crypto-process-mime t)) - -(after! recentf - (add-to-list 'recentf-exclude (expand-file-name amin-maildir))) #+end_src ** supercite