diff options
author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-10-04 16:15:59 -0400 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-10-04 16:32:45 -0400 |
commit | de8fc548c6fb89f77c074ae10455913714d13563 (patch) | |
tree | ad99abfe8185de47808d28f2fa264cea9bd4ba53 /gnu/packages/patches | |
parent | e71864793021051cff35597abd59bb2d5649977d (diff) | |
download | guix-de8fc548c6fb89f77c074ae10455913714d13563.tar.gz guix-de8fc548c6fb89f77c074ae10455913714d13563.zip |
gnu: emacs-debbugs: Preserve subject when replying to patch threads.
* gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch: New file.
* gnu/local.mk (dist_patch_DATA): Register it.
* gnu/packages/emacs-xyz.scm (emacs-debbugs) [origin]: Use it.
Diffstat (limited to 'gnu/packages/patches')
-rw-r--r-- | gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch b/gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch new file mode 100644 index 0000000000..7a6cb642d0 --- /dev/null +++ b/gnu/packages/patches/emacs-debbugs-keep-patch-subject.patch @@ -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 () |