Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-setup.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8fc7fe29b841
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996 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.5 1997/02/16 01:29:34 steve Exp $ 6 ;; Version: $Id: tm-setup.el,v 1.1.1.1 1996/12/18 22:43:38 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
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the 22 ;; along with This program; see the file COPYING. If not, write to
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Code: 26 ;;; Code:
27 27
28 (require 'tl-misc) 28 (require 'tl-misc)
40 40
41 ;; for anonymous ftp 41 ;; for anonymous ftp
42 (set-atype 'mime/content-decoding-condition 42 (set-atype 'mime/content-decoding-condition
43 '((type . "message/external-body") 43 '((type . "message/external-body")
44 ("access-type" . "anon-ftp") 44 ("access-type" . "anon-ftp")
45 (method . mime-article/decode-message/external-ftp) 45 (method . mime/decode-message/external-ftp)
46 )) 46 ))
47 (autoload 'mime-article/decode-message/external-ftp "tm-ftp") 47 (autoload 'mime/decode-message/external-ftp "tm-ftp")
48 48
49 ;; for LaTeX 49 ;; for LaTeX
50 (set-atype 'mime/content-decoding-condition 50 (set-atype 'mime/content-decoding-condition
51 '((type . "text/x-latex") 51 '((type . "text/x-latex")
52 (method . mime/decode-text/latex) 52 (method . mime/decode-text/latex)
53 )) 53 ))
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
67 ;; for image/* and X-Face 66 ;; for image/* and X-Face
68 (defvar mime-setup-enable-inline-image 67 (if running-xemacs
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
76 (call-after-loaded 'tm-view 68 (call-after-loaded 'tm-view
77 (function 69 (function
78 (lambda () 70 (lambda ()
79 (require 'tm-image) 71 (require 'tm-image)
80 ))) 72 )))
81 ) 73 )
82 74
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
88 ;; for PGP 75 ;; for PGP
89 (if mime-setup-enable-pgp 76 (if (module-installed-p 'mailcrypt)
90 (call-after-loaded 'tm-view 77 (call-after-loaded 'tm-view
91 (function 78 (function
92 (lambda () 79 (lambda ()
93 (require 'tm-pgp) 80 (require 'tm-pgp)
94 ))) 81 )))
96 83
97 84
98 ;;; @ for RMAIL 85 ;;; @ for RMAIL
99 ;;; 86 ;;;
100 87
101 (defun tm-setup/load-rmail () 88 (call-after-loaded 'rmail
102 (or (and (boundp 'rmail-support-mime) 89 (function
103 rmail-support-mime) 90 (lambda ()
104 (require 'tm-rmail) 91 (require 'tm-rmail)
105 ) 92 ))
106 (remove-hook 'rmail-mode-hook 'tm-setup/load-rmail) 93 'rmail-mode-hook)
107 )
108
109 (call-after-loaded 'rmail 'tm-setup/load-rmail 'rmail-mode-hook)
110 94
111 95
112 ;;; @ for mh-e 96 ;;; @ for mh-e
113 ;;; 97 ;;;
114 98