(debbugs-gnu-summary-mode): Make sure `gnus-article-copy' is alive.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index e5d30bbcedc1ea2df441132eca4e8dd1e2ed7559..1a8cfe57e327d5a3e4d140acf962461f6f0ffd98 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -2,6 +2,7 @@
 
        * debbugs-gnu.el (debbugs-guess-current-id): New function.
        (debbugs-gnu-send-control-message): Use it.
+       (debbugs-gnu-summary-mode): Make sure `gnus-article-copy' is alive.
 
 2011-07-19  Michael Albinus  <michael.albinus@gmx.de>
 

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 60c893936c6607032590dd86c6b0c211077340b1..c42e1151655a65d50d4e17698c911f6fd4a1ae2a 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -714,22 +714,24 @@ The following commands are available:
   (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")
-                   ("[0-9]+@debbugs.*" "submit@debbugs.gnu.org")
-                   ("[0-9]+@debbugs.*" "quiet@debbugs.gnu.org")))
-            (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)))
-            ;; `gnus-posting-styles' is eval'ed after
-            ;; `message-simplify-subject'.  So we cannot use m-s-s.
-            (setq subject ,debbugs-gnu-subject)))))))
+          (when (buffer-live-p gnus-article-copy)
+            (with-current-buffer gnus-article-copy
+              (set (make-local-variable 'message-prune-recipient-rules)
+                   '((".*@debbugs.*" "emacs-pretest-bug")
+                     (".*@debbugs.*" "bug-gnu-emacs")
+                     ("[0-9]+@debbugs.*" "submit@debbugs.gnu.org")
+                     ("[0-9]+@debbugs.*" "quiet@debbugs.gnu.org")))
+              (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)))
+              ;; `gnus-posting-styles' is eval'ed after
+              ;; `message-simplify-subject'.  So we cannot use m-s-s.
+              (setq subject ,debbugs-gnu-subject))))))))
 
 (defun debbugs-guess-current-id ()
   "Guess the ID based on \"#23\"."