From 1e5992c4313da6a0fc541379554164ab9467cdbe Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 17:29:41 +0000 Subject: [PATCH] tm 7.50. --- ChangeLog | 19 +++++++++++++++++++ Makefile | 2 +- TM-CFG | 4 ++-- gnus/s-path | 5 ++++- mime-setup.el.in | 3 ++- tm-bbdb.el | 6 +++--- tm-edit.el | 24 ++++++++++++------------ tm-file.el | 6 ++++-- tm-html.el | 4 +++- tm-mail.el | 6 +++--- tm-mule.el | 3 ++- tm-rmail.el | 6 +++--- tm-vm.el | 8 ++++---- 13 files changed, 62 insertions(+), 34 deletions(-) diff --git a/ChangeLog b/ChangeLog index 571e96e..97d3eec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,22 @@ +Tue Apr 16 18:26:13 1996 MORIOKA Tomohiko + + * tm: Version 7.50 was released. + + * tm-file.el, tm-bbdb.el, tm-rmail.el, tm-mail.el, tm-vm.el: + KOBAYASHI Shuhei's address was changed. + +Tue Apr 16 14:32:43 1996 MORIOKA Tomohiko + + * tm-edit.el: use `running-xemacs' to check XEmacs. + (mime-editor/normalize-body): nil check for encoded result. + + * tm-mule.el (mime/charset-coding-system-alist): add ``KOI8-R'' + +Tue Apr 16 12:42:35 1996 MORIOKA Tomohiko + + * mime-setup.el.in: insert `;;; End:'. (cf. [tm-ja:1731]) + + Mon Apr 15 09:10:01 1996 MORIOKA Tomohiko * tl: Version 7.19.1 was released. diff --git a/Makefile b/Makefile index a01026e..798a238 100644 --- a/Makefile +++ b/Makefile @@ -45,7 +45,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els tl/*.el \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.49.tar.gz +TARFILE = tm7.50.tar.gz elc: $(EMACS) $(FLAGS) -l inst-tm -f compile-tm diff --git a/TM-CFG b/TM-CFG index 56143ac..9736aee 100644 --- a/TM-CFG +++ b/TM-CFG @@ -42,8 +42,8 @@ ;;; ;; Please specify install path prefix. -(setq PREFIX "~/") ; install to you home directory -;;(setq PREFIX "/usr/local/") ; install to shared directory +;;(setq PREFIX "~/") ; install to you home directory +(setq PREFIX "/usr/local/") ; install to shared directory ;; Please specify tm package prefix [optional] (setq TM_PACKAGE_PREFIX "") diff --git a/gnus/s-path b/gnus/s-path index 12a2249..02dbc04 100644 --- a/gnus/s-path +++ b/gnus/s-path @@ -8,8 +8,11 @@ ;; please edit +;; It is for latest September Gnus. +(add-path (expand-file-name "lisp/" (get-latest-path "sgnus"))) + ;; It is relative style. Added path is searched from load-path. -(add-path "sgnus-0.69/lisp/" 'all-paths) +;; (add-path "sgnus-0.69/lisp/" 'all-paths) ;; It is absolute style. ;; (add-path "/usr/local/share/emacs/site-lisp/sgnus/lisp/") diff --git a/mime-setup.el.in b/mime-setup.el.in index fe6ee8a..cc6cc8f 100644 --- a/mime-setup.el.in +++ b/mime-setup.el.in @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: mime-setup.el.in,v 7.19 1996/04/13 04:04:12 morioka Exp $ +;;; $Id: mime-setup.el.in,v 7.20 1996/04/16 12:42:35 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -153,3 +153,4 @@ ;;; ;;; Local Variables: ;;; mode: emacs-lisp +;;; End: diff --git a/tm-bbdb.el b/tm-bbdb.el index 393e459..0d7e896 100644 --- a/tm-bbdb.el +++ b/tm-bbdb.el @@ -4,11 +4,11 @@ ;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei ;;; Copyright (C) 1996 Artur Pioro ;;; -;;; Author: KOBAYASHI Shuhei +;;; Author: KOBAYASHI Shuhei ;;; Artur Pioro ;;; modified by Pekka Marjola -;;; Maintainer: MORIOKA Tomohiko -;;; Version: $Id: tm-bbdb.el,v 7.4 1996/03/26 09:17:37 morioka Exp $ +;;; Maintainer: KOBAYASHI Shuhei +;;; Version: $Id: tm-bbdb.el,v 7.5 1996/04/16 18:19:48 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB ;;; ;;; This file is part of tm (Tools for MIME). diff --git a/tm-edit.el b/tm-edit.el index a8647df..90b69f6 100644 --- a/tm-edit.el +++ b/tm-edit.el @@ -8,7 +8,7 @@ ;;; MORIOKA Tomohiko ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1994/08/21 renamed from mime.el -;;; Version: $Revision: 7.49 $ +;;; Version: $Revision: 7.50 $ ;;; Keywords: mail, news, MIME, multimedia, multilingual ;;; ;;; This file is part of tm (Tools for MIME). @@ -122,7 +122,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: tm-edit.el,v 7.49 1996/04/11 00:39:12 morioka Exp $") + "$Id: tm-edit.el,v 7.50 1996/04/16 14:32:43 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -626,8 +626,7 @@ Tspecials means any character that matches with it in header must be quoted.") ;;; modified by Steven L. Baur ;;; 1995/12/6 (c.f. [tm-en:209]) -(if (and (string-match "XEmacs\\|Lucid" emacs-version) - (not (boundp 'mime-editor/popup-menu-for-xemacs))) +(if (and running-xemacs (not (boundp 'mime-editor/popup-menu-for-xemacs))) (setq mime-editor/popup-menu-for-xemacs (append '("MIME Commands" "---") (mapcar (function (lambda (item) @@ -759,12 +758,13 @@ User customizable variables (not documented all of them): (error "You are already editing a MIME message.") (setq mime/editor-mode-flag t) ;; Remember old key bindings. - (if (string-match "XEmacs\\|Lucid" emacs-version) + (if running-xemacs nil - (make-local-variable 'mime/editor-mode-old-local-map) - (setq mime/editor-mode-old-local-map (current-local-map)) - ;; Add MIME commands to current local map. - (use-local-map (copy-keymap (current-local-map)))) + (make-local-variable 'mime/editor-mode-old-local-map) + (setq mime/editor-mode-old-local-map (current-local-map)) + ;; Add MIME commands to current local map. + (use-local-map (copy-keymap (current-local-map))) + ) (if (not (lookup-key (current-local-map) mime-prefix)) (define-key (current-local-map) mime-prefix mime-editor/mime-map)) @@ -778,7 +778,7 @@ User customizable variables (not documented all of them): ;; welcome. ;; modified by Pekka Marjola ;; 1995/9/5 (c.f. [tm-eng:69]) - (cond ((string-match "XEmacs\\|Lucid" emacs-version) + (cond (running-xemacs (mime-editor/define-menu-for-xemacs)) ((string-match "^19\\." emacs-version) (mime-editor/define-menu-for-emacs19) @@ -821,7 +821,7 @@ just return to previous mode." (mime-editor/translate-buffer))) ;; Restore previous state. (setq mime/editor-mode-flag nil) - (cond ((string-match "XEmacs\\|Lucid" emacs-version) + (cond (running-xemacs ;; mime-prefix only defined if binding was nil (if (eq (lookup-key (current-local-map) mime-prefix) mime-editor/mime-map) @@ -1972,7 +1972,7 @@ Content-Transfer-Encoding: 7bit (encoded (mime-editor/encode-string (cons charset encoding) body)) ) - (if (not (string-equal body encoded)) + (if (and encoded (not (string-equal body encoded))) (progn (goto-char beg) (delete-region beg end) diff --git a/tm-file.el b/tm-file.el index f5cf4fa..0517942 100644 --- a/tm-file.el +++ b/tm-file.el @@ -5,9 +5,9 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko -;;; modified by KOBAYASHI Shuhei +;;; modified by KOBAYASHI Shuhei ;;; Version: -;;; $Id: tm-file.el,v 7.4 1996/03/25 12:48:13 morioka Exp $ +;;; $Id: tm-file.el,v 7.5 1996/04/16 18:21:23 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). @@ -94,3 +94,5 @@ ;;; (provide 'tm-file) + +;;; end of tm-file.el diff --git a/tm-html.el b/tm-html.el index 0f832fc..4a3c590 100644 --- a/tm-html.el +++ b/tm-html.el @@ -8,7 +8,7 @@ ;;; Created: 1995/9/14 ;;; based on tm-latex.el by OKABE Yasuo ;;; Version: -;;; $Id: tm-html.el,v 7.4 1995/12/14 15:33:55 morioka Exp $ +;;; $Id: tm-html.el,v 7.5 1996/04/16 18:22:51 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, HTML, WWW ;;; ;;; This file is part of tm (Tools for MIME). @@ -70,3 +70,5 @@ ;;; (provide 'tm-html) + +;;; end of tm-html.el diff --git a/tm-mail.el b/tm-mail.el index df67ad3..b9cae54 100644 --- a/tm-mail.el +++ b/tm-mail.el @@ -3,12 +3,12 @@ ;;; ;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei ;;; -;;; Author: KOBAYASHI Shuhei +;;; Author: KOBAYASHI Shuhei ;;; modified by MORIOKA Tomohiko ;;; and Neal Becker -;;; Maintainer: MORIOKA Tomohiko +;;; Maintainer: KOBAYASHI Shuhei ;;; Created: 1995/11/27 -;;; Version: $Id: tm-mail.el,v 5.0 1996/04/14 00:17:05 morioka Exp $ +;;; Version: $Id: tm-mail.el,v 6.0 1996/04/16 18:24:02 morioka Exp $ ;;; Keywords: mail, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). diff --git a/tm-mule.el b/tm-mule.el index 9c1a941..61d81e2 100644 --- a/tm-mule.el +++ b/tm-mule.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: tm-mule.el,v 7.8 1996/02/12 16:02:05 morioka Exp $ +;;; $Id: tm-mule.el,v 7.9 1996/04/16 13:42:44 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -46,6 +46,7 @@ ("ISO-8859-3" . *iso-8859-3*) ("ISO-8859-4" . *iso-8859-4*) ("ISO-8859-5" . *iso-8859-5*) + ("KOI8-R" . *koi8*) ("ISO-8859-7" . *iso-8859-7*) ("ISO-8859-8" . *iso-8859-8*) ("ISO-8859-9" . *iso-8859-9*) diff --git a/tm-rmail.el b/tm-rmail.el index 3e617dc..d6a40b6 100644 --- a/tm-rmail.el +++ b/tm-rmail.el @@ -3,10 +3,10 @@ ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko -;;; modified by KOBAYASHI Shuhei +;;; modified by KOBAYASHI Shuhei ;;; Created: 1994/8/30 ;;; Version: -;;; $Revision: 7.23 $ +;;; $Revision: 7.24 $ ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -40,7 +40,7 @@ ;;; (defconst tm-rmail/RCS-ID - "$Id: tm-rmail.el,v 7.23 1996/01/23 04:49:16 morioka Exp $") + "$Id: tm-rmail.el,v 7.24 1996/04/16 18:24:58 morioka Exp $") (defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID)) (defvar tm-rmail/decode-all nil) diff --git a/tm-vm.el b/tm-vm.el index acc728c..3e6479c 100644 --- a/tm-vm.el +++ b/tm-vm.el @@ -9,14 +9,14 @@ ;;; Author: MASUTANI Yasuhiro ;;; Kenji Wakamiya ;;; MORIOKA Tomohiko -;;; Shuhei KOBAYASHI +;;; Shuhei KOBAYASHI ;;; Oscar Figueiredo ;;; modified by SHIONO Jun'ichi ;;; ISHIHARA Akito ;;; Rob Kooper -;;; Maintainer: Shuhei KOBAYASHI +;;; Maintainer: KOBAYASHI Shuhei ;;; Created: 1994/10/29 -;;; Version: $Revision: 7.50 $ +;;; Version: $Revision: 7.51 $ ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -43,7 +43,7 @@ (require 'vm) (defconst tm-vm/RCS-ID - "$Id: tm-vm.el,v 7.50 1996/04/14 00:21:21 morioka Exp $") + "$Id: tm-vm.el,v 7.51 1996/04/16 18:26:13 morioka Exp $") (defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) (define-key vm-mode-map "Z" 'tm-vm/view-message) -- 1.7.10.4