Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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.3 $ 7 ;; Version: $Revision: 1.4 $
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.3 1997/02/02 05:06:20 steve Exp $") 45 "$Id: tm-view.el,v 1.4 1997/02/16 01:29:34 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
1005 )) 1005 ))
1006 (setq rest (cdr rest)) 1006 (setq rest (cdr rest))
1007 )) 1007 ))
1008 (mime/decode-message-header) 1008 (mime/decode-message-header)
1009 ) 1009 )
1010 (funcall (cdr (assq mode mime-viewer/following-method-alist)) 1010 (let ((f (cdr (assq mode mime-viewer/following-method-alist))))
1011 new-buf) 1011 (if (functionp f)
1012 (funcall f new-buf)
1013 (message
1014 (format
1015 "Sorry, following method for %s is not implemented yet."
1016 mode))
1017 ))
1012 )))) 1018 ))))
1013 1019
1014 (defun mime-viewer/display-x-face () 1020 (defun mime-viewer/display-x-face ()
1015 (interactive) 1021 (interactive)
1016 (save-window-excursion 1022 (save-window-excursion