Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 54cc21c15cbb
children 360340f9fd5f
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; tm-view.el --- interactive MIME viewer for GNU Emacs 1 ;;; tm-view.el --- interactive MIME viewer for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 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.1.1.2 $ 7 ;; Version: $Revision: 1.2 $
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.1.1.2 1996/12/21 20:50:43 steve Exp $") 45 "$Id: tm-view.el,v 1.2 1997/02/15 22:21:30 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
739 (define-key mime/viewer-mode-map 739 (define-key mime/viewer-mode-map
740 "p" (function mime-viewer/previous-content)) 740 "p" (function mime-viewer/previous-content))
741 (define-key mime/viewer-mode-map 741 (define-key mime/viewer-mode-map
742 "n" (function mime-viewer/next-content)) 742 "n" (function mime-viewer/next-content))
743 (define-key mime/viewer-mode-map 743 (define-key mime/viewer-mode-map
744 "\e\t" (function mime-viewer/previous-content))
745 (define-key mime/viewer-mode-map
746 "\t" (function mime-viewer/next-content))
747 (define-key mime/viewer-mode-map
744 " " (function mime-viewer/scroll-up-content)) 748 " " (function mime-viewer/scroll-up-content))
745 (define-key mime/viewer-mode-map 749 (define-key mime/viewer-mode-map
746 "\M- " (function mime-viewer/scroll-down-content)) 750 "\M- " (function mime-viewer/scroll-down-content))
747 (define-key mime/viewer-mode-map 751 (define-key mime/viewer-mode-map
748 "\177" (function mime-viewer/scroll-down-content)) 752 "\177" (function mime-viewer/scroll-down-content))
751 (define-key mime/viewer-mode-map 755 (define-key mime/viewer-mode-map
752 "\C-\M-m" (function mime-viewer/previous-line-content)) 756 "\C-\M-m" (function mime-viewer/previous-line-content))
753 (define-key mime/viewer-mode-map 757 (define-key mime/viewer-mode-map
754 "v" (function mime-viewer/play-content)) 758 "v" (function mime-viewer/play-content))
755 (define-key mime/viewer-mode-map 759 (define-key mime/viewer-mode-map
756 "e" (function mime-viewer/extract-content)) 760 "e" (function mime-viewer/extract-content))
757 (define-key mime/viewer-mode-map 761 (define-key mime/viewer-mode-map
758 "\C-c\C-p" (function mime-viewer/print-content)) 762 "\C-c\C-p" (function mime-viewer/print-content))
759 (define-key mime/viewer-mode-map 763 (define-key mime/viewer-mode-map
760 "x" (function mime-viewer/display-x-face)) 764 "x" (function mime-viewer/display-x-face))
761 (define-key mime/viewer-mode-map 765 (define-key mime/viewer-mode-map
806 810
807 key feature 811 key feature
808 --- ------- 812 --- -------
809 813
810 u Move to upper content 814 u Move to upper content
811 p Move to previous content 815 p or M-TAB Move to previous content
812 n Move to next content 816 n or TAB Move to next content
813 SPC Scroll up or move to next content 817 SPC Scroll up or move to next content
814 M-SPC Scroll down or move to previous content 818 M-SPC or DEL Scroll down or move to previous content
815 DEL Scroll down or move to previous content
816 RET Move to next line 819 RET Move to next line
817 M-RET Move to previous line 820 M-RET Move to previous line
818 v Decode current content as `play mode' 821 v Decode current content as `play mode'
819 e Decode current content as `extract mode' 822 e Decode current content as `extract mode'
820 C-c C-p Decode current content as `print mode' 823 C-c C-p Decode current content as `print mode'
1002 )) 1005 ))
1003 (setq rest (cdr rest)) 1006 (setq rest (cdr rest))
1004 )) 1007 ))
1005 (mime/decode-message-header) 1008 (mime/decode-message-header)
1006 ) 1009 )
1007 (funcall (cdr (assq mode mime-viewer/following-method-alist)) 1010 (let ((f (cdr (assq mode mime-viewer/following-method-alist))))
1008 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 ))
1009 )))) 1018 ))))
1010 1019
1011 (defun mime-viewer/display-x-face () 1020 (defun mime-viewer/display-x-face ()
1012 (interactive) 1021 (interactive)
1013 (save-window-excursion 1022 (save-window-excursion