From a2830b103396ae7af01c96e33f5b4f5df71a7b0a Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 07:04:18 +0000 Subject: [PATCH] tm 6.73. --- Changes-6.73.en | 71 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ Changes-6.73.ja | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile | 2 +- gnus/tm-dgnus.el | 13 ++++++---- mime-setup.el | 3 ++- sc-setup.el | 28 ++++++++++++--------- tiny-mime.el | 8 +++--- tm-misc.el | 25 +++++++++++++------ tm-mule.el | 7 ++---- tm-nemacs.el | 5 ++-- tm-orig.el | 12 ++++++--- tm-view.el | 6 ++--- 12 files changed, 204 insertions(+), 46 deletions(-) create mode 100644 Changes-6.73.en create mode 100644 Changes-6.73.ja diff --git a/Changes-6.73.en b/Changes-6.73.en new file mode 100644 index 0000000..a54b1f7 --- /dev/null +++ b/Changes-6.73.en @@ -0,0 +1,71 @@ +tl +---------------------------- +(1) Replaced tl-18, tl-nemacs, tl-mule and tl-orig by emu. +(2) Fixed problem on Emacs 19.29. +---------------------------- + +mime-setup.el +---------------------------- +revision 6.1 +date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1 +Fixed a problem about setting for (ding) GNUS. +---------------------------- + +sc-setup.el +---------------------------- +revision 3.0 +date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4 +Use emacs-major-version to judge. +---------------------------- +revision 2.0 +date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9 +Replaced tl-18 by emu. +---------------------------- + +tiny-mime.el +---------------------------- +revision 5.18 +date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4 +Replaced tl-18 by emu. +---------------------------- +revision 5.17 +date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2 +Added "Newsgroups" to default value of variable +`mime/no-encoding-header-fields'. +---------------------------- + +tm-misc.el +---------------------------- +revision 5.2 +date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7 +Replaced tl-18 by emu. +---------------------------- + +tm-mule.el +---------------------------- +revision 6.3 +date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5 +Replaced tl-18 and tl-mule by emu. +---------------------------- + +tm-nemacs.el +---------------------------- +revision 6.1 +date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3 +Replaced tl-18 and tl-nemacs by emu. +---------------------------- + +tm-orig.el +---------------------------- +revision 6.1 +date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4 +Replaced tl-orig by emu. +---------------------------- + +tm-view.el +---------------------------- +revision 6.73 +date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3 +Renamed function `mime::viewer/quitting-method-for-gnus4' to +`mime-viewer/quitting-method-for-gnus4'. +---------------------------- diff --git a/Changes-6.73.ja b/Changes-6.73.ja new file mode 100644 index 0000000..a78a4dd --- /dev/null +++ b/Changes-6.73.ja @@ -0,0 +1,70 @@ +tl +---------------------------- +(1) tl-18, tl-nemacs, tl-mule, tl-orig を emu に置き換えた。 +(2) Emacs 19.29 における不具合を修正した。 +---------------------------- + +mime-setup.el +---------------------------- +revision 6.1 +date: 1995/08/26 20:21:12; author: morioka; state: Exp; lines: +2 -1 +(ding) GNUS における設定の不具合を修正した。 +---------------------------- + +sc-setup.el +---------------------------- +revision 3.0 +date: 1995/08/26 18:37:34; author: morioka; state: Exp; lines: +9 -4 +判定に emacs-major-version を使うようにした。 +---------------------------- +revision 2.0 +date: 1995/08/26 18:35:29; author: morioka; state: Exp; lines: +8 -9 +tl-18 を使うのをやめて emu を使うようにした。 +---------------------------- + +tiny-mime.el +---------------------------- +revision 5.18 +date: 1995/08/26 18:38:37; author: morioka; state: Exp; lines: +2 -4 +tl-18 を使うのをやめて emu を使うようにした。 +---------------------------- +revision 5.17 +date: 1995/08/24 17:07:15; author: morioka; state: Exp; lines: +2 -2 +変数 mime/no-encoding-header-fields の初期値に "Newsgroups" を追加した。 +---------------------------- + +tm-misc.el +---------------------------- +revision 5.2 +date: 1995/08/26 18:41:39; author: morioka; state: Exp; lines: +18 -7 +tl-18 を使うのをやめて emu を使うようにした。 +---------------------------- + +tm-mule.el +---------------------------- +revision 6.3 +date: 1995/08/26 18:42:32; author: morioka; state: Exp; lines: +2 -5 +tl-18, tl-mule を使うのをやめて emu を使うようにした。 +---------------------------- + +tm-nemacs.el +---------------------------- +revision 6.1 +date: 1995/08/26 18:44:31; author: morioka; state: Exp; lines: +2 -3 +tl-18, tl-nemacs を使うのをやめて emu を使うようにした。 +---------------------------- + +tm-orig.el +---------------------------- +revision 6.1 +date: 1995/08/26 18:46:27; author: morioka; state: Exp; lines: +8 -4 +tl-orig を使うのをやめて emu を使うようにした。 +---------------------------- + +tm-view.el +---------------------------- +revision 6.73 +date: 1995/08/26 19:53:34; author: morioka; state: Exp; lines: +3 -3 +関数 mime::viewer/quitting-method-for-gnus4 を +mime-viewer/quitting-method-for-gnus4 に改名した。 +---------------------------- diff --git a/Makefile b/Makefile index 2b2dd20..617f8bd 100644 --- a/Makefile +++ b/Makefile @@ -67,7 +67,7 @@ TL_FILES = tl/README.eng \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm6.72.tar +TARFILE = tm6.73.tar nemacs: diff --git a/gnus/tm-dgnus.el b/gnus/tm-dgnus.el index 8fbb8ac..c8da5be 100644 --- a/gnus/tm-dgnus.el +++ b/gnus/tm-dgnus.el @@ -10,16 +10,19 @@ ;;; @ version ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-dgnus.el,v 6.14 1995/08/01 17:19:15 morioka Exp $") + "$Id: tm-dgnus.el,v 6.15 1995/08/25 14:08:02 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " (ding)")) (defconst tm-gnus/automatic-MIME-preview-support - (if (boundp 'gnus-clean-article-buffer) - (progn - (defconst gnus-version (concat gnus-version " with tm patch")) - t))) + (cond ((boundp 'gnus-clean-article-buffer) + (defconst gnus-version (concat gnus-version " with tm patch")) + t) + (t + (defvar gnus-clean-article-buffer gnus-article-buffer) + nil) + )) (defvar tm-gnus/preview-buffer (if tm-gnus/automatic-MIME-preview-support diff --git a/mime-setup.el b/mime-setup.el index a1d8148..b93a5d6 100644 --- a/mime-setup.el +++ b/mime-setup.el @@ -1,5 +1,5 @@ ;;; -;;; $Id: mime-setup.el,v 6.0 1995/05/30 12:49:34 morioka Exp $ +;;; $Id: mime-setup.el,v 6.1 1995/08/26 20:21:12 morioka Exp $ ;;; (provide 'mime-setup) @@ -177,6 +177,7 @@ (function (lambda () (mime/decode-message-header) + (set-buffer-modified-p nil) (mime-mode) ))) (setq gnus-signature-file nil) diff --git a/sc-setup.el b/sc-setup.el index 18f38a1..4b0b2f5 100644 --- a/sc-setup.el +++ b/sc-setup.el @@ -1,24 +1,21 @@ ;;; -;;; $Id: sc-setup.el,v 1.3 1994/08/22 13:56:10 morioka Exp morioka $ +;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $ ;;; -(provide 'sc-setup) - - -;;; @ for Emacs 18 -;;; -(if (not (fboundp 'add-hook)) - (require 'tl-18) - ) +(require 'emu) ;;; @ for Super Cite ;;; -(if (< (string-to-int emacs-version) 19) + +(if (< emacs-major-version 19) (autoload 'sc-cite-original "sc" nil t) (autoload 'sc-cite-original "supercite" "supercite 3.1" t) - (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)) + (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t) + ) + (setq sc-citation-leader "") + (cond ((boundp 'MULE) ;; for MULE (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *") @@ -28,7 +25,8 @@ (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *") )) -(if (< (string-to-int emacs-version) 19) + +(if (< emacs-major-version 19) (progn (defun my-sc-overload-hook () (require 'sc-oloads) @@ -71,3 +69,9 @@ ;; (- (length sc-rewrite-header-list) 1)) ;; )) (setq sc-preferred-attribution 'registeredname) + + +;;; @ end +;;; + +(provide 'sc-setup) diff --git a/tiny-mime.el b/tiny-mime.el index 2998e31..85b6e48 100644 --- a/tiny-mime.el +++ b/tiny-mime.el @@ -8,18 +8,16 @@ ;;; @ require modules ;;; +(require 'emu) (require 'tl-header) (require 'tl-str) (require 'tl-num) -(if (not (fboundp 'member)) - (require 'tl-18) - ) ;;; @ version ;;; (defconst mime/RCS-ID - "$Id: tiny-mime.el,v 5.16 1995/07/26 05:54:16 morioka Exp $") + "$Id: tiny-mime.el,v 5.18 1995/08/26 18:38:37 morioka Exp $") (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID)) @@ -87,7 +85,7 @@ ;;; @ variables ;;; -(defvar mime/no-encoding-header-fields '("X-Nsubject")) +(defvar mime/no-encoding-header-fields '("X-Nsubject" "Newsgroups")) (defvar mime/use-X-Nsubject nil) diff --git a/tm-misc.el b/tm-misc.el index 26ebf7f..635e017 100644 --- a/tm-misc.el +++ b/tm-misc.el @@ -1,21 +1,26 @@ ;;; -;;; $Id: tm-misc.el,v 5.1 1994/10/25 08:31:15 morioka Exp $ +;;; $Id: tm-misc.el,v 5.2 1995/08/26 18:41:39 morioka Exp $ ;;; ;;; MIME utility for tm-*.el MIME user agent packages ;;; ;;; by Morioka Tomohiko, 1993/11/21 +;;; -(provide 'tm-misc) - -(if (< (string-to-int emacs-version) 19) - (require 'tl-18) - ) +(require 'emu) (require 'tiny-mime) + +;;; @ variables +;;; + (defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/")) (defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.") + +;;; @ functions +;;; + (defun mime/decode-message-header-if-you-need () (if mime/header-decoding-mode (mime/decode-message-header) @@ -29,7 +34,7 @@ )) -;;; @ functions to check field +;;; @@ functions to check field ;;; (defun mime/exist-encoded-word-in-subject () (string-match @@ -41,3 +46,9 @@ (buffer-substring (match-beginning 0) (match-end 0)) ) )))) + + +;;; @ end +;;; + +(provide 'tm-misc) diff --git a/tm-mule.el b/tm-mule.el index 6acda3f..b29efb7 100644 --- a/tm-mule.el +++ b/tm-mule.el @@ -1,13 +1,10 @@ ;;; -;;; $Id: tm-mule.el,v 6.2 1995/06/19 18:54:53 morioka Exp $ +;;; $Id: tm-mule.el,v 6.3 1995/08/26 18:42:32 morioka Exp $ ;;; +(require 'emu) (require 'tl-list) -(require 'tl-mule) -(if (not (fboundp 'member)) - (require 'tl-18) - ) ;;; @ variables ;;; diff --git a/tm-nemacs.el b/tm-nemacs.el index 4371342..a873fad 100644 --- a/tm-nemacs.el +++ b/tm-nemacs.el @@ -1,9 +1,8 @@ ;;; -;;; $Id: tm-nemacs.el,v 6.0 1995/06/11 13:27:23 morioka Exp $ +;;; $Id: tm-nemacs.el,v 6.1 1995/08/26 18:44:31 morioka Exp $ ;;; -(require 'tl-18) -(require 'tl-nemacs) +(require 'emu) ;;; @ variables diff --git a/tm-orig.el b/tm-orig.el index 39e401a..d5aa4d9 100644 --- a/tm-orig.el +++ b/tm-orig.el @@ -1,8 +1,8 @@ ;;; -;;; $Id: tm-orig.el,v 6.0 1995/06/11 13:48:54 morioka Exp $ +;;; $Id: tm-orig.el,v 6.1 1995/08/26 18:46:27 morioka Exp $ ;;; -(provide 'tm-orig) +(require 'emu) ;;; @ variables @@ -53,6 +53,10 @@ (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding) ) -(run-hooks 'tm-orig-load-hook) -(require 'tl-orig) +;;; @ end +;;; + +(provide 'tm-orig) + +(run-hooks 'tm-orig-load-hook) diff --git a/tm-view.el b/tm-view.el index 547762c..86a11cd 100644 --- a/tm-view.el +++ b/tm-view.el @@ -21,7 +21,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 6.72 1995/08/12 18:58:45 morioka Exp $") + "$Id: tm-view.el,v 6.73 1995/08/26 19:53:34 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -255,7 +255,7 @@ ;;; @@ quitting ;;; -(defun mime::viewer/quitting-method-for-gnus4 () +(defun mime-viewer/quitting-method-for-gnus4 () (mime-viewer/kill-buffer) (delete-other-windows) (gnus-article-show-summary) @@ -264,7 +264,7 @@ )) (defvar mime-viewer/quitting-method-alist - '((gnus-article-mode . mime::viewer/quitting-method-for-gnus4) + '((gnus-article-mode . mime-viewer/quitting-method-for-gnus4) (mime/show-message-mode . (lambda () (set-window-configuration -- 1.7.10.4