[Emacs-diffs] master 2dc909c 1/3: Suppress "No MH variant found" message (bug#30669)

[Glenn Morris]

branch: master
commit 2dc909c67b987e20cbfd4816cb4264151c68f2f9
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 lisp/mh-e/mh-comp.el | 1 +
 lisp/mh-e/mh-e.el    | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index cfdd2ae..9415293 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
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 05ff672..7b587a8 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -410,6 +410,8 @@ gnus-version)
   (require 'gnus)
   gnus-version)
 
+(defvar mh-variant)
+
 ;;;###autoload
 (defun mh-version ()
   "Display version information about MH-E and the MH mail handling system."
@@ -430,6 +432,7 @@ gnus-version)
   ;; Emacs version.
   (insert (emacs-version) "\n\n")
   ;; MH version.
+  (or mh-variant-in-use (mh-variant-set mh-variant))
   (if mh-variant-in-use
       (insert mh-variant-in-use "\n"
               " mh-progs:\t" mh-progs "\n"
@@ -876,6 +879,7 @@ variant."
 (defun mh-variant-p (&rest variants)
   "Return t if variant is any of VARIANTS.
 Currently known variants are `MH', `nmh', and `gnu-mh'."
+  (or mh-variant-in-use (mh-variant-set mh-variant))
   (let ((variant-in-use
          (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants))))))
     (not (null (member variant-in-use variants)))))
@@ -972,6 +976,7 @@ necessary and can actually cause problems."
   :set (lambda (symbol value)
          (set-default symbol value)     ;Done in mh-variant-set-variant!
          (mh-variant-set value))
+  :initialize 'custom-initialize-default
   :group 'mh-e
   :package-version '(MH-E . "8.0"))