From 62eea1404be3b1eba394759ec472c796206721e6 Mon Sep 17 00:00:00 2001 From: yoctocell Date: Mon, 18 Jan 2021 12:06:21 +0100 Subject: Add minor modes for gnus and notmuch --- git-email-gnus.el | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 git-email-gnus.el (limited to 'git-email-gnus.el') 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 +;; 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 . + +;;; 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 -- cgit v1.2.3