From fd3aad343dd944e00680d43b8e821c98f7d49780 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 3 Jul 2011 14:25:28 +0200 Subject: [PATCH] (gnus-read-ephemeral-emacs-bug-group): Hook into debbugs mode, if possible. --- lisp/ChangeLog | 7 +++++++ lisp/dgnushack.el | 2 ++ lisp/gnus-group.el | 7 ++++++- 3 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64020d63d..3b3d22172 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2011-07-03 Lars Magne Ingebrigtsen + + * dgnushack.el (debbugs-summary-mode): Shut up compiler about debbugs. + + * gnus-group.el (gnus-read-ephemeral-emacs-bug-group): Hook into + debbugs mode, if possible. + 2011-07-02 Daiki Ueno * auth-source.el (auth-source-token-passphrase-callback-function): diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index c5723d48b..c007d0cf0 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -129,6 +129,8 @@ (defalias 'efs-re-read-dir 'ignore) (defalias 'ange-ftp-re-read-dir 'ignore) (defalias 'define-mail-user-agent 'ignore) +(defalias 'debbugs-summary-mode 'ignore) +(defvar debbugs-bug-number nil) (eval-and-compile (unless (featurep 'xemacs) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 74b1c7042..70be1ce36 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2471,7 +2471,12 @@ the bug number, and browsing the URL must return mbox output." (gnus-read-ephemeral-bug-group number (cdr (assoc 'emacs gnus-bug-group-download-format-alist)) - window-conf)) + window-conf) + (when (boundp 'debbugs-summary-mode) + (with-current-buffer (window-buffer (selected-window)) + (debbugs-summary-mode 1) + (set (make-local-variable 'debbugs-bug-number) + (string-to-number number))))) (defun gnus-group-jump-to-group (group &optional prompt) "Jump to newsgroup GROUP. -- 2.25.1