branch: externals/debbugs
commit 5240eaf9d58a808ef9a3cc5059bef3110d682991
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
* debbugs-gnu.el (debbugs-summary-mode): Make sure we don't Cc both
bug-gnu-emacs (etc) and debbugs.
---
ChangeLog | 5 +++++
debbugs-gnu.el | 15 ++++++++++++++-
2 files changed, 19 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 6bca779..bf5658d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-02 Lars Magne Ingebrigtsen <[email protected]>
+
+ * debbugs-gnu.el (debbugs-summary-mode): Make sure we don't Cc
+ both bug-gnu-emacs (etc) and debbugs.
+
2011-07-02 Michael Albinus <[email protected]>
* debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 2dec10f..d302324 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -183,7 +183,20 @@ The following commands are available:
\\{debbugs-summary-mode-map}"
:lighter " Debbugs" :keymap debbugs-summary-mode-map
- nil)
+ (set (make-local-variable 'gnus-posting-styles)
+ '((".*"
+ (eval
+ (with-current-buffer gnus-article-copy
+ (set (make-local-variable 'message-prune-recipient-rules)
+ '((".*@debbugs.*" "emacs-pretest-bug")
+ (".*@debbugs.*" "bug-gnu-emacs")))
+ (set (make-local-variable 'message-alter-recipients-function)
+ (lambda (address)
+ (if (string-match "\\([0-9]+\\)@donarmstrong" (car address))
+ (let ((new (format "%[email protected]"
+ (match-string 1 (car address)))))
+ (cons new new))
+ address)))))))))
(defun debbugs-send-control-message (message)
"Send a control message for the current bug report.
