From: morioka Date: Tue, 10 Mar 1998 11:32:49 +0000 (+0000) Subject: tm 7.103. X-Git-Tag: tm-7_103~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4ee3cb8ce7aa393cff858d6ce2b87a650ee15dc9;p=elisp%2Ftm.git tm 7.103. --- diff --git a/ChangeLog b/ChangeLog index 5a304c7..44b8a72 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,34 @@ +1997-01-31 MORIOKA Tomohiko + + * emu: Version 7.37.6 was released. + * MU: Version 0.39.2 was released. + * tm: Version 7.103 was released. + * tm-mh-e: Version 7.73.2 was released. + +Fri Jan 31 14:21:10 1997 MORIOKA Tomohiko + + * tm-edit.el: Comment of header was modified (Use Spanish example + instead of Japanese example; Maybe I think it is not enough to + avoid bytecode-problem of XEmacs 20.0 without mule, because it may + be caused by Spanish-DOC string). + +1997-01-31 MORIOKA Tomohiko + + * doc/tm-view-ja.sgml, doc/tm-view-en.sgml: modified for tm-view + 7.80. + +Fri Jan 31 13:25:50 1997 MORIOKA Tomohiko + + * tm-setup.el (mime-setup-enable-inline-image): New variable. + (mime-setup-enable-pgp): New variable. + + * tm-view.el (mime-viewer/define-keymap): Bind TAB with + `mime-viewer/next-content' and M-TAB with + `mime-viewer/previous-content'. + + (mime/viewer-mode): DOC-string was modified about key-bind. + + 1997-01-30 MORIOKA Tomohiko * emu: Version 7.37.5 was released. diff --git a/Makefile b/Makefile index f2bd706..c3e07fb 100644 --- a/Makefile +++ b/Makefile @@ -2,7 +2,7 @@ # $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $ # -VERSION = 7.102 +VERSION = 7.103 SHELL = /bin/sh MAKE = make diff --git a/doc/tm-view-en.info b/doc/tm-view-en.info index 4874e05..951cac5 100644 --- a/doc/tm-view-en.info +++ b/doc/tm-view-en.info @@ -4,7 +4,7 @@ input file tm-view-en.texi.  File: tm-view-en.info, Node: Top, Next: Introduction, Prev: (dir), Up: (dir) -tm-view 7.79 Reference Manual (English Version) +tm-view 7.80 Reference Manual (English Version) *********************************************** This file documents tm-view, a MIME Viewer for GNU Emacs. @@ -319,9 +319,15 @@ Navigation in mime/viewer-mode `p' goes to the previous content +`M-TAB' + goes to the previous content + `n' goes to the next content +`TAB' + goes to the next content + `SPC' scrolls up @@ -966,20 +972,20 @@ Node: content-header5646 Node: content-body8280 Node: content-separator10203 Node: mime/viewer-mode11082 -Node: method12236 -Node: decoding-condition13342 -Node: method value15142 -Node: Example of decoding-condition16871 -Node: environment variables19443 -Node: Two buffers for an article19950 -Node: raw-article-buffer21501 -Node: preview-buffer24021 -Node: API25673 -Node: API about MIME preview26230 -Node: encoded-word decoding27400 -Node: Acknowledgments28825 -Node: Concept Index29539 -Node: Function Index30765 -Node: Variable Index31930 +Node: method12316 +Node: decoding-condition13422 +Node: method value15222 +Node: Example of decoding-condition16951 +Node: environment variables19523 +Node: Two buffers for an article20030 +Node: raw-article-buffer21581 +Node: preview-buffer24101 +Node: API25753 +Node: API about MIME preview26310 +Node: encoded-word decoding27480 +Node: Acknowledgments28905 +Node: Concept Index29619 +Node: Function Index30845 +Node: Variable Index32010  End Tag Table diff --git a/doc/tm-view-en.sgml b/doc/tm-view-en.sgml index b5d978e..36a5015 100644 --- a/doc/tm-view-en.sgml +++ b/doc/tm-view-en.sgml @@ -1,9 +1,9 @@ - + -tm-view 7.79 Reference Manual (English Version) +<title>tm-view 7.80 Reference Manual (English Version) <author>MORIOKA Tomohiko <mail>morioka@jaist.ac.jp</mail> -<date>1996/12/25 +<date>1997/1/31 <toc> </head> @@ -353,10 +353,18 @@ is sitting on the top content (*1)) <kd> goes to the previous content </kd> +<kt>M-TAB +<kd> +goes to the previous content +</kd> <kt>n <kd> goes to the next content </kd> +<kt>TAB +<kd> +goes to the next content +</kd> <kt>SPC <kd> scrolls up diff --git a/doc/tm-view-en.texi b/doc/tm-view-en.texi index ac33213..d117ea0 100644 --- a/doc/tm-view-en.texi +++ b/doc/tm-view-en.texi @@ -1,13 +1,13 @@ \input texinfo.tex @setfilename tm-view-en.info -@settitle{tm-view 7.79 Reference Manual (English Version)} +@settitle{tm-view 7.80 Reference Manual (English Version)} @titlepage -@title tm-view 7.79 Reference Manual (English Version) +@title tm-view 7.80 Reference Manual (English Version) @author MORIOKA Tomohiko <morioka@@jaist.ac.jp> -@subtitle 1996/12/25 +@subtitle 1997/1/31 @end titlepage @node Top, Introduction, (dir), (dir) -@top tm-view 7.79 Reference Manual (English Version) +@top tm-view 7.80 Reference Manual (English Version) @ifinfo @@ -379,9 +379,15 @@ is sitting on the top content (*1)) @item @key{p} goes to the previous content +@item @key{M-TAB} +goes to the previous content + @item @key{n} goes to the next content +@item @key{TAB} +goes to the next content + @item @key{SPC} scrolls up diff --git a/doc/tm-view-ja.info b/doc/tm-view-ja.info index a5c8cf0..f72630e 100644 --- a/doc/tm-view-ja.info +++ b/doc/tm-view-ja.info @@ -7,7 +7,7 @@ using `texinfmt.el' version 2.32 of 19 November 1993.  File: tm-view-ja.info, Node: Top, Next: Introduction, Prev: (dir), Up: (dir) -tm-view 7.79 Reference Manual$B!JF|K\8lHG!K(B +tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B ***************************************** @@ -365,9 +365,15 @@ mime/viewer-mode $B$K$O0J2<$N5!G=$,$"$j$^$9!#(B `p' $BA0$N(B part $B$K0\F0$9$k(B +`M-TAB' + $BA0$N(B part $B$K0\F0$9$k(B + `n' $B<!$N(B part $B$K0\F0$9$k(B +`TAB' + $B<!$N(B part $B$K0\F0$9$k(B + `SPC' scroll up $B$9$k(B @@ -1093,20 +1099,20 @@ Node: content-header6522 Node: content-body9728 Node: content-separator11899 Node: mime/viewer-mode12751 -Node: method14035 -Node: decoding-condition15428 -Node: method value17179 -Node: Example of decoding-condition18948 -Node: environment variables21316 -Node: Two buffers for an article21907 -Node: raw-article-buffer23849 -Node: preview-buffer26667 -Node: API28525 -Node: API about MIME preview29198 -Node: encoded-word decoding30608 -Node: Acknowledgments32747 -Node: Concept Index33565 -Node: Function Index34917 -Node: Variable Index36091 +Node: method14117 +Node: decoding-condition15510 +Node: method value17261 +Node: Example of decoding-condition19030 +Node: environment variables21398 +Node: Two buffers for an article21989 +Node: raw-article-buffer23931 +Node: preview-buffer26749 +Node: API28607 +Node: API about MIME preview29280 +Node: encoded-word decoding30690 +Node: Acknowledgments32829 +Node: Concept Index33647 +Node: Function Index34999 +Node: Variable Index36173  End tag table diff --git a/doc/tm-view-ja.sgml b/doc/tm-view-ja.sgml index a178dab..e5a40e5 100644 --- a/doc/tm-view-ja.sgml +++ b/doc/tm-view-ja.sgml @@ -1,9 +1,9 @@ <!doctype sinfo system> -<!-- $Id: tm-view-ja.sgml,v 5.0 1996/12/25 19:05:15 morioka Exp $ --> +<!-- $Id: tm-view-ja.sgml,v 5.1 1997/01/31 13:56:08 morioka Exp $ --> <head> -<title>tm-view 7.79 Reference Manual$B!JF|K\8lHG!K(B +<title>tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B <author>$B<i2,(B $BCNI'(B <mail>morioka@jaist.ac.jp</mail> -<date>1996/12/25 +<date>1997/1/31 <toc> </head> @@ -343,8 +343,12 @@ mode $B$KLa$k(B (*1)$B!K(B </kd> <kt>p<kd>$BA0$N(B part $B$K0\F0$9$k(B </kd> +<kt>M-TAB<kd>$BA0$N(B part $B$K0\F0$9$k(B +</kd> <kt>n<kd>$B<!$N(B part $B$K0\F0$9$k(B </kd> +<kt>TAB<kd>$B<!$N(B part $B$K0\F0$9$k(B +</kd> <kt>SPC<kd>scroll up $B$9$k(B </kd> <kt>M-SPC<kd>scroll down $B$9$k(B diff --git a/doc/tm-view-ja.texi b/doc/tm-view-ja.texi index f1dd2c1..3bca3e9 100644 --- a/doc/tm-view-ja.texi +++ b/doc/tm-view-ja.texi @@ -1,13 +1,13 @@ \input texinfo.tex @setfilename tm-view-ja.info -@settitle{tm-view 7.79 Reference Manual$B!JF|K\8lHG!K(B} +@settitle{tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B} @titlepage -@title tm-view 7.79 Reference Manual$B!JF|K\8lHG!K(B +@title tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp> -@subtitle 1996/12/25 +@subtitle 1997/1/31 @end titlepage @node Top, Introduction, (dir), (dir) -@top tm-view 7.79 Reference Manual$B!JF|K\8lHG!K(B +@top tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B @ifinfo @@ -375,9 +375,15 @@ mode $B$KLa$k(B (*1)$B!K(B @item @key{p} $BA0$N(B part $B$K0\F0$9$k(B +@item @key{M-TAB} +$BA0$N(B part $B$K0\F0$9$k(B + @item @key{n} $B<!$N(B part $B$K0\F0$9$k(B +@item @key{TAB} +$B<!$N(B part $B$K0\F0$9$k(B + @item @key{SPC} scroll up $B$9$k(B diff --git a/tm-edit.el b/tm-edit.el index a3daada..f7c1bbf 100644 --- a/tm-edit.el +++ b/tm-edit.el @@ -6,7 +6,7 @@ ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1994/08/21 renamed from mime.el -;; Version: $Revision: 7.102 $ +;; Version: $Revision: 7.103 $ ;; Keywords: mail, news, MIME, multimedia, multilingual ;; This file is part of tm (Tools for MIME). @@ -94,11 +94,11 @@ ;; ;;--[[text/plain]] ;; This is also a plain text. But, it is explicitly specified as is. +;;--[[text/plain; charset=ISO-8859-1]] +;; This is also a plain text. But charset is specified as iso-8859-1. ;; -;;--[[text/plain; charset=ISO-2022-JP]] -;; $(B$3$l$O(B charset $(B$r(B ISO-2022-JP $(B$K;XDj$7$?F|K\8l$N(B plain $(B%F%-%9%H$G$9(B. -;; -;;--[[text/richtext]] +;; ¡Hola! Buenos días. ¿Cómo está usted? +;;--[[text/enriched]] ;; <center>This is a richtext.</center> ;; ;;--[[image/gif][base64]]^M...image encoded in base64 comes here... @@ -120,7 +120,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: tm-edit.el,v 7.102 1997/01/30 11:31:36 morioka Exp $") + "$Id: tm-edit.el,v 7.103 1997/01/31 14:21:10 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) diff --git a/tm-setup.el b/tm-setup.el index 9aaf7c5..ae2450d 100644 --- a/tm-setup.el +++ b/tm-setup.el @@ -1,9 +1,9 @@ ;;; tm-setup.el --- setup file for tm viewer. -;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. +;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Id: tm-setup.el,v 7.8 1996/12/10 11:41:22 morioka Exp $ +;; Version: $Id: tm-setup.el,v 7.9 1997/01/31 13:25:50 morioka Exp $ ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word ;; This file is part of tm (Tools for MIME). @@ -63,8 +63,16 @@ (autoload 'mime/decode-text/latex "tm-latex") ))) + ;; for image/* and X-Face -(if running-xemacs +(defvar mime-setup-enable-inline-image + (and window-system + (or running-xemacs + (and (featurep 'mule)(module-installed-p 'bitmap)) + )) + "*If it is non-nil, tm-setup sets up to use tm-image.") + +(if mime-setup-enable-inline-image (call-after-loaded 'tm-view (function (lambda () @@ -72,8 +80,13 @@ ))) ) + +(defvar mime-setup-enable-pgp + (module-installed-p 'mailcrypt) + "*If it is non-nil, tm-setup sets uf to use tm-pgp.") + ;; for PGP -(if (module-installed-p 'mailcrypt) +(if mime-setup-enable-pgp (call-after-loaded 'tm-view (function (lambda () diff --git a/tm-view.el b/tm-view.el index 9afb5dc..07f2aae 100644 --- a/tm-view.el +++ b/tm-view.el @@ -1,10 +1,10 @@ ;;; tm-view.el --- interactive MIME viewer for GNU Emacs -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. +;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) -;; Version: $Revision: 7.79 $ +;; Version: $Revision: 7.80 $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -42,7 +42,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.79 1996/12/16 15:06:08 morioka Exp $") + "$Id: tm-view.el,v 7.80 1997/01/31 12:59:06 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -741,6 +741,10 @@ The compressed face will be piped to this command.") (define-key mime/viewer-mode-map "n" (function mime-viewer/next-content)) (define-key mime/viewer-mode-map + "\e\t" (function mime-viewer/previous-content)) + (define-key mime/viewer-mode-map + "\t" (function mime-viewer/next-content)) + (define-key mime/viewer-mode-map " " (function mime-viewer/scroll-up-content)) (define-key mime/viewer-mode-map "\M- " (function mime-viewer/scroll-down-content)) @@ -753,7 +757,7 @@ The compressed face will be piped to this command.") (define-key mime/viewer-mode-map "v" (function mime-viewer/play-content)) (define-key mime/viewer-mode-map - "e" (function mime-viewer/extract-content)) + "e" (function mime-viewer/extract-content)) (define-key mime/viewer-mode-map "\C-c\C-p" (function mime-viewer/print-content)) (define-key mime/viewer-mode-map @@ -808,11 +812,10 @@ key feature --- ------- u Move to upper content -p Move to previous content -n Move to next content +p or M-TAB Move to previous content +n or TAB Move to next content SPC Scroll up or move to next content -M-SPC Scroll down or move to previous content -DEL Scroll down or move to previous content +M-SPC or DEL Scroll down or move to previous content RET Move to next line M-RET Move to previous line v Decode current content as `play mode'