Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-setup.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 4b173ad71786
children d95e72db5c07
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; tm-setup.el --- setup file for tm viewer. 1 ;;; tm-setup.el --- setup file for tm viewer.
2 2
3 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: tm-setup.el,v 1.2 1996/12/22 00:29:42 steve Exp $ 6 ;; Version: $Id: tm-setup.el,v 1.3 1997/02/02 05:06:20 steve Exp $
7 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word 7 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
61 ;; (method . mime/decode-text/latex) 61 ;; (method . mime/decode-text/latex)
62 ;; )) 62 ;; ))
63 (autoload 'mime/decode-text/latex "tm-latex") 63 (autoload 'mime/decode-text/latex "tm-latex")
64 ))) 64 )))
65 65
66
66 ;; for image/* and X-Face 67 ;; for image/* and X-Face
67 (if running-xemacs 68 (defvar mime-setup-enable-inline-image
69 (and window-system
70 (or running-xemacs
71 (and (featurep 'mule)(module-installed-p 'bitmap))
72 ))
73 "*If it is non-nil, tm-setup sets up to use tm-image.")
74
75 (if mime-setup-enable-inline-image
68 (call-after-loaded 'tm-view 76 (call-after-loaded 'tm-view
69 (function 77 (function
70 (lambda () 78 (lambda ()
71 (require 'tm-image) 79 (require 'tm-image)
72 ))) 80 )))
73 ) 81 )
74 82
83
84 (defvar mime-setup-enable-pgp
85 (module-installed-p 'mailcrypt)
86 "*If it is non-nil, tm-setup sets uf to use tm-pgp.")
87
75 ;; for PGP 88 ;; for PGP
76 (if (module-installed-p 'mailcrypt) 89 (if mime-setup-enable-pgp
77 (call-after-loaded 'tm-view 90 (call-after-loaded 'tm-view
78 (function 91 (function
79 (lambda () 92 (lambda ()
80 (require 'tm-pgp) 93 (require 'tm-pgp)
81 ))) 94 )))