From 70d1b6c547a07ee6b0e9088fc2347317787a9496 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 8 Jun 1998 13:19:47 +0000 Subject: [PATCH] (mime-setup-enable-inline-html): New variable; add setting for mime-w3.el conditionally. --- semi-setup.el | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/semi-setup.el b/semi-setup.el index 33ec99c..10bc81a 100644 --- a/semi-setup.el +++ b/semi-setup.el @@ -45,11 +45,35 @@ ) +;; for text/html +(defvar mime-setup-enable-inline-html + (module-installed-p 'w3) + "*If it is non-nil, semi-setup sets up to use mime-w3.") + +(if mime-setup-enable-inline-html + (call-after-loaded + 'mime-view + (function + (lambda () + (autoload 'mime-preview-text/html "mime-w3") + + (ctree-set-calist-strictly + 'mime-preview-condition + '((type . text)(subtype . html) + (body . visible) + (body-presentation-method . mime-preview-text/html))) + + (set-alist 'mime-view-type-subtype-score-alist + '(text . html) 3) + ))) + ) + + +;; for PGP (defvar mime-setup-enable-pgp (module-installed-p 'mailcrypt) "*If it is non-nil, semi-setup sets uf to use mime-pgp.") -;; for PGP (if mime-setup-enable-pgp (eval-after-load "mime-view" '(progn -- 1.7.10.4