[Emacs-diffs] /srv/bzr/emacs/trunk r104461: * lisp/mail/emacsbug.el (report-emacs-bug-hook): Mailclient ignores From.

[Glenn Morris]

------------------------------------------------------------
revno: 104461
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-05-31 20:35:49 -0700
message:
  * lisp/mail/emacsbug.el (report-emacs-bug-hook): Mailclient ignores From.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-31 21:40:30 +0000
+++ b/lisp/ChangeLog    2011-06-01 03:35:49 +0000
@@ -56,6 +56,10 @@
        (rcirc-decode-coding-system): Allow value nil for automatic coding
        system detection.
 
+2011-06-01  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug-hook): Mailclient ignores From.
+
 2011-05-29  Chong Yidong  <address@hidden>
 
        * image.el (image-animate-max-time): Allow nil and t values.

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2011-05-27 01:58:50 +0000
+++ b/lisp/mail/emacsbug.el     2011-06-01 03:35:49 +0000
@@ -331,6 +331,7 @@
 
 ;; It's the default mail mode, so it seems OK to use its features.
 (autoload 'message-bogus-recipient-p "message")
+(defvar message-send-mail-function)
 
 (defun report-emacs-bug-hook ()
   "Do some checking before sending a bug report."
@@ -343,6 +344,10 @@
                        report-emacs-bug-orig-text)
          (error "No text entered in bug report"))
     (or report-emacs-bug-no-confirmation
+       ;; mailclient.el does not handle From (at present).
+       (if (eq major-mode 'message-mode)
+           (eq message-send-mail-function 'message-send-mail-with-mailclient)
+         (eq send-mail-function 'mailclient-send-it))
        ;; Not narrowing to the headers, but that's OK.
        (let ((from (mail-fetch-field "From")))
          (and (or (not from)