M gnu/local.mk => gnu/local.mk +1 -0
@@ 1095,6 1095,7 @@ dist_patch_DATA = \
%D%/packages/patches/elm-reactor-static-files.patch \
%D%/packages/patches/elogind-fix-rpath.patch \
%D%/packages/patches/emacs-all-the-icons-remove-duplicate-rs.patch \
+ %D%/packages/patches/emacs-debbugs-keep-patch-subject.patch \
%D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch \
%D%/packages/patches/emacs-exec-path.patch \
%D%/packages/patches/emacs-ess-fix-obsolete-function-alias.patch \
M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +2 -1
@@ 8661,7 8661,8 @@ by a query, so both a link can refer to several mails.")
(uri (string-append "https://elpa.gnu.org/packages/debbugs-"
version ".tar"))
(sha256
- (base32 "1rzv13shadbvy583vjj4zg13v920zpiqrsnn10r3cqqyli89ivn2"))))
+ (base32 "1rzv13shadbvy583vjj4zg13v920zpiqrsnn10r3cqqyli89ivn2"))
+ (patches (search-patches "emacs-debbugs-keep-patch-subject.patch"))))
(build-system emacs-build-system)
(arguments '(#:include '("\\.el$" "\\.wsdl$" "\\.info$")))
(propagated-inputs
A gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch => gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch +29 -0
@@ 0,0 1,29 @@
+Preserve subject when replying to patch threads.
+Upstream status: likely to be in the next release (bug#66330)
+
+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 ()