* debbugs-gnu.el (debbugs-gnu-subject): New defvar.

(debbugs-gnu-select-report): Set it buffer local.
(debbugs-gnu-summary-mode): Use it for adapting subject of replies.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index ea3da8b9193fbf1c80ef022861a1de2de877f0ad..4dc5458970c6b3ec9e669f0e012cfca20d68624d 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-14  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs-gnu.el (debbugs-gnu-subject): New defvar.
+       (debbugs-gnu-select-report): Set it buffer local.
+       (debbugs-gnu-summary-mode): Use it for adapting subject of replies.
+
 2011-07-13  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs.el (debbugs-get-bugs): Weaken syntax for packages (and

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 5f14e4f67d0eb66687927e513b54583f36bf951c..dabb8de20374af8cac60e51ea404f836e08fa404 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -591,6 +591,7 @@ The following commands are available:
   (tabulated-list-print))
 
 (defvar debbugs-gnu-bug-number nil)
+(defvar debbugs-gnu-subject nil)
 
 (defun debbugs-gnu-current-id (&optional noerror)
   (or (cdr (assq 'id (debbugs-gnu-current-status)))
@@ -622,8 +623,10 @@ The following commands are available:
      (cons (current-buffer)
           (current-window-configuration)))
     (with-current-buffer (window-buffer (selected-window))
-      (debbugs-gnu-summary-mode 1)
-      (set (make-local-variable 'debbugs-gnu-bug-number) id))))
+      (set (make-local-variable 'debbugs-gnu-bug-number) id)
+      (set (make-local-variable 'debbugs-gnu-subject)
+          (format "Re: bug#%d %s" id (cdr (assq 'subject status))))
+      (debbugs-gnu-summary-mode 1))))
 
 (defvar debbugs-gnu-summary-mode-map
   (let ((map (make-sparse-keymap)))
@@ -638,7 +641,7 @@ The following commands are available:
 \\{debbugs-gnu-summary-mode-map}"
   :lighter " Debbugs" :keymap debbugs-gnu-summary-mode-map
   (set (make-local-variable 'gnus-posting-styles)
-       '((".*"
+       `((".*"
          (eval
           (with-current-buffer gnus-article-copy
             (set (make-local-variable 'message-prune-recipient-rules)
@@ -652,7 +655,10 @@ The following commands are available:
                        (let ((new (format "%s@debbugs.gnu.org"
                                           (match-string 1 (car address)))))
                          (cons new new))
-                     address)))))))))
+                     address)))
+            ;; `gnus-posting-styles' is eval'ed after
+            ;; `message-simplify-subject'.  So we cannot use m-s-s.
+            (setq subject ,debbugs-gnu-subject)))))))
 
 (defun debbugs-gnu-send-control-message (message &optional reverse)
   "Send a control message for the current bug report.