Mercurial > emacs

comparison lisp/mh-e/mh-init.el @ 56787:25da1d331c99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgraded to MH-E version 7.82. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Wed, 25 Aug 2004 05:55:39 +0000
parents 5aafbbdd005f
children 4f4f410e6fe8
comparison
equal deleted inserted replaced
56786:1a0bf37e6b8c 56787:25da1d331c99
88 ((eq variant 'none)) 88 ((eq variant 'none))
89 ((eq variant 'autodetect) 89 ((eq variant 'autodetect)
90 (cond 90 (cond
91 ((mh-variant-set-variant 'nmh) 91 ((mh-variant-set-variant 'nmh)
92 (message "%s installed as MH variant" mh-variant-in-use)) 92 (message "%s installed as MH variant" mh-variant-in-use))
93 ((mh-variant-set-variant 'MH) 93 ((mh-variant-set-variant 'mh)
94 (message "%s installed as MH variant" mh-variant-in-use)) 94 (message "%s installed as MH variant" mh-variant-in-use))
95 ((mh-variant-set-variant 'mu-mh) 95 ((mh-variant-set-variant 'mu-mh)
96 (message "%s installed as MH variant" mh-variant-in-use)) 96 (message "%s installed as MH variant" mh-variant-in-use))
97 (t 97 (t
98 (message "No MH variant found on the system!")))) 98 (message "No MH variant found on the system!"))))
143 t))))) 143 t)))))
144 144
145 ;;;###mh-autoload 145 ;;;###mh-autoload
146 (defun mh-variant-p (&rest variants) 146 (defun mh-variant-p (&rest variants)
147 "Return t if variant is any of VARIANTS. 147 "Return t if variant is any of VARIANTS.
148 Currently known variants are 'mh and 'nmh." 148 Currently known variants are 'MH, 'nmh, and 'mu-mh."
149 (let ((variant-in-use 149 (let ((variant-in-use
150 (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants))))) 150 (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))
151 (not (null (member variant-in-use variants))))) 151 (not (null (member variant-in-use variants)))))
152 152
153 (defvar mh-sys-path 153 (defvar mh-sys-path