diff options
| -rw-r--r-- | debian-bug.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/debian-bug.el b/debian-bug.el index bf7392d..18bfff9 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -286,6 +286,9 @@ ;; V1.65 02Sep2007 Peter S Galbraith <psg@debian.org> ;; - Implement pacakge lookup on http://packages.debian.org/ ;; See http://bugs.debian.org/87725 +;; V1.66 24Sep2007 Luca Capello <luca@pca.it> +;; - Add `debian-bug-get-bug-as-email-hook' and relative `run-hooks' +;; (Closes: #392475) ;; ---------------------------------------------------------------------------- ;;; Todo (Peter's list): @@ -445,6 +448,13 @@ Otherwise, simply use the menu entry to generate it." :group 'debian-bug :type 'boolean) +;; hooks +(defcustom debian-bug-get-bug-as-email-hook nil + "Hook run when getting a bug through `mail-user-agent'." + :group 'debian-bug + :type 'hook) + + ;;; Internal variables: (defvar debian-bug-mail-address @@ -1707,6 +1717,7 @@ If SUBMENU is t, then check for current sexp submenu only." (gnus-alive-p)))) (error "Please start `gnus' (or `gnus-slave') first")) (debian-bug-prompt-bug-number "Bug number to fetch"))) + (run-hooks 'debian-bug-get-bug-as-email-hook) (cond ((and (eq mail-user-agent 'mh-e-user-agent) (featurep 'mh-inc)) |