[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/debbugs 938a990 175/311: Allow sending control messages

From: Stefan Monnier
Subject: [elpa] externals/debbugs 938a990 175/311: Allow sending control messages offline
Date: Sun, 29 Nov 2020 18:42:05 -0500 (EST)

branch: externals/debbugs
commit 938a990709988a6d7903fe8e3a2a01d6cb50030d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
 debbugs-gnu.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 8634ccc..77f9cc5 100644
--- a/debbugs-gnu.el
+++ b/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 " -" "")
-      (funcall send-mail-function)
+      (funcall (or debbugs-gnu-send-mail-function send-mail-function))
       (remhash id debbugs-cache-data)
       (message "Control message sent:\n%s"

reply via email to

[Prev in Thread] Current Thread [Next in Thread]