[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-init.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-init.el
diff -c emacs/lisp/mh-e/mh-init.el:1.2 emacs/lisp/mh-e/mh-init.el:1.3
*** emacs/lisp/mh-e/mh-init.el:1.2      Mon Aug 16 03:48:53 2004
--- emacs/lisp/mh-e/mh-init.el  Wed Aug 25 05:55:39 2004
***************
*** 90,96 ****
        (cond
         ((mh-variant-set-variant 'nmh)
          (message "%s installed as MH variant" mh-variant-in-use))
!        ((mh-variant-set-variant 'MH)
          (message "%s installed as MH variant" mh-variant-in-use))
         ((mh-variant-set-variant 'mu-mh)
          (message "%s installed as MH variant" mh-variant-in-use))
--- 90,96 ----
        (cond
         ((mh-variant-set-variant 'nmh)
          (message "%s installed as MH variant" mh-variant-in-use))
!        ((mh-variant-set-variant 'mh)
          (message "%s installed as MH variant" mh-variant-in-use))
         ((mh-variant-set-variant 'mu-mh)
          (message "%s installed as MH variant" mh-variant-in-use))
***************
*** 145,151 ****
  ;;;###mh-autoload
  (defun mh-variant-p (&rest variants)
    "Return t if variant is any of VARIANTS.
! Currently known variants are 'mh and 'nmh."
    (let ((variant-in-use
           (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))
      (not (null (member variant-in-use variants)))))
--- 145,151 ----
  ;;;###mh-autoload
  (defun mh-variant-p (&rest variants)
    "Return t if variant is any of VARIANTS.
! Currently known variants are 'MH, 'nmh, and 'mu-mh."
    (let ((variant-in-use
           (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))
      (not (null (member variant-in-use variants)))))