From: morioka <morioka>
Date: Thu, 8 Oct 1998 06:36:39 +0000 (+0000)
Subject: (mel-ccl-module): New variable; use it to check mel-ccl is available.
X-Git-Tag: flim-1_10_2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=da08710b0de8d6778047dc001c3642476dfa3b97;p=elisp%2Fflim.git

(mel-ccl-module): New variable; use it to check mel-ccl is available.
---

diff --git a/mel.el b/mel.el
index 8a7f457..7d51ece 100644
--- a/mel.el
+++ b/mel.el
@@ -85,13 +85,16 @@ Content-Transfer-Encoding for it."
 	 (and (file-exists-p path)
 	      path))))
 
+(defvar mel-ccl-module
+  (and (featurep 'mule)
+       (module-installed-p 'mel-ccl)))
 
 (mel-use-module 'mel-b '("base64" "B"))
 (mel-use-module 'mel-q '("quoted-printable" "Q"))
 (mel-use-module 'mel-g '("x-gzip64"))
 (mel-use-module 'mel-u '("x-uue" "x-uuencode"))
 
-(if (featurep 'mule)
+(if mel-ccl-module
     (mel-use-module 'mel-ccl '("base64" "quoted-printable" "B" "Q"))
   )