[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 72d7c9c: Allow sending control messages offline
From: |
Lars Ingebrigtsen |
Subject: |
[elpa] master 72d7c9c: Allow sending control messages offline |
Date: |
Mon, 29 Feb 2016 07:22:53 +0000 |
branch: master
commit 72d7c9c44f3e039d304583e0984d02664d42ccba
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 8634ccc..77f9cc5 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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 72d7c9c: Allow sending control messages offline,
Lars Ingebrigtsen <=