From 72d7c9c44f3e039d304583e0984d02664d42ccba Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 29 Feb 2016 18:15:39 +1100 Subject: [PATCH] Allow sending control messages offline * debbugs-gnu.el (debbugs-gnu-send-mail-function): New variable. (debbugs-gnu-send-control-message): Use it to allow sending control messages offline. --- packages/debbugs/debbugs-gnu.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index 8634ccc08..77f9cc52c 100644 --- a/packages/debbugs/debbugs-gnu.el +++ b/packages/debbugs/debbugs-gnu.el @@ -1230,6 +1230,9 @@ MERGED is the list of bugs merged with this one." (re-search-forward "#\\([0-9]+\\)" nil t))) (string-to-number (match-string 1))))) +(defvar debbugs-gnu-send-mail-function nil + "A function to send control messages from debbugs.") + (defun debbugs-gnu-send-control-message (message &optional reverse) "Send a control message for the current bug report. You can set the severity or add a tag, or close the report. If @@ -1332,7 +1335,7 @@ removed instead." (format "tags %d%s %s\n" id (if reverse " -" "") message)))) - (funcall send-mail-function) + (funcall (or debbugs-gnu-send-mail-function send-mail-function)) (remhash id debbugs-cache-data) (message-goto-body) (message "Control message sent:\n%s" -- 2.39.2