ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-sendmail] Split my config to send email into separate package

Browse source 
I haven't been using Gnus for a while and have been using notmuch instead.
Having my email sending settings be a part of the gnus configuration makes it
impossible to send email without loading gnus.
This commit is contained in:
Tom Willemse 2023-06-21 22:38:50 -07:00
parent 9fe6381afd
commit 8a0cddac7c
3 changed files with 44 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oni-gnus.el
View file

@ -4,8 +4,8 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2022.0216.010059 ;; Version: 2023.0621.223533
;; Package-Requires: (oni-data-dir) ;; Package-Requires: (oni-data-dir oni-sendmail)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -32,7 +32,7 @@
(require 'message) (require 'message)
(require 'nnfolder) (require 'nnfolder)
(require 'oni-data-dir) (require 'oni-data-dir)
(require 'sendmail) (require 'oni-sendmail)
(defun oni-gnus-goto-bracket-then-colon () (defun oni-gnus-goto-bracket-then-colon ()
"Find the first occurrence of [ on the current line and then :. "Find the first occurrence of [ on the current line and then :.
@ -61,10 +61,6 @@ of the email."
message-directory mail-source-directory message-directory mail-source-directory
nnfolder-directory mail-source-directory) nnfolder-directory mail-source-directory)
(setq send-mail-function 'send-mail-send-it
message-send-mail-function 'message-send-mail-with-sendmail
sendmail-program "msmtp")
(setq gnus-novice-user nil) (setq gnus-novice-user nil)
(defun oni-gnus-delete-forward (&optional n) (defun oni-gnus-delete-forward (&optional n)

5
oni-notmuch.el
View file

@ -4,8 +4,8 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2022.1113.170616 ;; Version: 2023.0621.223804
;; Package-Requires: (notmuch ol-notmuch) ;; Package-Requires: (oni-sendmail notmuch ol-notmuch)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -27,6 +27,7 @@
;;; Code: ;;; Code:
(require 'notmuch) (require 'notmuch)
(require 'oni-sendmail)
(defun oni-notmuch-search-delete-thread (&optional reverse begin end) (defun oni-notmuch-search-delete-thread (&optional reverse begin end)
"Archive and mark all messages in the selected threads for deletion. "Archive and mark all messages in the selected threads for deletion.

38
oni-sendmail.el Normal file
View file

@ -0,0 +1,38 @@
;;; oni-sendmail.el --- Configuration for sending mail -*- lexical-binding: t; -*-
;; Copyright (C) 2023 Tom Willemse
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Configuration for sending mail through Emacs.
;;; Code:
(require 'message)
(require 'sendmail)
(setq send-mail-function 'send-mail-send-it
message-send-mail-function 'message-send-mail-with-sendmail
sendmail-program "msmtp"
mail-envelope-from 'header
message-sendmail-envelope-from 'header
mail-specify-envelope-from t)
(provide 'oni-sendmail)
;;; oni-sendmail.el ends here