[elpa] externals/debbugs 5240eaf 013/311: * debbugs-gnu.el (debbugs-summary-mode): Make sure we don't Cc both bug-gnu-emacs (etc) and debbugs.

[Stefan Monnier]

branch: externals/debbugs
commit 5240eaf9d58a808ef9a3cc5059bef3110d682991
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    * 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  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-summary-mode): Make sure we don't Cc
+       both bug-gnu-emacs (etc) and debbugs.
+
 2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
        * 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 "%s@debbugs.gnu.org"
+                                          (match-string 1 (car address)))))
+                         (cons new new))
+                     address)))))))))
 
 (defun debbugs-send-control-message (message)
   "Send a control message for the current bug report.