[gnus git] branch master updated: n0-17-145-gfd3aad3 =1= (gnus-read-ephemeral-emacs-bug-group): Hook into debbugs mode, if possible.

       via  fd3aad343dd944e00680d43b8e821c98f7d49780 (commit)
      from  4890aceee507b51d898414651bdeb57637dcd3ab (commit)


- Log -----------------------------------------------------------------
commit fd3aad343dd944e00680d43b8e821c98f7d49780
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jul 3 14:25:28 2011 +0200

    (gnus-read-ephemeral-emacs-bug-group): Hook into debbugs mode, if possible.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64020d6..3b3d221 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-07-03  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* auth-source.el (auth-source-token-passphrase-callback-function):
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index c5723d4..c007d0c 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 74b1c70..70be1ce 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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    7 +++++++
 lisp/dgnushack.el  |    2 ++
 lisp/gnus-group.el |    7 ++++++-
 3 files changed, 15 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project