(mel-ccl-module): New variable; use it to check mel-ccl is available.
authormorioka <morioka>
Thu, 8 Oct 1998 06:36:39 +0000 (06:36 +0000)
committermorioka <morioka>
Thu, 8 Oct 1998 06:36:39 +0000 (06:36 +0000)
mel.el

diff --git a/mel.el b/mel.el
index 8a7f457..7d51ece 100644 (file)
--- 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"))
   )