[Emacs-diffs] master 54f7ec0 2/3: (compose-mail): Give a better error message for `mail-user-agent'

[Lars Ingebrigtsen]

branch: master
commit 54f7ec01c336d315c3b9e69c60ef18100840dd54
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    (compose-mail): Give a better error message for `mail-user-agent'
    
    * lisp/simple.el (compose-mail): Give a better error message for
    invalid values for `mail-user-agent' (bug#17979).
---
 lisp/simple.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/simple.el b/lisp/simple.el
index dada65d..7d94b64 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7895,6 +7895,8 @@ To disable this warning, set 
`compose-mail-user-agent-warnings' to nil."
                                               warn-vars " "))))))
 
   (let ((function (get mail-user-agent 'composefunc)))
+    (unless function
+      (error "Invalid value for `mail-user-agent'"))
     (funcall function to subject other-headers continue switch-function
             yank-action send-actions return-action)))