diff options
| author | Lars Ingebrigtsen | 2018-04-15 20:06:27 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2018-04-15 20:06:27 +0200 |
| commit | 54f7ec01c336d315c3b9e69c60ef18100840dd54 (patch) | |
| tree | 45349ee95df527c197b91ee9a69de275259cc755 | |
| parent | 1143906b79dc7ffb39ce98f06a7540a1deed7da4 (diff) | |
| download | emacs-54f7ec01c336d315c3b9e69c60ef18100840dd54.tar.gz emacs-54f7ec01c336d315c3b9e69c60ef18100840dd54.zip | |
(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).
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 2 insertions, 0 deletions
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." | |||
| 7895 | warn-vars " ")))))) | 7895 | warn-vars " ")))))) |
| 7896 | 7896 | ||
| 7897 | (let ((function (get mail-user-agent 'composefunc))) | 7897 | (let ((function (get mail-user-agent 'composefunc))) |
| 7898 | (unless function | ||
| 7899 | (error "Invalid value for `mail-user-agent'")) | ||
| 7898 | (funcall function to subject other-headers continue switch-function | 7900 | (funcall function to subject other-headers continue switch-function |
| 7899 | yank-action send-actions return-action))) | 7901 | yank-action send-actions return-action))) |
| 7900 | 7902 | ||