summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-comp.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2018-03-07 22:56:23 -0800
committerGlenn Morris <rgm@gnu.org>2018-03-07 22:56:23 -0800
commit2dc909c67b987e20cbfd4816cb4264151c68f2f9 (patch)
tree62d9811a3f3f404240f42d8a8b73fc8bb0a7302f /lisp/mh-e/mh-comp.el
parentbb1309f1eb7651b41f2b6b7fb97ddb86bb82160c (diff)
downloademacs-2dc909c67b987e20cbfd4816cb4264151c68f2f9.tar.gz
emacs-2dc909c67b987e20cbfd4816cb4264151c68f2f9.tar.bz2
emacs-2dc909c67b987e20cbfd4816cb4264151c68f2f9.zip
Suppress "No MH variant found" message (bug#30669)
* lisp/mh-e/mh-e.el (mh-variant): Don't try to detect till needed. * lisp/mh-e/mh-e.el (mh-version, mh-variant-p): * lisp/mh-e/mh-comp.el (mh-insert-x-mailer): Ensure mh-variant-in-use is set.
Diffstat (limited to 'lisp/mh-e/mh-comp.el')
-rw-r--r--lisp/mh-e/mh-comp.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index cfdd2ae5abf..941529330e1 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -1056,6 +1056,7 @@ letter."
(defun mh-insert-x-mailer ()
"Append an X-Mailer field to the header.
The versions of MH-E, Emacs, and MH are shown."
+ (or mh-variant-in-use (mh-variant-set mh-variant))
;; Lazily initialize mh-x-mailer-string.
(when (and mh-insert-x-mailer-flag (null mh-x-mailer-string))
(setq mh-x-mailer-string