[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-init.el
From: |
Bill Wohler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-init.el |
Date: |
Wed, 25 Aug 2004 02:22:42 -0400 |
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)))))