branch: externals/debbugs
commit a94bdb8a669ff186da2cb4e3be8aa9c3164b26c5
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@gmx.de>
Release debbugs 0.37
* debbugs-gnu.el (debbugs-gnu-summary-keep-subject): New user option.
(debbugs-gnu-summary-mode): Use it. (Bug#66330)
* debbugs.el: Bump version to 0.37.
---
debbugs-gnu.el | 8 ++++++++
debbugs.el | 2 +-
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index f366fba11d..cd549e364d 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -1747,6 +1747,12 @@ MERGED is the list of bugs merged with this one."
(format "Re: bug#%d: %s" id (alist-get 'subject status)))
(debbugs-gnu-summary-mode 1)))
+(defcustom debbugs-gnu-summary-keep-subject
+ (rx "[PATCH" (? (0+ (not (any digit "/]"))) (1+ digit) "/" (1+ digit)) "]")
+ "Regular expression which keeps the original message subject in replies."
+ :version "29.1"
+ :type 'regexp)
+
(defvar debbugs-gnu-summary-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "C" #'debbugs-gnu-send-control-message)
@@ -1778,6 +1784,8 @@ MERGED is the list of bugs merged with this one."
(cons new new))
address))))))
,@(and debbugs-gnu-subject
+ (not (string-match-p debbugs-gnu-summary-keep-subject
+ debbugs-gnu-subject))
`((subject ,debbugs-gnu-subject)))))))
(defun debbugs-gnu-guess-current-id ()
diff --git a/debbugs.el b/debbugs.el
index 467e9f9235..5f351ef62a 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -5,7 +5,7 @@
;; Author: Michael Albinus <michael.albi...@gmx.de>
;; Keywords: comm, hypermedia
;; Package: debbugs
-;; Version: 0.36
+;; Version: 0.37
;; Package-Requires: ((emacs "26.1") (soap-client "3.1.5"))
;; This file is not part of GNU Emacs.
