From 54f7ec01c336d315c3b9e69c60ef18100840dd54 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 15 Apr 2018 20:06:27 +0200 Subject: [PATCH] (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 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))) -- 2.39.5