mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-21 18:38:08 +01:00
fc4cda07a9
Doing so causes many new compile warnings. Some of these warnings concern genuine changes in behavior that have to be addressed right away. Many other warnings are due to unused variables. Nothing has changed here, except that the byte-compiler can now detect these pre-existing and harmless issues. We delay addressing these issues so that we can focus on the important ones here. A third group of warnings concern arguments that are not actually used inside the function but which cannot be removed because the functions signature is dictated by some outside convention. Silencing these warning is also delayed until subsequent commits.
73 lines
2.7 KiB
EmacsLisp
73 lines
2.7 KiB
EmacsLisp
;;; notmuch-message.el --- message-mode functions specific to notmuch -*- lexical-binding: t -*-
|
|
;;
|
|
;; Copyright © Jesse Rosenthal
|
|
;;
|
|
;; This file is part of Notmuch.
|
|
;;
|
|
;; Notmuch 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.
|
|
;;
|
|
;; Notmuch 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 Notmuch. If not, see <https://www.gnu.org/licenses/>.
|
|
;;
|
|
;; Authors: Jesse Rosenthal <jrosenthal@jhu.edu>
|
|
|
|
;;; Code:
|
|
|
|
(require 'message)
|
|
(require 'notmuch-tag)
|
|
|
|
(defcustom notmuch-message-replied-tags '("+replied")
|
|
"List of tag changes to apply to a message when it has been replied to.
|
|
|
|
Tags starting with \"+\" (or not starting with either \"+\" or
|
|
\"-\") in the list will be added, and tags starting with \"-\"
|
|
will be removed from the message being replied to.
|
|
|
|
For example, if you wanted to add a \"replied\" tag and remove
|
|
the \"inbox\" and \"todo\" tags, you would set:
|
|
(\"+replied\" \"-inbox\" \"-todo\")"
|
|
:type '(repeat string)
|
|
:group 'notmuch-send)
|
|
|
|
(defcustom notmuch-message-forwarded-tags '("+forwarded")
|
|
"List of tag changes to apply to a message when it has been forwarded.
|
|
|
|
Tags starting with \"+\" (or not starting with either \"+\" or
|
|
\"-\") in the list will be added, and tags starting with \"-\"
|
|
will be removed from the message being forwarded.
|
|
|
|
For example, if you wanted to add a \"forwarded\" tag and remove
|
|
the \"inbox\" tag, you would set:
|
|
(\"+forwarded\" \"-inbox\")"
|
|
:type '(repeat string)
|
|
:group 'notmuch-send)
|
|
|
|
(defconst notmuch-message-queued-tag-changes nil
|
|
"List of messages and corresponding tag-changes to be applied when sending a message.
|
|
|
|
This variable is overridden by buffer-local versions in message
|
|
buffers where tag changes should be triggered when sending off
|
|
the message. Each item in this list is a list of strings, where
|
|
the first is a notmuch query and the rest are the tag changes to
|
|
be applied to the matching messages.")
|
|
|
|
(defun notmuch-message-apply-queued-tag-changes ()
|
|
;; Apply the tag changes queued in the buffer-local variable
|
|
;; notmuch-message-queued-tag-changes.
|
|
(dolist (query-and-tags notmuch-message-queued-tag-changes)
|
|
(notmuch-tag (car query-and-tags)
|
|
(cdr query-and-tags))))
|
|
|
|
(add-hook 'message-send-hook 'notmuch-message-apply-queued-tag-changes)
|
|
|
|
(provide 'notmuch-message)
|
|
|
|
;;; notmuch-message.el ends here
|