Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
2 2
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 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 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) 6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
7 ;; Version: $Revision: 1.5 $ 7 ;; Version: $Revision: 1.6 $
8 ;; Keywords: mail, news, MIME, multimedia 8 ;; Keywords: mail, news, MIME, multimedia
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
40 40
41 ;;; @ version 41 ;;; @ version
42 ;;; 42 ;;;
43 43
44 (defconst mime-viewer/RCS-ID 44 (defconst mime-viewer/RCS-ID
45 "$Id: tm-view.el,v 1.5 1997/03/09 02:37:51 steve Exp $") 45 "$Id: tm-view.el,v 1.6 1997/08/21 06:24:14 steve Exp $")
46 46
47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) 47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
48 (defconst mime/viewer-version mime-viewer/version) 48 (defconst mime/viewer-version mime-viewer/version)
49 49
50 50
72 ((type . "image/jpeg") 72 ((type . "image/jpeg")
73 (method "tm-image" nil 'file 'type 'encoding 'mode 'name) 73 (method "tm-image" nil 'file 'type 'encoding 'mode 'name)
74 (mode "play" "print") 74 (mode "play" "print")
75 ) 75 )
76 ((type . "image/gif") 76 ((type . "image/gif")
77 (method "tm-image" nil 'file 'type 'encoding 'mode 'name)
78 (mode "play" "print")
79 )
80 ((type . "image/png")
77 (method "tm-image" nil 'file 'type 'encoding 'mode 'name) 81 (method "tm-image" nil 'file 'type 'encoding 'mode 'name)
78 (mode "play" "print") 82 (mode "play" "print")
79 ) 83 )
80 ((type . "image/tiff") 84 ((type . "image/tiff")
81 (method "tm-image" nil 'file 'type 'encoding 'mode 'name) 85 (method "tm-image" nil 'file 'type 'encoding 'mode 'name)