[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select f0512cd 016/218: Suppress "No MH varia
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select f0512cd 016/218: Suppress "No MH variant found" message (bug#30669) |
Date: |
Fri, 14 Dec 2018 03:34:47 -0500 (EST) |
branch: feature/gnus-select
commit f0512cded2094ea7f60c0b65f4e0117c554b9533
Author: Glenn Morris <address@hidden>
Commit: Andrew G Cohen <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"))
- [Emacs-diffs] feature/gnus-select 02bc779 001/218: Minor fix in Emacs manual's Glossary, (continued)
- [Emacs-diffs] feature/gnus-select 02bc779 001/218: Minor fix in Emacs manual's Glossary, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 0ed901f 004/218: More minor changes in the Glossary of the Emacs manual, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 590763e 006/218: Condition em-cmpl's setting of pcomplete-suffix-list, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select c8fbb06 009/218: Remove some unused spam.el variables, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 754dd52 018/218: * lisp/mh-e/mh-e.el (mh-variant-set): Tweak failure message., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select e371b8a 017/218: * lisp/mh-e/mh-utils.el (mh-find-path): Add missing part of previous., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select f8efd23 019/218: Add OpenDocument formats to Tramp file archives, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select d2d8012 013/218: Replace some obsolete aliases in documentation, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 5c6f7b3 007/218: Replace some obsolete aliases in documentation, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select bb63387 012/218: Minor improvements in manuals, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select f0512cd 016/218: Suppress "No MH variant found" message (bug#30669),
Andrew G Cohen <=
- [Emacs-diffs] feature/gnus-select 7ec13d7 011/218: Minor copyedits in display.texi, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 30510cf 026/218: Update from Gnulib, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select c69a17d 025/218: * lisp/isearch.el (search-exit-option): Add option 'append'., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 781d997 008/218: Replace some obsolete aliases in code, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 317b4d2 010/218: Fix display of TABs in hscrolled windows with line numbers, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select de2b09f 024/218: Add to "Completion Commands" Info node, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 4efd277 030/218: ; * lisp/org/org-table.el: Replace obsolete alias in comment., Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 52b1442 003/218: Revert last commit, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 1d6e562 021/218: More minor changes in the manual, Andrew G Cohen, 2018/12/14
- [Emacs-diffs] feature/gnus-select 954d7ce 035/218: * test/Makefile.in (check-declare): New PHONY rule., Andrew G Cohen, 2018/12/14