message: change message-mail return value

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index feb0742..a2ebdea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-02-03  Julien Danjou  <julien@danjou.info>
 
        * message.el (message-setup-1): Always generate References first.
+       (message-mail): Return the return value of message-setup, not always t.
 
        * gnus.el (gnus-summary-line-format): Add missing semi-colon for
        user-date in docstring.

diff --git a/lisp/message.el b/lisp/message.el
index 28050f8..42ca73c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6582,9 +6582,7 @@ is a function used to switch to and display the mail buffer."
       (dolist (h other-headers other-headers)
        (if (stringp (car h)) (setcar h (intern (capitalize (car h)))))))
      yank-action send-actions continue switch-function
-     return-action)
-    ;; FIXME: Should return nil if failure.
-    t))
+     return-action)))
 
 ;;;###autoload
 (defun message-news (&optional newsgroups subject)