From 1f8064d416e7dc106fd99dc538724f94d88286bc Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 07:18:03 +0000 Subject: [PATCH] tm 6.77. --- Changes-6.77.en | 178 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ Changes-6.77.ja | 173 ++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile | 6 +- README.eng | 4 +- doc/tm_en.texi | 4 +- doc/tm_ja.texi | 4 +- gnus/Makefile | 2 +- gnus/tm-gnus3.el | 20 ++++-- gnus/tm-gnus4.el | 13 ++-- gnus/tm-gnus5.el | 15 ++--- gnus/tm-ognus.el | 35 +++++++---- mh-e/Makefile | 2 +- mh-e/tm-mh-e.el | 13 +++- mk-tm | 6 +- tiny-mime.el | 18 +----- tm-comp.el | 3 +- tm-def.el | 31 ++++++++++ tm-view.el | 4 +- 18 files changed, 467 insertions(+), 64 deletions(-) create mode 100644 Changes-6.77.en create mode 100644 Changes-6.77.ja create mode 100644 tm-def.el diff --git a/Changes-6.77.en b/Changes-6.77.en new file mode 100644 index 0000000..df4985d --- /dev/null +++ b/Changes-6.77.en @@ -0,0 +1,178 @@ +* tm + + - Abolished tm-misc.el and created tm-def.el. + - So fixed tm/Makefile, tm/mk-tm, tm/README.eng, + tm/doc/tm_ja.texi and tm/doc/tm_en.texi. + +tm/tiny-mime.el +---------------------------- +revision 6.4 +date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6 +Definition of constant `mime/tspecials', `mime/token-regexp' and +`mime/charset-regexp' were moved to tm-def.el. +---------------------------- +revision 6.3 +date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10 +Requiring part of tm-nemacs, tm-orig and tm-mule were moved to tm-def, +and required tm-def. +---------------------------- + +tm/tm-comp.el +---------------------------- +revision 6.11 +date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2 +Deleted (require 'tm-misc). +---------------------------- + +tm/tm-def.el +---------------------------- +revision 3.0 +date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1 +Definition of constant `mime/tspecials', `mime/token-regexp' and +`mime/charset-regexp' were moved from tiny-mime.el. +---------------------------- +revision 2.0 +date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1 +Requiring part of tm-nemacs, tm-orig and tm-mule were moved from +tiny-mime.el. +---------------------------- +revision 1.1 +date: 1995/09/04 00:48:04; author: morioka; state: Exp; +Created tm-def.el. +---------------------------- + +tm/tm-view.el +---------------------------- +revision 6.77 +date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2 +Abolished tm-misc, and required tm-def. +---------------------------- + + +* tm/mh-e + + Attached version 6.24. + +tm/mh-e/tm-mh-e.el +---------------------------- +revision 6.24 +date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3 +Deleted (require 'tm-misc) +---------------------------- + + +* tm/gnus + + Attached version 6.19. + +tm/gnus/tm-ognus.el +---------------------------- +revision 6.8 +date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2 +Required emu and tiny-mime instead of tm-misc. +---------------------------- +revision 6.7 +date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4 +Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to +`tm-gnus/toggle-decoding-mode'. +---------------------------- +revision 6.6 +date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6 +Function `tm-gnus/set-mime-header-decoding-mode' was renamed to +`tm-gnus/set-decoding-mode'. +---------------------------- +revision 6.5 +date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7 +Variable `mime/header-decoding-mode' was renamed to +`tm-gnus/decoding-mode'. +---------------------------- +revision 6.4 +date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2 +Function `mime/add-header-decoding-mode-to-mode-line' was renamed to +`tm-gnus/add-decoding-mode-to-mode-line'. +---------------------------- +revision 6.3 +date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1 +Definition of variable `mime/header-decoding-mode' was moved from +tm-misc.el. +---------------------------- +revision 6.2 +date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1 +Function `mime/add-header-decoding-mode-to-mode-line' was moved from +tm-misc.el. +---------------------------- + +tm/gnus/tm-gnus3.el +---------------------------- +revision 6.8 +date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3 +Fixed a problem of function `tm-gnus/decode-encoded-word-if-you-need'. +---------------------------- +revision 6.7 +date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2 +When dynamic bound variable `all-headers' is exist, funxtion +`tm-gnus/decode-encoded-word-if-you-need' decodes encoded-word if it +is nil. +---------------------------- +revision 6.6 +date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3 +Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to +`tm-gnus/toggle-decoding-mode'. +---------------------------- +revision 6.5 +date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2 +Variable `mime/header-decoding-mode' was renamed to +`tm-gnus/decoding-mode'. +---------------------------- +revision 6.4 +date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3 +Function `mime/add-header-decoding-mode-to-mode-line' was renamed to +`tm-gnus/add-decoding-mode-to-mode-line'. +---------------------------- +revision 6.3 +date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3 +Function `mime/decode-message-header-if-you-need' was renamed to +`tm-gnus/decode-encoded-word-if-you-need'. +---------------------------- +revision 6.2 +date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1 +Function `mime/decode-message-header-if-you-need' was moved from +tm-misc.el. +---------------------------- + +tm/gnus/tm-gnus4.el +---------------------------- +revision 6.7 +date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2 +Function `tm-gnus/toggle-mime-header-decoding-mode' was renamed to +`tm-gnus/toggle-decoding-mode'. +---------------------------- +revision 6.6 +date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2 +Function `mime/header-decoding-mode' was renamed to +`tm-gnus/decoding-mode'. +---------------------------- +revision 6.5 +date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2 +Function `mime/add-header-decoding-mode-to-mode-line' was renamed to +`tm-gnus/add-decoding-mode-to-mode-line'. +---------------------------- +revision 6.4 +date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1 +Fixed forgot +(add-hook 'gnus-article-prepare-hook + (function tm-gnus/decode-encoded-word-if-you-need) t) +(^_^; +---------------------------- +revision 6.3 +date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3 +When variable `gnus-have-all-headers' is t, does not decode +encoded-word. +---------------------------- + +tm/gnus/tm-gnus5.el +---------------------------- +revision 6.19 +date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7 +Fixed a problem of function `tm-gnus/summary-toggle-header'. +---------------------------- diff --git a/Changes-6.77.ja b/Changes-6.77.ja new file mode 100644 index 0000000..5a992d2 --- /dev/null +++ b/Changes-6.77.ja @@ -0,0 +1,173 @@ +* tm + + - tm-misc.el $B$rGQ;_$7!"(Btm-def.el $B$r?7@_$7$?!#(B + - $B$3$N$3$H$KH<$$!"(Btm/Makefile, tm/mk-tm, tm/README.eng, + tm/doc/tm_ja.texi, tm/doc/tm_en.texi $B$r=$@5$7$?!#(B + +tm/tiny-mime.el +---------------------------- +revision 6.4 +date: 1995/09/04 01:16:45; author: morioka; state: Exp; lines: +2 -6 +$BDj?t(B mime/tspecials, mime/token-regexp, mime/charset-regexp $B$NDj5A$r(B +tm-def.el $B$K0\$7$?!#(B +---------------------------- +revision 6.3 +date: 1995/09/04 01:09:59; author: morioka; state: Exp; lines: +2 -10 +tm-nemacs, tm-orig, tm-mule $B$r(B require $B$9$kItJ,$r(B tm-def $B$K0\$7!"(B +tm-def $B$r(B require $B$9$k$h$&$K$7$?!#(B +---------------------------- + +tm/tm-comp.el +---------------------------- +revision 6.11 +date: 1995/09/04 00:47:37; author: morioka; state: Exp; lines: +1 -2 +tm-misc $B$r(B require $B$7$J$$$h$&$K$7$?!#(B +---------------------------- + +tm/tm-def.el +---------------------------- +revision 3.0 +date: 1995/09/04 01:17:27; author: morioka; state: Exp; lines: +9 -1 +$BDj?t(B mime/tspecials, mime/token-regexp, mime/charset-regexp $B$NDj5A$r(B +tiny-mime.el $B$+$i0\$7$?!#(B +---------------------------- +revision 2.0 +date: 1995/09/04 01:11:03; author: morioka; state: Exp; lines: +10 -1 +tm-nemacs, tm-orig, tm-mule $B$r(B require $B$9$kItJ,$r(B tiny-mime.el $B$+$i0\(B +$B$7$?!#(B +---------------------------- +revision 1.1 +date: 1995/09/04 00:48:04; author: morioka; state: Exp; +tm-def.el $B$r?7@_$7$?!#(B +---------------------------- + +tm/tm-view.el +---------------------------- +revision 6.77 +date: 1995/09/04 00:48:30; author: morioka; state: Exp; lines: +2 -2 +tm-misc $B$rGQ;_$7!"(Btm-def $B$r(B require $B$9$k$h$&$K$7$?!#(B +---------------------------- + + +* tm/mh-e + + Version 6.24 $B$rE:IU$7$?!#(B + +tm/mh-e/tm-mh-e.el +---------------------------- +revision 6.24 +date: 1995/09/02 06:02:20; author: morioka; state: Exp; lines: +10 -3 +tm-misc $B$r(B require $B$9$k$N$r$d$a$?!#(B +---------------------------- + + +* tm/gnus + + Version 6.19 $B$rE:IU$7$?!#(B + +tm/gnus/tm-ognus.el +---------------------------- +revision 6.8 +date: 1995/09/02 07:40:13; author: morioka; state: Exp; lines: +3 -2 +tm-misc $B$r(B require $B$9$k$N$r$d$a!"Be$o$j$K!"(Bemu $B$H(B tiny-mime $B$r(B require +$B$9$k$h$&$K$7$?!#(B +---------------------------- +revision 6.7 +date: 1995/09/02 07:26:27; author: morioka; state: Exp; lines: +4 -4 +$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B +tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.6 +date: 1995/09/02 07:24:30; author: morioka; state: Exp; lines: +6 -6 +$B4X?t(B tm-gnus/set-mime-header-decoding-mode $B$r(B +tm-gnus/set-decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.5 +date: 1995/09/02 07:20:29; author: morioka; state: Exp; lines: +7 -7 +$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.4 +date: 1995/09/02 07:04:22; author: morioka; state: Exp; lines: +2 -2 +$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B +tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B +---------------------------- +revision 6.3 +date: 1995/09/02 06:58:20; author: morioka; state: Exp; lines: +3 -1 +$BJQ?t(B mime/header-decoding-mode $B$NDj5A$r(B tm-misc.el $B$+$i0\$7$?!#(B +---------------------------- +revision 6.2 +date: 1995/09/02 06:56:32; author: morioka; state: Exp; lines: +9 -1 +$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B tm-misc.el $B$+$i0\$7(B +$B$?!#(B +---------------------------- + +tm/gnus/tm-gnus3.el +---------------------------- +revision 6.8 +date: 1995/09/04 02:43:18; author: morioka; state: Exp; lines: +3 -3 +$B4X?t(B tm-gnus/decode-encoded-word-if-you-need $B$NIT6q9g$r=$@5$7$?!#(B +---------------------------- +revision 6.7 +date: 1995/09/04 02:34:10; author: morioka; state: Exp; lines: +5 -2 +$B4X?t(B tm-gnus/decode-encoded-word-if-you-need $B$K$*$$$F!"F0E*JQ?t(B +all-headers $B$,B8:_$9$k;~$O$3$l$,(B nil $B$N;~$N$_!"(Bencoded-word $B$r(B decode +$B$9$k$h$&$K$7$?!#(B +---------------------------- +revision 6.6 +date: 1995/09/02 07:27:19; author: morioka; state: Exp; lines: +2 -3 +$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B +tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.5 +date: 1995/09/02 07:20:53; author: morioka; state: Exp; lines: +2 -2 +$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.4 +date: 1995/09/02 07:04:51; author: morioka; state: Exp; lines: +3 -3 +$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B +tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B +---------------------------- +revision 6.3 +date: 1995/09/02 06:52:00; author: morioka; state: Exp; lines: +4 -3 +$B4X?t(B mime/decode-message-header-if-you-need $B$r(B +tm-gnus/decode-encoded-word-if-you-need $B$K2~L>$7$?!#(B +---------------------------- +revision 6.2 +date: 1995/09/02 06:47:53; author: morioka; state: Exp; lines: +6 -1 +$B4X?t(B mime/decode-message-header-if-you-need $B$r(B tm-misc.el $B$+$i0\$7$?!#(B +---------------------------- + +tm/gnus/tm-gnus4.el +---------------------------- +revision 6.7 +date: 1995/09/02 07:28:38; author: morioka; state: Exp; lines: +2 -2 +$B4X?t(B tm-gnus/toggle-mime-header-decoding-mode $B$r(B +tm-gnus/toggle-decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.6 +date: 1995/09/02 07:21:01; author: morioka; state: Exp; lines: +2 -2 +$BJQ?t(B mime/header-decoding-mode $B$r(B tm-gnus/decoding-mode $B$K2~L>$7$?!#(B +---------------------------- +revision 6.5 +date: 1995/09/02 07:04:38; author: morioka; state: Exp; lines: +2 -2 +$B4X?t(B mime/add-header-decoding-mode-to-mode-line $B$r(B +tm-gnus/add-decoding-mode-to-mode-line $B$K2~L>$7$?!#(B +---------------------------- +revision 6.4 +date: 1995/09/02 06:35:10; author: morioka; state: Exp; lines: +4 -1 +$BJQ?t(B gnus-article-prepare-hook $B$K4X?t(B +tm-gnus/decode-encoded-word-if-you-need $B$r(B add-hook $B$9$k$N$rK:$l$F$$$?(B +$B$N$r=$@5!#(B(^_^; +---------------------------- +revision 6.3 +date: 1995/09/02 06:21:41; author: morioka; state: Exp; lines: +5 -3 +$BJQ?t(B gnus-have-all-headers $B$,(B t $B$N;~$O(B encoded-word $B$r(B decode $B$7$J$$$h(B +$B$&$K$7$?!#(B +---------------------------- + +tm/gnus/tm-gnus5.el +---------------------------- +revision 6.19 +date: 1995/09/02 05:18:08; author: morioka; state: Exp; lines: +8 -7 +$B4X?t(B tm-gnus/summary-toggle-header $B$NIT6q9g$r=$@5$7$?!#(B +---------------------------- diff --git a/Makefile b/Makefile index 5e52fc8..bd10f40 100644 --- a/Makefile +++ b/Makefile @@ -1,5 +1,5 @@ # -# $Id: Makefile,v 6.24 1995/09/01 18:15:10 morioka Exp morioka $ +# $Id: Makefile,v 6.25 1995/09/04 00:51:33 morioka Exp morioka $ # # Please specify emacs executables: @@ -43,7 +43,7 @@ GOMI = $(UTILS) *.elc loadpath TM_FILES = tm/README.eng tm/rel-*.ol tm/Changes* \ tm/Makefile tm/mk-tm \ tm/tm-view.el tm/tiny-mime.el \ - tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-misc.el \ + tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-def.el \ tm/tm-ftp.el tm/tm-latex.el tm/tm-partial.el \ tm/tm-rich.el tm/richtext.el tm/tinyrich.el \ tm/tm-comp.el \ @@ -67,7 +67,7 @@ TL_FILES = tl/README.eng \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm6.76.2.tar +TARFILE = tm6.77.tar nemacs: diff --git a/README.eng b/README.eng index 6e6fca9..c160686 100644 --- a/README.eng +++ b/README.eng @@ -1,6 +1,6 @@ [README for tm (English Version)] by MORIOKA Tomohiko -$Id: README.eng,v 6.7 1995/08/31 20:39:06 morioka Exp $ +$Id: README.eng,v 6.8 1995/09/04 00:53:42 morioka Exp $ 1 What's tm? @@ -39,7 +39,7 @@ Tm has following modules: - tiny-mime : MIME header encoder/decoder - tm-view : MIME viewer - - tm-misc : library module for tm-MUAs + - tm-def : definition module for tm - tm-MUAs : MIME extender for MUAs - tm-mh-e : tm-MUA for mh-e - tm-gnus : tm-MUA for GNUS diff --git a/doc/tm_en.texi b/doc/tm_en.texi index b693438..11f9698 100644 --- a/doc/tm_en.texi +++ b/doc/tm_en.texi @@ -6,7 +6,7 @@ @titlepage @title tm Manual (English Version) @author by MORIOKA Tomohiko -@code{$Id: tm_en.texi,v 6.2 1995/08/12 08:45:35 morioka Exp $} +@code{$Id: tm_en.texi,v 6.3 1995/09/04 00:57:19 morioka Exp $} @end titlepage @@ -51,7 +51,7 @@ The tm package includes the modules listed below. @itemize @item @strong{tiny-mime:} MIME header encoder/decoder @item @strong{tm-view:} MIME viewer -@item @strong{tm-misc:} common part for tm-MUAs +@item @strong{tm-def:} definition module for tm @item @strong{tm-mh-e:} tm-MUA for mh-e @item @strong{tm-gnus:} tm-MUA for GNUS @item @strong{tm-rmail:} tm-MUA for RMAIL diff --git a/doc/tm_ja.texi b/doc/tm_ja.texi index d7e0b43..4f8140f 100644 --- a/doc/tm_ja.texi +++ b/doc/tm_ja.texi @@ -6,7 +6,7 @@ @titlepage @title{tm Manual¡ÊÆüËܸìÈÇ¡Ë} @author{¼é²¬ ÃÎɧ Ãø} -@code{$Id: tm_ja.texi,v 3.0 1995/08/01 18:54:19 morioka Exp $} +@code{$Id: tm_ja.texi,v 4.0 1995/09/04 00:55:35 morioka Exp $} @end titlepage @@ -53,7 +53,7 @@ tm @itemize @item @strong{tiny-mime:} MIME header encoder/decoder @item @strong{tm-view:} MIME viewer -@item @strong{tm-misc:} tm-MUA ¤Î¶¦ÄÌ module +@item @strong{tm-def:} tm ¤Î¤¿¤á¤ÎÄêµÁ module @item @strong{tm-mh-e:} mh-e ÍѤΠtm-MUA @item @strong{tm-gnus:} GNUS ÍѤΠtm-MUA @item @strong{tm-rmail:} RMAIL ÍѤΠtm-MUA diff --git a/gnus/Makefile b/gnus/Makefile index 757c751..dd474ed 100644 --- a/gnus/Makefile +++ b/gnus/Makefile @@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi -TARFILE = tm-gnus6.18.tar +TARFILE = tm-gnus6.19.tar gnus3: diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el index 2fd500c..4aabe48 100644 --- a/gnus/tm-gnus3.el +++ b/gnus/tm-gnus3.el @@ -12,7 +12,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus3.el,v 6.1 1995/08/31 20:12:49 morioka Exp $") + "$Id: tm-gnus3.el,v 6.8 1995/09/04 02:43:18 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3")) @@ -57,15 +57,23 @@ ;;; @ set up ;;; -(define-key gnus-Subject-mode-map - "\et" 'tm-gnus/toggle-mime-header-decoding-mode) +(define-key gnus-Subject-mode-map "\et" 'tm-gnus/toggle-decoding-mode) (define-key gnus-Subject-mode-map "v" 'tm-gnus/view-message) (fset 'gnus-summary-select-article 'gnus-Subject-select-article) (fset 'gnus-Article-set-mode-line 'tm-gnus/article-set-mode-line) + +(defun tm-gnus/decode-encoded-word-if-you-need () + (if (and tm-gnus/decoding-mode + (cond ((boundp 'all-headers) (not all-headers)) + (t t)) + ) + (mime/decode-message-header) + )) + (add-hook 'gnus-Article-prepare-hook - (function mime/decode-message-header-if-you-need) t) + (function tm-gnus/decode-encoded-word-if-you-need) t) (if (not (string-match "^GNUS 3\.14\.4" gnus-version)) (progn @@ -73,12 +81,12 @@ (function (lambda () (make-local-variable 'minor-mode-alist) - (mime/add-header-decoding-mode-to-mode-line) + (tm-gnus/add-decoding-mode-to-mode-line) ))) ) (progn (add-hook 'gnus-Article-mode-hook - (function mime/add-header-decoding-mode-to-mode-line)) + (function tm-gnus/add-decoding-mode-to-mode-line)) )) diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el index 87e414b..924f90e 100644 --- a/gnus/tm-gnus4.el +++ b/gnus/tm-gnus4.el @@ -10,7 +10,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus4.el,v 6.2 1995/08/31 20:14:33 morioka Exp $") + "$Id: tm-gnus4.el,v 6.7 1995/09/02 07:28:38 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 4")) @@ -48,17 +48,22 @@ ;;; (define-key gnus-summary-mode-map - "\et" (function tm-gnus/toggle-mime-header-decoding-mode)) + "\et" (function tm-gnus/toggle-decoding-mode)) (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message)) (define-key gnus-summary-mode-map "\e\r" (function tm-gnus/summary-scroll-down)) (fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line) (add-hook 'gnus-article-mode-hook - (function mime/add-header-decoding-mode-to-mode-line)) + (function tm-gnus/add-decoding-mode-to-mode-line)) + +(defun tm-gnus/decode-encoded-word-if-you-need () + (if (and tm-gnus/decoding-mode (not gnus-have-all-headers)) + (mime/decode-message-header) + )) (add-hook 'gnus-article-prepare-hook - (function mime/decode-message-header-if-you-need) t) + (function tm-gnus/decode-encoded-word-if-you-need) t) ;;; @ for tm-comp diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el index 69c39dd..6216ac4 100644 --- a/gnus/tm-gnus5.el +++ b/gnus/tm-gnus5.el @@ -11,7 +11,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus5.el,v 6.18 1995/08/31 20:19:42 morioka Exp $") + "$Id: tm-gnus5.el,v 6.19 1995/09/02 05:18:08 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5")) @@ -122,12 +122,13 @@ article is automatic MIME decoded.") (let ((mime-viewer/ignored-field-list (if (save-window-excursion (switch-to-buffer tm-gnus/preview-buffer) - (goto-char (point-min)) - (message/get-field-body - (car mime-viewer/ignored-field-list) - )) - mime-viewer/ignored-field-list) - )) + (some-element + (function + (lambda (field) + (message/get-field-body field) + )) + mime-viewer/ignored-field-list)) + mime-viewer/ignored-field-list))) (gnus-summary-select-article t t) ) (gnus-summary-toggle-header arg) diff --git a/gnus/tm-ognus.el b/gnus/tm-ognus.el index bba7111..3b5c064 100644 --- a/gnus/tm-ognus.el +++ b/gnus/tm-ognus.el @@ -1,29 +1,40 @@ ;;; -;;; tm-ognus.el --- tm-gnus module for GNUS 3.* and 4.* +;;; tm-gnus.el --- tm-gnus module for GNUS 3.* and 4.* ;;; -;;; $Id: tm-ognus.el,v 6.1 1995/08/31 20:13:47 morioka Exp $ +;;; $Id: tm-ognus.el,v 6.8 1995/09/02 07:40:13 morioka Exp $ ;;; -(require 'tm-misc) +(require 'emu) +(require 'tiny-mime) (require 'gnus) -;;; @ change MIME header decoding mode, decoding or non decoding. +(defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.") + +(defun tm-gnus/add-decoding-mode-to-mode-line () + (or (assq 'tm-gnus/decoding-mode minor-mode-alist) + (setq minor-mode-alist + (cons (list 'tm-gnus/decoding-mode " MIME") + minor-mode-alist)) + )) + + +;;; @ change MIME encoded-word decoding mode, decoding or non decoding. ;;; -(defun tm-gnus/set-mime-header-decoding-mode (arg) - "Set MIME header processing. -With arg, turn MIME processing on iff arg is positive." - (setq mime/header-decoding-mode arg) +(defun tm-gnus/set-decoding-mode (arg) + "Set MIME encoded-word processing. +With arg, turn MIME encoded-word processing on iff arg is positive." + (setq tm-gnus/decoding-mode arg) (setq gnus-have-all-headers (not gnus-have-all-headers)) (gnus-summary-select-article (not gnus-have-all-headers) t) ) -(defun tm-gnus/toggle-mime-header-decoding-mode () - "Toggle MIME header processing. -With arg, turn MIME processing on iff arg is positive." +(defun tm-gnus/toggle-decoding-mode () + "Toggle MIME encoded-word processing. +With arg, turn MIME encoded-word processing on iff arg is positive." (interactive) - (tm-gnus/set-mime-header-decoding-mode (not mime/header-decoding-mode)) + (tm-gnus/set-decoding-mode (not tm-gnus/decoding-mode)) ) diff --git a/mh-e/Makefile b/mh-e/Makefile index 63d5fb2..98463b0 100644 --- a/mh-e/Makefile +++ b/mh-e/Makefile @@ -23,7 +23,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol -TARFILE = tm-mh-e6.5.tar +TARFILE = tm-mh-e6.24.tar elc: diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el index 53656c0..f72af2d 100644 --- a/mh-e/tm-mh-e.el +++ b/mh-e/tm-mh-e.el @@ -8,9 +8,9 @@ ;;; @ require modules ;;; + (require 'tl-str) (require 'tl-misc) -(require 'tm-misc) (require 'mh-e) (if (not (boundp 'mh-e-version)) (require 'tm-mh-e3) @@ -20,14 +20,16 @@ ;;; @ version ;;; + (defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 6.23 1995/07/17 16:37:20 morioka Exp $") + "$Id: tm-mh-e.el,v 6.24 1995/09/02 06:02:20 morioka Exp $") (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) ;;; @ variable ;;; + (defvar tm-mh-e/decode-all t "*If t, decode all of the message. Otherwise decode header only.") @@ -219,6 +221,7 @@ With arg, turn MIME processing on if arg is positive." ;;; @ for tm-comp ;;; + (defun tm-mh-e::make-message (folder number) (vector folder number) ) @@ -332,6 +335,10 @@ With arg, turn MIME processing on if arg is positive." 'mh-show-mode (function tm-mh-e/code-convert-region-to-emacs)) -(run-hooks 'tm-mh-e-load-hook) + +;;; @ end +;;; (provide 'tm-mh-e) + +(run-hooks 'tm-mh-e-load-hook) diff --git a/mk-tm b/mk-tm index e743639..ea71099 100644 --- a/mk-tm +++ b/mk-tm @@ -1,4 +1,7 @@ ;;; -*-Emacs-Lisp-*- +;;; +;;; $Id: mk-tm,v 2.0 1995/09/04 00:50:39 morioka Exp morioka $ +;;; (setq load-path (append (mapcar (function @@ -26,8 +29,7 @@ "tm-orig" )) '("signature" - "tiny-mime" "tm-misc" - "tm-view" + "tiny-mime" "tm-def" "tm-view" "tm-latex" "tm-rmail" "tm-comp" "tm-setup" "mime-setup" diff --git a/tiny-mime.el b/tiny-mime.el index 434b2c3..75ec647 100644 --- a/tiny-mime.el +++ b/tiny-mime.el @@ -14,13 +14,14 @@ (require 'mel) (require 'tl-header) (require 'tl-str) +(require 'tm-def) ;;; @ version ;;; (defconst mime/RCS-ID - "$Id: tiny-mime.el,v 6.2 1995/08/27 19:05:07 morioka Exp $") + "$Id: tiny-mime.el,v 6.4 1995/09/04 01:16:45 morioka Exp $") (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID)) @@ -28,11 +29,6 @@ ;;; @ MIME encoded-word definition ;;; -(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=") -(defconst mime/token-regexp (concat "[^" mime/tspecials "]+")) -(defconst mime/charset-regexp mime/token-regexp) -(defconst mime/encoded-text-regexp "[!->@-~]+") - (defconst mime/Base64-token-regexp "[A-Za-z0-9+/=]") (defconst mime/Base64-encoded-text-regexp (concat "\\(" @@ -54,6 +50,7 @@ (defconst mime/Quoted-Printable-encoding-and-encoded-text-regexp (concat "\\(Q\\)\\?" mime/Quoted-Printable-encoded-text-regexp)) +(defconst mime/encoded-text-regexp "[!->@-~]+") (defconst mime/encoded-word-regexp (concat (regexp-quote "=?") "\\(" mime/charset-regexp @@ -95,15 +92,6 @@ (defvar mime/use-X-Nsubject nil) -;;; @ compatible module among Mule, NEmacs and NEpoch -;;; - -(cond ((boundp 'MULE) (require 'tm-mule)) - ((boundp 'NEMACS)(require 'tm-nemacs)) - (t (require 'tm-orig)) - ) - - ;;; @ Application Interface ;;; diff --git a/tm-comp.el b/tm-comp.el index bb865e6..ef6b7cb 100644 --- a/tm-comp.el +++ b/tm-comp.el @@ -11,7 +11,6 @@ ;;; and YAMAOKA Katsumi ;;; -(require 'tm-misc) (require 'tm-view) (require 'tl-header) (require 'tl-list) @@ -22,7 +21,7 @@ ;;; (defconst mime/composer-RCS-ID - "$Id: tm-comp.el,v 6.10 1995/08/30 05:37:50 morioka Exp $") + "$Id: tm-comp.el,v 6.11 1995/09/04 00:47:37 morioka Exp $") (defconst mime/composer-version (get-version-string mime/composer-RCS-ID)) diff --git a/tm-def.el b/tm-def.el new file mode 100644 index 0000000..6a52c05 --- /dev/null +++ b/tm-def.el @@ -0,0 +1,31 @@ +;;; +;;; $Id: tm-def.el,v 3.0 1995/09/04 01:17:27 morioka Exp $ +;;; + +;;; @ variables +;;; + +(defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/")) + + +;;; @ compatible module among Mule, NEmacs and NEpoch +;;; + +(cond ((boundp 'MULE) (require 'tm-mule)) + ((boundp 'NEMACS)(require 'tm-nemacs)) + (t (require 'tm-orig)) + ) + + +;;; @ definitions about MIME +;;; + +(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=") +(defconst mime/token-regexp (concat "[^" mime/tspecials "]+")) +(defconst mime/charset-regexp mime/token-regexp) + + +;;; @ end +;;; + +(provide 'tm-def) diff --git a/tm-view.el b/tm-view.el index dc97f26..039880c 100644 --- a/tm-view.el +++ b/tm-view.el @@ -14,14 +14,14 @@ (require 'tl-header) (require 'mel) (require 'tiny-mime) -(require 'tm-misc) +(require 'tm-def) ;;; @ version ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 6.76 1995/08/31 15:05:50 morioka Exp $") + "$Id: tm-view.el,v 6.77 1995/09/04 00:48:30 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) -- 1.7.10.4