Re: [Emacs-diffs] /srv/bzr/emacs/trunk r102607: * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.

[Stefan Monnier]

> === modified file 'lisp/mail/emacsbug.el'
> --- a/lisp/mail/emacsbug.el   2010-12-03 03:03:06 +0000
> +++ b/lisp/mail/emacsbug.el   2010-12-08 03:47:27 +0000
> @@ -288,7 +288,13 @@
>                   report-emacs-bug-send-hook 'mail-send-hook))
>            ((eq mail-user-agent 'mh-e-user-agent)
>             (setq report-emacs-bug-send-command "mh-send-letter"
> -                 report-emacs-bug-send-hook 'mh-before-send-letter-hook)))
> +                 report-emacs-bug-send-hook 'mh-before-send-letter-hook))
> +       ((eq mail-user-agent 'vm-user-agent)
> +        (setq report-emacs-bug-send-command "vm-mail-send-and-exit"
> +              report-emacs-bug-send-hook 'vm-mail-send-hook))
> +       ((eq mail-user-agent 'wl-user-agent)
> +        (setq report-emacs-bug-send-command "wl-draft-send-and-exit"
> +              report-emacs-bug-send-hook 'wl-draft-send-hook)))
>      (unless report-emacs-bug-no-explanations
>        (with-output-to-temp-buffer "*Bug Help*"
>       (princ "While in the mail buffer:\n\n")

BTW, could someone fix this right by using the info already provided via
define-mail-user-agent?
Something like

  (setq report-emacs-bug-send-command
        (symbol-name (get mail-user-agent 'sendfunc)))
  (setq report-emacs-bug-send-hook (get mail-user-agent 'hookvar))


-- Stefan