Lines Matching defs:variant
152 "List of directories to search for variants of the MH variant.
162 (defvar mh-variant-in-use nil
163 "The MH variant currently in use; a string with variant and version number.
164 This differs from `mh-variant' when the latter is set to
426 (if mh-variant-in-use
427 (insert mh-variant-in-use "\n"
431 (insert "No MH variant detected\n"))
726 See `mh-variant'."
740 ;; We don't want the same MH variant to be listed multiple times.
746 (let ((variant (mh-variant-info dir)))
747 (if variant
748 (add-to-list 'mh-variants variant)))))
751 (defun mh-variant-info (dir)
752 "Return MH variant found in DIR, or nil if none present."
757 ((mh-variant-mh-info dir))
758 ((mh-variant-nmh-info dir))
759 ((mh-variant-mu-mh-info dir))))))
761 (defun mh-variant-mh-info (dir)
762 "Return info for MH variant in DIR assuming a temporary buffer is setup."
786 (variant mh)
792 (defun mh-variant-mu-mh-info (dir)
793 "Return info for GNU mailutils variant in DIR.
807 (variant mu-mh)
814 (defun mh-variant-nmh-info (dir)
815 "Return info for nmh variant in DIR assuming a temporary buffer is setup."
827 (variant nmh)
838 (defun mh-variant-set-variant (variant)
839 "Setup the system variables for the MH variant named VARIANT.
843 variant."
845 ((stringp variant) ;e.g. "nmh 1.1-RC1"
846 (when (assoc variant (mh-variants))
847 (let* ((alist (cdr (assoc variant (mh-variants))))
852 ;;(set-default mh-variant variant)
858 mh-variant-in-use variant))))
859 ((symbolp variant) ;e.g. 'nmh (pick the first match)
860 (loop for variant-list in (mh-variants)
861 when (eq variant (cadr (assoc 'variant (cdr variant-list))))
862 return (let* ((version (car variant-list))
863 (alist (cdr variant-list))
868 ;;(set-default mh-variant flavor)
874 mh-variant-in-use version)
877 (defun mh-variant-p (&rest variants)
878 "Return t if variant is any of VARIANTS.
880 (let ((variant-in-use
881 (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants))))))
882 (not (null (member variant-in-use variants)))))
905 (defun mh-variant-set (variant)
906 "Set the MH variant to VARIANT.
913 "MH variant: "
918 ((eq variant 'none))
919 ((eq variant 'autodetect)
921 ((mh-variant-set-variant 'nmh)
922 (message "%s installed as MH variant" mh-variant-in-use))
923 ((mh-variant-set-variant 'mh)
924 (message "%s installed as MH variant" mh-variant-in-use))
925 ((mh-variant-set-variant 'mu-mh)
926 (message "%s installed as MH variant" mh-variant-in-use))
928 (message "No MH variant found on the system"))))
929 ((member variant valid-list)
930 (when (not (mh-variant-set-variant variant))
931 (message "Warning: %s variant not found. Autodetecting..." variant)
932 (mh-variant-set 'autodetect)))
934 (message "Unknown variant; use %s"
938 (defcustom-mh mh-variant 'autodetect
939 "*Specifies the variant used by MH-E.
948 and mailutils installed (for example) and `mh-variant-in-use' was
953 `mh-lib-progs', `mh-flists-present-flag', and `mh-variant-in-use'
961 (set-default symbol value) ;Done in mh-variant-set-variant!
962 (mh-variant-set value))