diff options
| -rw-r--r-- | git-email-gnus.el | 48 | ||||
| -rw-r--r-- | git-email-notmuch.el | 21 |
2 files changed, 66 insertions, 3 deletions
diff --git a/git-email-gnus.el b/git-email-gnus.el new file mode 100644 index 0000000..8f28a94 --- /dev/null +++ b/git-email-gnus.el @@ -0,0 +1,48 @@ +;;; git-email-gnsu.el --- Gnus integration for git-email -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 yoctocell + +;; Author: yoctocell <public@yoctocell.xyz> +;; URL: https://git.sr.ht/~yoctocell/git-email +;; Version: 0.2.0 +;; Package-Requires: ((emacs "27")) +;; Keywords: git mail +;; License: GNU General Public License >= 3 + +;; 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: + +;; This library sets some variables for git-email to make it work +;; better with Gnus. + +;;; Code: + +(require 'git-email) + +(define-minor-mode git-email-gnus-mode + "Gnus integration for git-email. +If called interactively, toggle the mode. A positive prefix ARG +enables the mode, any other prefix ARG disabled it. If called +from Lisp, enable the mode if ARG is omitted or nil." + :group 'git-email + :global t + :init-value nil + (if git-email-gnus-mode + (progn + (setq git-email-compose-mail-function 'gnus-msg-mail)) + (setq git-email-compose-mail-function 'message-mail))) + +(provide 'git-email-gnus) +;;; git-email-gnus.el ends here diff --git a/git-email-notmuch.el b/git-email-notmuch.el index a10789e..fc01752 100644 --- a/git-email-notmuch.el +++ b/git-email-notmuch.el @@ -5,7 +5,7 @@ ;; Author: yoctocell <public@yoctocell.xyz> ;; URL: https://git.sr.ht/~yoctocell/git-email ;; Version: 0.2.0 -;; Package-Requires: ((emacs "27") (project "0.5.0") (notmuch "0.30.0")) +;; Package-Requires: ((emacs "27") (notmuch "0.30.0")) ;; Keywords: git mail ;; License: GNU General Public License >= 3 @@ -24,12 +24,27 @@ ;;; Commentary: -;; This library offers sets some variables for git-email to make it -;; work better with notmuch. +;; This library sets some variables for git-email to make it work +;; better with Notmuch. ;;; Code: (require 'git-email) +(define-minor-mode git-email-notmuch-mode + "Notmuch integration for git-email. +If called interactively, toggle the mode. A positive prefix ARG +enables the mode, any other prefix ARG disabled it. If called +from Lisp, enable the mode if ARG is omitted or nil." + :group 'git-email + :global t + :init-value nil + (if git-email-notmuch-mode + (progn + (setq git-email-compose-mail-function 'notmuch-mua-mail) + (setq git-email-send-email-function 'notmuch-mua-send-and-exit)) + (setq git-email-compose-mail-function 'message-mail) + (setq git-email-send-email-function 'message-send-and-exit))) + (provide 'git-email-notmuch) ;;; git-email-notmuch.el ends here |