Function: bug-reference-try-setup-from-gnus

bug-reference-try-setup-from-gnus is a byte-compiled function defined in bug-reference.el.gz.

Signature

(bug-reference-try-setup-from-gnus)

Documentation

Try setting up bug-reference-mode(var)/bug-reference-mode(fun) based on Gnus group or article.

Test each configuration in bug-reference-setup-from-mail-alist and set it if applicable.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/bug-reference.el.gz
(defun bug-reference-try-setup-from-gnus ()
  "Try setting up `bug-reference-mode' based on Gnus group or article.
Test each configuration in `bug-reference-setup-from-mail-alist'
and set it if applicable."
  (when (and (derived-mode-p 'gnus-summary-mode)
             (bound-and-true-p gnus-newsgroup-name))
    ;; Gnus reuses its article buffer so we have to check whenever the
    ;; article changes.
    (add-hook 'gnus-article-prepare-hook
              #'bug-reference--try-setup-gnus-article)
    (bug-reference-maybe-setup-from-mail gnus-newsgroup-name nil)))