From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 15 Apr 2018 18:06:27 +0000 (+0200)
Subject: (compose-mail): Give a better error message for `mail-user-agent'
X-Git-Tag: emacs-27.0.90~5180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54f7ec01c336d315c3b9e69c60ef18100840dd54;p=emacs.git

(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).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index dada65d4ee3..7d94b64913f 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)))