--- /dev/null
+* tl
+
+ Attached version 6.6.6.
+
+ - emu is changed.
+
+tl/emu-18.el
+----------------------------
+revision 6.0
+date: 1995/09/21 00:06:48; author: morioka; state: Exp; lines: +3 -1
+comment was modified.
+----------------------------
+revision 5.0
+date: 1995/09/20 23:29:11; author: morioka; state: Exp; lines: +10 -2
+Variable `mouse-button-2' was created.
+----------------------------
+
+tl/emu-19.el
+----------------------------
+revision 2.0
+date: 1995/09/21 00:10:55; author: morioka; state: Exp; lines: +3 -1
+comment was modified.
+----------------------------
+revision 1.1
+date: 1995/09/20 23:31:30; author: morioka; state: Exp;
+It was created as emu module for Emacs 19.*.
+----------------------------
+
+tl/emu-mule.el
+----------------------------
+revision 6.3
+date: 1995/09/21 00:08:02; author: morioka; state: Exp; lines: +3 -1
+comment was modified.
+----------------------------
+revision 6.2
+date: 1995/09/20 23:42:12; author: morioka; state: Exp; lines: +16 -3
+Function `tl:make-overlay', `tl:overlay-put', `tl:add-text-properties'
+were defined.
+----------------------------
+
+tl/emu-nemacs.el
+----------------------------
+revision 6.1
+date: 1995/09/21 00:07:24; author: morioka; state: Exp; lines: +3 -1
+comment was modified.
+----------------------------
+revision 6.0
+date: 1995/09/20 23:38:29; author: morioka; state: Exp; lines: +30 -2
+Function `tl:make-overlay',
+ `tl:overlay-put',
+ `tl:add-text-properties',
+and variable `mouse-button-2' and `tl:available-face-attribute-alist'
+were defined.
+----------------------------
+
+tl/emu-orig.el
+----------------------------
+revision 4.0
+date: 1995/09/21 00:09:37; author: morioka; state: Exp; lines: +3 -1
+comment was modified.
+----------------------------
+revision 3.0
+date: 1995/09/20 23:45:23; author: morioka; state: Exp; lines: +18 -2
+(require 'emu-xemacs) for XEmacs, (require 'emu-19) for FSF original
+Emacs 19.
+----------------------------
+
+tl/emu-xemacs.el
+----------------------------
+revision 5.0
+date: 1995/09/21 00:08:50; author: morioka; state: Exp; lines: +4 -2
+comment was modified.
+----------------------------
+revision 4.0
+date: 1995/09/20 23:35:02; author: morioka; state: Exp; lines: +35 -21
+Function `tl:set-text-properties',
+ `tl:add-text-properties',
+ `tl:make-overlay',
+ `tl:overlay-put',
+ `tl:overlay-buffer',
+ `tl:move-overlay',
+and variable `mouse-button-2' were defined.
+----------------------------
+
+tl/emu.el
+----------------------------
+revision 4.0
+date: 1995/09/21 00:05:57; author: morioka; state: Exp; lines: +10 -2
+comment was modified.
+----------------------------
+revision 3.0
+date: 1995/09/20 23:46:38; author: morioka; state: Exp; lines: +1 -5
+(require 'emu-xemacs) was moved to emu-orig.el.
+----------------------------
+
+
+* tm
+
+tm/tm-def.el
+----------------------------
+revision 6.3
+date: 1995/09/21 00:12:52; author: morioka; state: Exp; lines: +2 -2
+comment was modified.
+----------------------------
+revision 6.2
+date: 1995/09/20 23:53:54; author: morioka; state: Exp; lines: +39 -28
+Function `tm:set-face-region',
+ `tm:add-button',
+ `tm:button-dispatcher',
+and variable `tm:button-face', `tm:mouse-face' were defined.
+----------------------------
+
+tm/tm-rich.el
+----------------------------
+revision 6.14
+date: 1995/09/21 00:18:32; author: morioka; state: Exp; lines: +3 -3
+Function `mime-viewer/filter-text/enriched' was fixed to use function
+`mime-viewer/default-code-convert-region'.
+----------------------------
+revision 6.13
+date: 1995/09/21 00:14:07; author: morioka; state: Exp; lines: +2 -2
+comment was modified.
+----------------------------
+revision 6.12
+date: 1995/09/20 19:48:26; author: morioka; state: Exp; lines: +19 -2
+comment was modified.
+----------------------------
+revision 6.11
+date: 1995/09/20 19:34:15; author: morioka; state: Exp; lines: +15 -3
+Eric Ding <ericding@San-Jose.ate.slb.com> said\e$B!'\e(B
+======================================================================
+if text/enriched mail is encoded with quoted-printable, tm-view
+doesn't seem to be decoding it properly.
+======================================================================
+I applied this patch.
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 6.88
+date: 1995/09/21 02:33:28; author: morioka; state: Exp; lines: +2 -2
+In function `mime-viewer/insert-content-subject', button does not
+include new line.
+----------------------------
+revision 6.87
+date: 1995/09/21 02:12:25; author: morioka; state: Exp; lines: +3 -1
+tm:add-button was set for announcement of message/partial.
+----------------------------
+revision 6.86
+date: 1995/09/21 00:13:26; author: morioka; state: Exp; lines: +2 -2
+comment was modified.
+----------------------------
+revision 6.85
+date: 1995/09/21 00:00:42; author: morioka; state: Exp; lines: +35 -34
+(1) In function `mime-viewer/insert-content-subject', button setting
+ was added.
+(2) Setting of mouse-button-2 is modified to use variable
+ `mouse-button-2' and function `tm:button-dispatcher'.
+----------------------------
+revision 6.84
+date: 1995/09/20 20:01:21; author: morioka; state: Exp; lines: +13 -7
+Setting for message/news was added.
+----------------------------
+
+
+* tm/gnus
+
+ Attached version 6.22.1.
+
+tm/gnus/tm-gnus.el
+----------------------------
+revision 6.3
+date: 1995/09/21 02:59:55; author: morioka; state: Exp; lines: +10 -4
+September Gnus was supported.
+----------------------------
+
+
+* tm/mh-e
+
+ Attached version 6.32.
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 6.32
+date: 1995/09/21 00:20:10; author: morioka; state: Exp; lines: +3 -3
+comment was modified.
+----------------------------
+revision 6.31
+date: 1995/09/20 20:17:13; author: morioka; state: Exp; lines: +13 -4
+comment was modified.
+----------------------------
+revision 6.30
+date: 1995/09/20 20:11:48; author: morioka; state: Exp; lines: +7 -2
+ARIURA <ariura@tuat.ac.jp>'s mhl supporting patch was applied.
+----------------------------
+revision 6.29
+date: 1995/09/20 19:25:17; author: morioka; state: Exp; lines: +7 -4
+In function `tm-mh-e/cite',
+
+ (if (not (eq nil mime::article/preview-buffer))
+ mime::article/preview-buffer
+ (current-buffer))
+
+was rewrote to
+
+ (or mime::article/preview-buffer (current-buffer))
+----------------------------
+revision 6.28
+date: 1995/09/20 19:14:48; author: morioka; state: Exp; lines: +6 -3
+Eric Ding <ericding@San-Jose.ate.slb.com> said:
+======================================================================
+in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being
+called from within mh-e, which is not always true (for instance, if
+it's being used from within gnus). Here's the patch.
+======================================================================
+I applied this patch.
+----------------------------
--- /dev/null
+* tl
+
+ Version 6.6.6 \e$B$rE:IU$7$?!#\e(B
+
+ - emu \e$B$N9=@.$rJQ99$7$?!#\e(B
+
+tl/emu-18.el
+----------------------------
+revision 6.0
+date: 1995/09/21 00:06:48; author: morioka; state: Exp; lines: +3 -1
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 5.0
+date: 1995/09/20 23:29:11; author: morioka; state: Exp; lines: +10 -2
+\e$BJQ?t\e(B mouse-button-2 \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+tl/emu-19.el
+----------------------------
+revision 2.0
+date: 1995/09/21 00:10:55; author: morioka; state: Exp; lines: +3 -1
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 1.1
+date: 1995/09/20 23:31:30; author: morioka; state: Exp;
+Emacs 19 \e$B7OMQ$N\e(B module \e$B$H$7$F?7@_$7$?!#\e(B
+----------------------------
+
+tl/emu-mule.el
+----------------------------
+revision 6.3
+date: 1995/09/21 00:08:02; author: morioka; state: Exp; lines: +3 -1
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.2
+date: 1995/09/20 23:42:12; author: morioka; state: Exp; lines: +16 -3
+\e$B4X?t\e(B tl:make-overlay, tl:overlay-put, tl:add-text-properties \e$B$rDj5A$7\e(B
+\e$B$?!#\e(B
+----------------------------
+
+tl/emu-nemacs.el
+----------------------------
+revision 6.1
+date: 1995/09/21 00:07:24; author: morioka; state: Exp; lines: +3 -1
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.0
+date: 1995/09/20 23:38:29; author: morioka; state: Exp; lines: +30 -2
+\e$B4X?t\e(B tl:make-overlay,
+ tl:overlay-put,
+ tl:add-text-properties,
+\e$B$*$h$S!"JQ?t\e(B mouse-button-2, tl:available-face-attribute-alist \e$B$rDj5A\e(B
+\e$B$7$?!#\e(B
+----------------------------
+
+tl/emu-orig.el
+----------------------------
+revision 4.0
+date: 1995/09/21 00:09:37; author: morioka; state: Exp; lines: +3 -1
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 3.0
+date: 1995/09/20 23:45:23; author: morioka; state: Exp; lines: +18 -2
+XEmacs \e$B$N>l9g$O\e(B emu-xemacs, FSF original Emacs 19 \e$B$N>l9g$O\e(B emu-19 \e$B$r\e(B
+require \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+tl/emu-xemacs.el
+----------------------------
+revision 5.0
+date: 1995/09/21 00:08:50; author: morioka; state: Exp; lines: +4 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 4.0
+date: 1995/09/20 23:35:02; author: morioka; state: Exp; lines: +35 -21
+\e$B4X?t\e(B tl:set-text-properties,
+ tl:add-text-properties,
+ tl:make-overlay,
+ tl:overlay-put,
+ tl:overlay-buffer,
+ tl:move-overlay,
+\e$B$*$h$S!"JQ?t\e(B mouse-button-2 \e$B$rDj5A$7$?!#\e(B
+----------------------------
+
+tl/emu.el
+----------------------------
+revision 4.0
+date: 1995/09/21 00:05:57; author: morioka; state: Exp; lines: +10 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 3.0
+date: 1995/09/20 23:46:38; author: morioka; state: Exp; lines: +1 -5
+emu-xemacs \e$B$r\e(B require \e$B$9$kItJ,$r\e(B emu-orig.el \e$B$K0\$7$?!#\e(B
+----------------------------
+
+
+* tm
+
+tm/tm-def.el
+----------------------------
+revision 6.3
+date: 1995/09/21 00:12:52; author: morioka; state: Exp; lines: +2 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.2
+date: 1995/09/20 23:53:54; author: morioka; state: Exp; lines: +39 -28
+\e$B4X?t\e(B tm:set-face-region, tm:add-button, tm:button-dispatcher,
+\e$B$*$h$S!"JQ?t\e(B tm:button-face, tm:mouse-face \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+tm/tm-rich.el
+----------------------------
+revision 6.14
+date: 1995/09/21 00:18:32; author: morioka; state: Exp; lines: +3 -3
+\e$B4X?t\e(B mime-viewer/default-code-convert-region \e$B$r;H$&$h$&$K!"4X?t\e(B
+mime-viewer/filter-text/enriched \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.13
+date: 1995/09/21 00:14:07; author: morioka; state: Exp; lines: +2 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.12
+date: 1995/09/20 19:48:26; author: morioka; state: Exp; lines: +19 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.11
+date: 1995/09/20 19:34:15; author: morioka; state: Exp; lines: +15 -3
+Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s[)$/!'\e(B
+======================================================================
+if text/enriched mail is encoded with quoted-printable, tm-view
+doesn't seem to be decoding it properly.
+======================================================================
+\e$B$3$N\e(B patch \e$B$rEv$F$?!#\e(B
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 6.88
+date: 1995/09/21 02:33:28; author: morioka; state: Exp; lines: +2 -2
+\e$B4X?t\e(B mime-viewer/insert-content-subject \e$B$K$*$1$k\e(B button \e$B$NHO0O$K2~9T$,\e(B
+\e$B4^$^$l$J$$$h$&$K$7$?!#\e(B
+----------------------------
+revision 6.87
+date: 1995/09/21 02:12:25; author: morioka; state: Exp; lines: +3 -1
+message/partial \e$B$N\e(B announcement \e$B$KBP$7$F\e(B tm:add-button \e$B$N@_Dj$r9T$J$C\e(B
+\e$B$?!#\e(B
+----------------------------
+revision 6.86
+date: 1995/09/21 00:13:26; author: morioka; state: Exp; lines: +2 -2
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.85
+date: 1995/09/21 00:00:42; author: morioka; state: Exp; lines: +35 -34
+(1) \e$B4X?t\e(B mime-viewer/insert-content-subject \e$B$G\e(B button \e$B$N@_Dj$r9T$J$C$?!#\e(B
+(2) mouse-button-2 \e$B$N@_Dj$rJQ?t\e(B mouse-button-2 \e$B$H4X?t\e(B
+ tm:button-dispatcher \e$B$r;H$&$h$&$K=$@5$7$?!#\e(B
+----------------------------
+revision 6.84
+date: 1995/09/20 20:01:21; author: morioka; state: Exp; lines: +13 -7
+message/news \e$BMQ$N@_Dj$r9T$J$C$?!#\e(B
+----------------------------
+
+
+* tm/gnus
+
+ Version 6.22.1 \e$B$rE:IU$7$?!#\e(B
+
+tm/gnus/tm-gnus.el
+----------------------------
+revision 6.3
+date: 1995/09/21 02:59:55; author: morioka; state: Exp; lines: +10 -4
+September Gnus \e$B$KBP1~$7$?!#\e(B
+----------------------------
+
+
+* tm/mh-e
+
+ Version 6.32 \e$B$rE:IU$7$?!#\e(B
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 6.32
+date: 1995/09/21 00:20:10; author: morioka; state: Exp; lines: +3 -3
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.31
+date: 1995/09/20 20:17:13; author: morioka; state: Exp; lines: +13 -4
+comment \e$B$r=$@5$7$?!#\e(B
+----------------------------
+revision 6.30
+date: 1995/09/20 20:11:48; author: morioka; state: Exp; lines: +7 -2
+
\e$BM-1:
\e(B
\e$B=S0lO:
\e(B <ariura@tuat.ac.jp>
\e$B$5$s$N
\e(B mhl
\e$BBP1~
\e(B patch
\e$B$rEv$F$?!#
\e(B
+----------------------------
+revision 6.29
+date: 1995/09/20 19:25:17; author: morioka; state: Exp; lines: +7 -4
+\e$B4X?t\e(B tm-mh-e/cite \e$B$K$*$$$F!"\e(B
+
+ (if (not (eq nil mime::article/preview-buffer))
+ mime::article/preview-buffer
+ (current-buffer))
+
+\e$B$r\e(B
+
+ (or mime::article/preview-buffer (current-buffer))
+
+\e$B$K=q$-49$($?!#\e(B
+----------------------------
+revision 6.28
+date: 1995/09/20 19:14:48; author: morioka; state: Exp; lines: +6 -3
+Eric Ding <ericding@San-Jose.ate.slb.com> \e$B$5$s[)$/!'\e(B
+======================================================================
+in tm-mh-e/cite 6.25, there is an assumption that mh-reply is being
+called from within mh-e, which is not always true (for instance, if
+it's being used from within gnus). Here's the patch.
+======================================================================
+\e$B$3$N\e(B patch \e$B$rEv$F$?!#\e(B
+----------------------------
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm6.83.tar
+TARFILE = tm6.88.tar
nemacs:
FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus6.22.tar
+TARFILE = tm-gnus6.22.1.tar
gnus3:
;;;
-;;; A MIME extension for GNUS
+;;; tm-gnus.el --- MIME extension for GNUS
;;;
-;;; by Morioka Tomohiko, 1993/11/20
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
;;;
-;;; $Id: tm-gnus.el,v 6.2 1995/08/31 20:21:22 morioka Exp $
+;;; Author: Morioka Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;; $Id: tm-gnus.el,v 6.3 1995/09/21 02:59:55 morioka Exp $
+;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
+;;;
+;;; This file is part of tm (Tools for MIME).
;;;
(require 'gnus)
((string-match "(ding)" gnus-version)
(require 'tm-dgnus)
)
- ((string-match "^Gnus v5" gnus-version)
+ ((string-match "^Gnus v5\\|^September Gnus" gnus-version)
(require 'tm-gnus5)
))
FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol
-TARFILE = tm-mh-e6.27.tar
+TARFILE = tm-mh-e6.32.tar
elc:
;;;
-;;; A MIME extender for mh-e
+;;; tm-mh-e.el --- MIME extender for mh-e
;;;
-;;; by Morioka Tomohiko, 1993/11/21
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
+;;;
+;;; This file is part of tm (Tools for MIME).
;;;
-
;;; @ require modules
;;;
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 6.27 1995/09/20 12:34:39 morioka Exp $")
+ "$Id: tm-mh-e.el,v 6.32 1995/09/21 00:20:10 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(invisible-headers mh-invisible-headers)
(visible-headers mh-visible-headers)
)
- (insert-file-contents msg-filename)
+ ;; 1995/9/21
+ ;; modified by ARIURA <ariura@cc.tuat.ac.jp>
+ ;; to support mhl.
+ (if mhl-formfile
+ (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear"
+ (if (stringp mhl-formfile)
+ (list "-form" mhl-formfile))
+ msg-filename)
+ (insert-file-contents msg-filename))
+ ;; end
(goto-char (point-min))
(cond (clean-message-header
(mh-clean-msg-header (point-min)
(save-restriction
(insert-buffer
(save-window-excursion
- (switch-to-buffer (concat "show-" mh-sent-from-folder))
- mime::article/preview-buffer))
+ ;; 1995/9/21,
+ ;; modified by Eric Ding <ericding@San-Jose.ate.slb.com>
+ ;; (c.f. tm-eng:104)
+ (set-buffer mh-sent-from-folder)
+ (set-buffer mh-show-buffer)
+ (or mime::article/preview-buffer (current-buffer))
+ ;; end
+ ))
(if (looking-at "^\\[.+\\(\n[ \t].+\\)*\\]\n")
(replace-match ""))
(narrow-to-region (point)(point-max))
))
'("signature"
"tiny-mime" "tm-def" "tm-view"
- "tm-latex"
+ "tm-latex" "tm-w3"
"tm-rmail" "tm-comp"
"tm-setup" "mime-setup"
))
)
))
-(setq tm-uncompile-el-files '("tm-partial.el" "tm-w3.el"))
+(setq tm-uncompile-el-files '("tm-partial.el"))
(if (catch 'tag
(let ((paths load-path) path)
tm-modules))
(defun compile-tm ()
- (mapcar (function byte-compile-file) tm-el-files)
+ (mapcar (function byte-compile-file file) tm-el-files)
)
(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
;;;
-;;; $Id: tm-def.el,v 6.1 1995/09/20 14:44:49 morioka Exp $
+;;; tm-def.el --- definition module for tm
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;; $Id: tm-def.el,v 6.3 1995/09/21 00:12:52 morioka Exp $
+;;; Keywords: mail, news, MIME, multimedia, definition
+;;;
+;;; This file is part of tm (Tools for MIME).
;;;
(require 'emu)
(t (require 'tm-orig))
)
-(cond ((string-match "XEmacs\\|Lucid" emacs-version)
- (defun tm:set-face-region (b e face)
- (let ((overlay (make-extent b e)))
- (set-extent-property overlay 'face face)
- ))
- )
- ((and (>= emacs-major-version 19) window-system)
- (defun tm:set-face-region (b e face)
- (let ((overlay (make-overlay b e)))
- (overlay-put overlay 'face face)
- ))
- )
- ((and (boundp 'NEMACS) NEMACS)
- (setq tm:available-face-attribute-alist
- '((bold . inversed-region)
- (italic . underlined-region)
- (underline . underlined-region)
- ))
- (defun tm:set-face-region (beg end face)
- (attribute-add-narrow-attribute
- (cdr (assq face mime/available-face-attribute-alist))
- beg end))
- )
- (t
- (defun tm:set-face-region (beg end sym)
- )
- ))
+(defun tm:set-face-region (b e face)
+ (let ((overlay (tl:make-overlay b e)))
+ (tl:overlay-put overlay 'face face)
+ ))
+
+(setq tm:button-face 'bold)
+(setq tm:mouse-face 'highlight)
+
+(defun tm:add-button (from to func &optional data)
+ "Create a button between FROM and TO with callback FUNC and data DATA."
+ (and tm:button-face
+ (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face))
+ (tl:add-text-properties from to
+ (append (and tm:mouse-face
+ (list 'mouse-face tm:mouse-face))
+ (list 'tm-callback func)
+ (and data (list 'tm-data data))
+ ))
+ )
+
+(defun tm:button-dispatcher (event)
+ "Select the button under point."
+ (interactive "e")
+ (mouse-set-point event)
+ (let ((func (get-text-property (point) 'tm-callback)))
+ (if func
+ (call-interactively func)
+ )))
;;; @ definitions about MIME
;;;
-;;; $Id: tm-rich.el,v 6.10 1995/08/05 00:55:37 morioka Exp $
+;;; tm-rich.el --- text/enriched and text/richtext style
+;;; richtext filter for tm-view
;;;
-;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;; $Id: tm-rich.el,v 6.14 1995/09/21 00:18:32 morioka Exp $
+;;; Keywords: mail, news, MIME, multimedia, richtext, enriched
+;;;
+;;; This file is part of tm (Tools for MIME).
;;;
(require 'tm-view)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
(charset (assoc "charset" params))
- (beg (point-min))
+ ;; 1995/9/21
+ ;; modified by Eric Ding <ericding@San-Jose.ate.slb.com>
+ ;; (c.f. tm-eng:105)
+ (beg (point-min)) (end (point-max))
)
+ (cond ((string= encoding "quoted-printable")
+ (quoted-printable-decode-region beg end)
+ )
+ ((string= encoding "base64")
+ (base64-decode-region beg end)
+ ))
+ ;; end
(if (and m (fboundp (setq m (cdr m))))
(funcall m beg (point-max) charset encoding)
(mime-viewer/default-code-convert-region beg (point-max)
(let* ((mode mime::preview/original-major-mode)
(m (assq mode mime-viewer/code-converter-alist))
(charset (assoc "charset" params))
- (beg (point-min))
+ ;; 1995/9/21
+ ;; modified by Eric Ding <ericding@San-Jose.ate.slb.com>
+ ;; (c.f. tm-eng:105)
+ (beg (point-min)) (end (point-max))
)
+ (cond ((string= encoding "quoted-printable")
+ (quoted-printable-decode-region beg end)
+ )
+ ((string= encoding "base64")
+ (base64-decode-region beg end)
+ ))
+ ;; end
(if (and m (fboundp (setq m (cdr m))))
(funcall m beg (point-max) charset encoding)
- (mime/code-convert-region-to-emacs beg (point-max)
- charset encoding)
+ (mime-viewer/default-code-convert-region beg (point-max)
+ charset encoding)
)
(enriched-decode beg (point-max))
))
;;;
-;;; A MIME viewer for GNU Emacs
+;;; tm-view.el --- interactive MIME viewer for GNU Emacs
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Keywords: mail, news, MIME, multimedia
+;;;
+;;; This file is part of tm (Tools for MIME).
;;;
-;;; by Morioka Tomohiko, 1994/07/13
-;;;
;;; @ require modules
;;;
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 6.83 1995/09/20 14:19:42 morioka Exp $")
+ "$Id: tm-view.el,v 6.88 1995/09/21 02:33:28 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
;; 'file '"access-type" '"name" '"site" '"directory"))
((type . "message/partial")
(method . mime/decode-message/partial-region))
- ((type . "message/rfc822")
- (method "tm-file" nil 'file 'type 'encoding 'mode 'name))
((method "metamail" t
"-m" "tm" "-x" "-d" "-z" "-e" 'file)(mode . "play"))
+ ((method "tm-file" nil 'file 'type 'encoding 'mode 'name)
+ (mode . "extract"))
))
(defvar mime-viewer/childrens-header-showing-Content-Type-list
- '("message/rfc822"))
+ '("message/rfc822" "message/news"))
(defvar mime-viewer/default-showing-Content-Type-list
'("text/plain" "text/richtext" "text/enriched"
(defun mime-viewer/insert-content-subject
(cnum cinfo ctype params subj)
- (insert
- (let ((access-type (assoc "access-type" params))
- (num (or (assoc-value "x-part-number" params)
- (if (listp cnum)
- (mapconcat (function
- (lambda (num)
- (format "%s" (+ num 1))
- ))
- cnum ".")
- "0"))
- ))
- (if access-type
- (let ((server (assoc "server" params)))
- (setq access-type (cdr access-type))
- (if server
- (format "[%s %s ([%s] %s)]\n" num subj
- access-type (cdr server))
- (let ((site (assoc-value "site" params))
- (dir (assoc-value "directory" params))
- )
- (format "[%s %s ([%s] %s:%s)]\n" num subj
- access-type site dir)
- )))
- (format "[%s %s (%s)]\n" num subj ctype)
- ))))
+ (save-restriction
+ (narrow-to-region (point)(point))
+ (insert
+ (let ((access-type (assoc "access-type" params))
+ (num (or (assoc-value "x-part-number" params)
+ (if (listp cnum)
+ (mapconcat (function
+ (lambda (num)
+ (format "%s" (+ num 1))
+ ))
+ cnum ".")
+ "0"))
+ ))
+ (if access-type
+ (let ((server (assoc "server" params)))
+ (setq access-type (cdr access-type))
+ (if server
+ (format "[%s %s ([%s] %s)]\n" num subj
+ access-type (cdr server))
+ (let ((site (assoc-value "site" params))
+ (dir (assoc-value "directory" params))
+ )
+ (format "[%s %s ([%s] %s:%s)]\n" num subj
+ access-type site dir)
+ )))
+ (format "[%s %s (%s)]\n" num subj ctype)
+ )))
+ (tm:add-button (point-min)(1- (point-max))
+ (function mime-viewer/play-content))
+ ))
(defun mime-viewer/default-content-subject-function
(cnum cinfo ctype params subj)
(narrow-to-region be be)
(insert
mime-viewer/announcement-for-message/partial)
+ (tm:add-button (point-min)(point-max)
+ (function mime-viewer/play-content))
(setq ne (point-max))
)
(switch-to-buffer the-buf)
"q" (function mime-viewer/quit))
(define-key mime/viewer-mode-map
"\C-c\C-x" (function mime-viewer/kill-buffer))
- (cond ((string-match "XEmacs\\|Lucid" emacs-version)
- (define-key mime/viewer-mode-map
- 'button2 (function mime-viewer/play-content-mouse))
- )
- ((>= emacs-major-version 19)
- (define-key mime/viewer-mode-map
- [mouse-2] (function mime-viewer/play-content-mouse))
- ))
+ (if mouse-button-2
+ (define-key mime/viewer-mode-map
+ mouse-button-2 (function tm:button-dispatcher))
+ )
))
(defun mime/viewer-mode (&optional mother ctl encoding)
projects / elisp / tm.git / commitdiff