From: morioka Date: Mon, 9 Mar 1998 11:13:49 +0000 (+0000) Subject: tm 7.18. X-Git-Tag: tm7_18~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=caf19998189b560eca4acb619a4fcd34eebcac64;p=elisp%2Ftm.git tm 7.18. --- diff --git a/Changes-7.18.en b/Changes-7.18.en new file mode 100644 index 0000000..01f8644 --- /dev/null +++ b/Changes-7.18.en @@ -0,0 +1,83 @@ +* tl + + Attached version 7.01.1. + +tl/mu-cite.el +---------------------------- +revision 3.3 +date: 1995/10/20 10:43:28; author: morioka; state: Exp; lines: +4 -2 +Fixed function `mu-cite/cite-original'. +---------------------------- + + +* mel + + Attached Version 2.1. + +mel/mel.el +---------------------------- +revision 2.1 +date: 1995/10/20 10:51:39; author: morioka; state: Exp; lines: +18 -1 +Function `mime/encode-region' was created. +---------------------------- +revision 2.0 +date: 1995/10/20 10:38:08; author: morioka; state: Exp; lines: +27 -1 +Function `mime/decode-region' was created. +---------------------------- + + +* tm + +tm/tm-rich.el +---------------------------- +revision 7.1 +date: 1995/10/20 10:40:06; author: morioka; state: Exp; lines: +3 -15 +Use function `mime/decode-region'. +---------------------------- + +tm/tm-view.el +---------------------------- +revision 7.18 +date: 1995/10/20 10:41:59; author: morioka; state: Exp; lines: +3 -9 +Function `mime-viewer/filter-text/plain' was modified： +(1) Use function `mime/decode-region'. +(2) Unnecessary goto-char was deleted. +(3) Unnecessary save-excursion was deleted. +---------------------------- + +tm/tm-w3.el +---------------------------- +revision 3.0 +date: 1995/10/20 10:42:41; author: morioka; state: Exp; lines: +2 -7 +Use function `mime/decode-region'. +---------------------------- +revision 2.0 +date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 +Decode base64 or quoted-printable. +---------------------------- + + +* tm/gnus + + Attached Version 7.5. + +tm/tm-sgnus.el +---------------------------- +revision 7.5 +date: 1995/10/19 14:22:47; author: morioka; state: Exp; lines: +1 -5 +Not support gnus-5.0.6-nnheader.diff. (^_^; +---------------------------- + + +* tm/mh-e + + Attached Version 7.7. + +tm/mh-e/tm-mh-e.el +---------------------------- +revision 7.7 +date: 1995/10/20 10:54:27; author: morioka; state: Exp; lines: +10 -2 +(1) In automatic MIME preview mode, if `,' key is pressed, it displays + preview buffer which has all fields of message header. +(2) Raw message displaying function is bound to `ESC ,'. +---------------------------- diff --git a/Changes-7.18.ja b/Changes-7.18.ja new file mode 100644 index 0000000..2ff3ef2 --- /dev/null +++ b/Changes-7.18.ja @@ -0,0 +1,83 @@ +* tl + + Version 7.01.1 を添付した。 + +tl/mu-cite.el +---------------------------- +revision 3.3 +date: 1995/10/20 10:43:28; author: morioka; state: Exp; lines: +4 -2 +関数 mu-cite/cite-original を修正した。 +---------------------------- + + +* mel + + Version 2.1 を添付した。 + +mel/mel.el +---------------------------- +revision 2.1 +date: 1995/10/20 10:51:39; author: morioka; state: Exp; lines: +18 -1 +関数 mime/encode-region を追加した。 +---------------------------- +revision 2.0 +date: 1995/10/20 10:38:08; author: morioka; state: Exp; lines: +27 -1 +関数 mime/decode-region を追加した。 +---------------------------- + + +* tm + +tm/tm-rich.el +---------------------------- +revision 7.1 +date: 1995/10/20 10:40:06; author: morioka; state: Exp; lines: +3 -15 +関数 mime/decode-region を使うようにした。 +---------------------------- + +tm/tm-view.el +---------------------------- +revision 7.18 +date: 1995/10/20 10:41:59; author: morioka; state: Exp; lines: +3 -9 +関数 mime-viewer/filter-text/plain を修正した： +(1) 関数 mime/decode-region を使うようにした。 +(2) 無駄な goto-char を削除した。 +(3) 無駄な save-excursion を削除した。 +---------------------------- + +tm/tm-w3.el +---------------------------- +revision 3.0 +date: 1995/10/20 10:42:41; author: morioka; state: Exp; lines: +2 -7 +関数 mime/decode-region を使うようにした。 +---------------------------- +revision 2.0 +date: 1995/10/19 07:57:57; author: morioka; state: Exp; lines: +7 -1 +base64 や quoted-printable の場合、decode するようにした。 +---------------------------- + + +* tm/gnus + + Version 7.5 を添付した。 + +tm/tm-sgnus.el +---------------------------- +revision 7.5 +date: 1995/10/19 14:22:47; author: morioka; state: Exp; lines: +1 -5 +gnus-5.0.6-nnheader.diff を見捨てた。(^_^; +---------------------------- + + +* tm/mh-e + + Version 7.7 を添付した。 + +tm/mh-e/tm-mh-e.el +---------------------------- +revision 7.7 +date: 1995/10/20 10:54:27; author: morioka; state: Exp; lines: +10 -2 +(1) automatic MIME preview mode の時に `,' を押した場合、header を全部 + 表示した preview buffer を表示するようにした。 +(2) 常に生の画面を表示する関数を `ESC ,' に割り当てた。 +---------------------------- diff --git a/Makefile b/Makefile index 1f92281..67e501f 100644 --- a/Makefile +++ b/Makefile @@ -34,7 +34,7 @@ TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.17.tar +TARFILE = tm7.18.tar nemacs: diff --git a/gnus/Makefile b/gnus/Makefile index 6265993..8da6199 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-gnus7.04.tar +TARFILE = tm-gnus7.05.tar gnus3: diff --git a/gnus/s-path b/gnus/s-path index bc9ea48..f4d0ad7 100644 --- a/gnus/s-path +++ b/gnus/s-path @@ -12,6 +12,6 @@ ;; ;; please edit this ;; - '("/usr/local/lib/emacs/site-lisp/sgnus/lisp") + '("/usr/local/lib/emacs/site-lisp/sgnus-0.11/lisp") ;; load-path)) diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el index c95e9d9..c096b72 100644 --- a/gnus/tm-sgnus.el +++ b/gnus/tm-sgnus.el @@ -26,7 +26,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-sgnus.el,v 7.4 1995/10/18 08:32:36 morioka Exp $") + "$Id: tm-sgnus.el,v 7.5 1995/10/19 14:22:47 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for September")) @@ -130,12 +130,8 @@ article is automatic MIME decoded.") )) gnus-newsgroup-headers) ) - (add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-from-and-subjects)) - ) - (t - (defalias 'mime/decode-encoded-words-string 'mime-eword/decode-string) )) diff --git a/mh-e/Makefile b/mh-e/Makefile index 9e08e4e..c3d8415 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-e7.06.tar +TARFILE = tm-mh-e7.07.tar elc: diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el index b41e7d4..1f9c2c7 100644 --- a/mh-e/tm-mh-e.el +++ b/mh-e/tm-mh-e.el @@ -26,7 +26,7 @@ ;;; (defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 7.6 1995/10/19 07:51:52 morioka Exp $") + "$Id: tm-mh-e.el,v 7.7 1995/10/20 10:54:27 morioka Exp $") (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) @@ -177,7 +177,14 @@ With arg, turn MIME processing on if arg is positive." (interactive) (mh-invalidate-show-buffer) (let (mime-viewer/ignored-field-list - tm-mh-e/decode-all + tm-mh-e/decode-encoded-word) + (mh-header-display) + )) + +(defun tm-mh-e/raw-display () + (interactive) + (mh-invalidate-show-buffer) + (let (tm-mh-e/decode-all tm-mh-e/decode-encoded-word) (mh-header-display) )) @@ -295,6 +302,7 @@ With arg, turn MIME processing on if arg is positive." (define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode)) (define-key mh-folder-mode-map "." (function tm-mh-e/show)) (define-key mh-folder-mode-map "," (function tm-mh-e/header-display)) +(define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display)) (define-key mh-folder-mode-map "\r" (function (lambda () (interactive) diff --git a/tm-rich.el b/tm-rich.el index 48c8ee1..398b60d 100644 --- a/tm-rich.el +++ b/tm-rich.el @@ -7,7 +7,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: tm-rich.el,v 7.0 1995/10/04 05:27:50 morioka Exp $ +;;; $Id: tm-rich.el,v 7.1 1995/10/20 10:40:06 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, richtext, enriched ;;; ;;; This file is part of tm (Tools for MIME). @@ -38,13 +38,7 @@ (beg (point-min)) (end (point-max)) ) (remove-text-properties beg end '(face nil)) - (cond ((string= encoding "quoted-printable") - (quoted-printable-decode-region beg end) - ) - ((string= encoding "base64") - (base64-decode-region beg end) - )) - ;; end + (mime/decode-region encoding beg 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) @@ -62,13 +56,7 @@ (beg (point-min)) (end (point-max)) ) (remove-text-properties beg end '(face nil)) - (cond ((string= encoding "quoted-printable") - (quoted-printable-decode-region beg end) - ) - ((string= encoding "base64") - (base64-decode-region beg end) - )) - ;; end + (mime/decode-region encoding beg 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) diff --git a/tm-view.el b/tm-view.el index aa64a72..ed6a732 100644 --- a/tm-view.el +++ b/tm-view.el @@ -25,7 +25,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.17 1995/10/19 07:55:54 morioka Exp $") + "$Id: tm-view.el,v 7.18 1995/10/20 10:41:59 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -594,13 +594,7 @@ The compressed face will be piped to this command.") (let ((charset (cdr (assoc "charset" params))) (beg (point-min)) (end (point-max)) ) - (goto-char (point-min)) - (cond ((string= encoding "quoted-printable") - (quoted-printable-decode-region beg end) - ) - ((string= encoding "base64") - (base64-decode-region beg end) - )) + (mime/decode-region encoding beg end) (let* ((mode mime::preview/original-major-mode) (m (assq mode mime-viewer/code-converter-alist)) ) @@ -614,7 +608,7 @@ The compressed face will be piped to this command.") (insert "\n") ) (if browse-url-browser-function - (save-excursion + (progn (goto-char (point-min)) (while (re-search-forward tm:URL-regexp nil t) (tm:add-button (match-beginning 0)(match-end 0) diff --git a/tm-w3.el b/tm-w3.el index 195afba..55c3f75 100644 --- a/tm-w3.el +++ b/tm-w3.el @@ -5,7 +5,7 @@ ;;; ;;; based on tm-latex.el by OKABE Yasuo ;;; -;;; $Id: tm-w3.el,v 2.0 1995/10/19 07:57:57 morioka Exp $ +;;; $Id: tm-w3.el,v 3.0 1995/10/20 10:42:41 morioka Exp $ ;;; (require 'tm-view) @@ -33,12 +33,7 @@ (re-search-forward "^$") (append-to-buffer new-buf (+ (match-end 0) 1) end) ))) - (cond ((string= encoding "quoted-printable") - (quoted-printable-decode-region (point-min)(point-max)) - ) - ((string= encoding "base64") - (base64-decode-region (point-min)(point-max)) - )) + (mime/decode-region encoding (point-min)(point-max)) (call-interactively mime-viewer/html-default-mode) ))