This commit was generated by cvs2svn to compensate for changes in r5947,

[elisp/gnus.git-] / lisp / gnus-setup.el

diff --git a/lisp/gnus-setup.el b/lisp/gnus-setup.el
index c98ef72..ae9909b 100644 (file)
--- a/lisp/gnus-setup.el
+++ b/lisp/gnus-setup.el
@@ -65,20 +65,22 @@
                                         "site-lisp/bbdb-1.51/")
   "Directory where Big Brother Database is found.")
 
+(defvar gnus-use-tm running-xemacs
+  "Set this if you want MIME support for Gnus")
 (defvar gnus-use-mhe nil
-  "Set this if you want to use MH-E for mail reading.")
+  "Set this if you want to use MH-E for mail reading")
 (defvar gnus-use-rmail nil
-  "Set this if you want to use RMAIL for mail reading.")
+  "Set this if you want to use RMAIL for mail reading")
 (defvar gnus-use-sendmail t
-  "Set this if you want to use SENDMAIL for mail reading.")
+  "Set this if you want to use SENDMAIL for mail reading")
 (defvar gnus-use-vm nil
-  "Set this if you want to use the VM package for mail reading.")
+  "Set this if you want to use the VM package for mail reading")
 (defvar gnus-use-sc nil
-  "Set this if you want to use Supercite.")
+  "Set this if you want to use Supercite")
 (defvar gnus-use-mailcrypt t
-  "Set this if you want to use Mailcrypt for dealing with PGP messages.")
+  "Set this if you want to use Mailcrypt for dealing with PGP messages")
 (defvar gnus-use-bbdb nil
-  "Set this if you want to use the Big Brother DataBase.")
+  "Set this if you want to use the Big Brother DataBase")
 
 (when (and (not gnus-use-installed-gnus)
           (null (member gnus-gnus-lisp-directory load-path)))
@@ -87,6 +89,19 @@
 ;;; We can't do this until we know where Gnus is.
 (require 'message)
 
+;;; Tools for MIME by
+;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
+;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+(when gnus-use-tm
+  (when (and (not gnus-use-installed-tm)
+            (null (member gnus-tm-lisp-directory load-path)))
+    (setq load-path (cons gnus-tm-lisp-directory load-path)))
+  ;; tm may or may not be dumped with XEmacs.  In Sunpro it is, otherwise
+  ;; it isn't.
+  (unless (featurep 'mime-setup)
+    (load "mime-setup")))
+
 ;;; Mailcrypt by
 ;;; Jin Choi <jin@atype.com>
 ;;; Patrick LoPresti <patl@lcs.mit.edu>