/[emacs]/emacs/lisp/mh-e/mh-init.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-init.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by miles, Mon Aug 16 03:48:53 2004 UTC revision 1.3 by wohler, Wed Aug 25 05:55:39 2004 UTC
# Line 90  GNU mailutils." Line 90  GNU mailutils."
90        (cond        (cond
91         ((mh-variant-set-variant 'nmh)         ((mh-variant-set-variant 'nmh)
92          (message "%s installed as MH variant" mh-variant-in-use))          (message "%s installed as MH variant" mh-variant-in-use))
93         ((mh-variant-set-variant 'MH)         ((mh-variant-set-variant 'mh)
94          (message "%s installed as MH variant" mh-variant-in-use))          (message "%s installed as MH variant" mh-variant-in-use))
95         ((mh-variant-set-variant 'mu-mh)         ((mh-variant-set-variant 'mu-mh)
96          (message "%s installed as MH variant" mh-variant-in-use))          (message "%s installed as MH variant" mh-variant-in-use))
# Line 145  If VARIANT is a symbol, select the first Line 145  If VARIANT is a symbol, select the first
145  ;;;###mh-autoload  ;;;###mh-autoload
146  (defun mh-variant-p (&rest variants)  (defun mh-variant-p (&rest variants)
147    "Return t if variant is any of VARIANTS.    "Return t if variant is any of VARIANTS.
148  Currently known variants are 'mh and 'nmh."  Currently known variants are 'MH, 'nmh, and 'mu-mh."
149    (let ((variant-in-use    (let ((variant-in-use
150           (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))           (cadr (assoc 'variant (assoc mh-variant-in-use mh-variants)))))
151      (not (null (member variant-in-use variants)))))      (not (null (member variant-in-use variants)))))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26