From 408b03e1ab2d39df83ec2a80b3bc0591ba564c8e Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 15:49:37 +0000 Subject: [PATCH] tm 7.44. --- ChangeLog | 28 ++++++++++++++++++++++++++++ Makefile | 4 ++-- doc/tm-edit=ja.texi | 4 ++-- methods/ChangeLog | 13 +++++++++++++ methods/tm-html | 36 +++++++++++++++++++++++++----------- mh-e/ChangeLog | 12 ++++++++++++ mh-e/Makefile | 2 +- mh-e/tm-mh-e.el | 7 +++++-- tm-bbdb.el | 4 ++-- tm-edit.el | 37 +++++++++++++++++++------------------ tm-vm.el | 11 +++++++++-- 11 files changed, 118 insertions(+), 40 deletions(-) create mode 100644 methods/ChangeLog diff --git a/ChangeLog b/ChangeLog index 64b929e..04c22ef 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,35 @@ +Sat Feb 23 17:55:12 1996 Morioka Tomohiko + + * tl: Version 7.11.2 was released. + * tm: Version 7.44 was released. + * tm/mh-e: Version 7.49 was released. + +Fri Feb 23 03:43:22 1996 Shuhei KOBAYASHI + + * tm-bbdb.el (bbdb-extract-field-value): use + `tm:bbdb-extract-field-value' instead of `rfc822/get-field-body'. + (cf. [tm-en:340]) + +Fri Feb 22 16:45:37 1996 Pekka Marjola + + * tm-edit.el: As of tm7.43.1/September Gnus 0.39, tm-edit still + does not properly restore keymap in XEmacs. (cf. [tm-en:337]) + +Fri Feb 16 08:53:13 1996 Oscar Figueiredo + + * tm-vm.el (tm-vm/preview-current-message): XEmacs + highlight-headers package to fontify MIME preview buffers in the + same way normal VM buffers are. This makes MIME preview even more + transparent for VM users and also has the benefit to display the + XFace in the same place as in normal VM with no additional code + nor effort. + + Wed Feb 14 09:15:36 1996 Morioka Tomohiko * tl: Version 7.11.1 was released. * tm: Version 7.43.1 was released. + * tm/mh-e: Version 7.48 was released. * tm/gnus: Version 7.45 was released. * mime-setup.el: lambda functions are defined by defun. diff --git a/Makefile b/Makefile index 97bb6d8..fcddd82 100644 --- a/Makefile +++ b/Makefile @@ -22,7 +22,7 @@ TM_FILES = tm/README.en tm/ChangeLog \ tm/tm-edit.el tm/signature.el \ tm/tm-setup.el tm/mime-setup.el \ tm/sc-setup.el \ - tm/methods/tm* \ + tm/methods/tm* tm/methods/ChangeLog \ tm/src/*.c \ tm/doc/Makefile tm/doc/*.ol tm/doc/*.tex \ tm/doc/*.texi tm/old-logs/*.en tm/old-logs/*.ja @@ -40,7 +40,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.43.1.tar.gz +TARFILE = tm7.44.tar.gz 18: diff --git a/doc/tm-edit=ja.texi b/doc/tm-edit=ja.texi index 95f1932..bf0d7fd 100644 --- a/doc/tm-edit=ja.texi +++ b/doc/tm-edit=ja.texi @@ -1,4 +1,4 @@ -@c $Id: tm-edit=ja.texi,v 1.1 1996/01/23 05:04:48 morioka Exp $ +@c $Id: tm-edit=ja.texi,v 2.0 1996/02/14 21:05:37 morioka Exp $ @node tm-edit, encoded-word, tm-view, Top @comment node-name, next, previous, up @@ -7,7 +7,7 @@ tm-edit ¤Ï GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer ¤Ç¤¹¡£ -tm-edit ¤Ï GNUS ¤Îºî¼Ô¤È¤·¤Æ¤âͭ̾¤Ê UMEDA Masanobu +tm-edit ¤Ï GNUS ¤Îºî¼Ô¤È¤·¤Æ¤âͭ̾¤Ê ÇßÅÄ À¯¿® ¤µ¤ó¤¬½ñ¤«¤ì¤¿ mime.el ¤ò´ð¤Ë @itemize diff --git a/methods/ChangeLog b/methods/ChangeLog new file mode 100644 index 0000000..f6658f3 --- /dev/null +++ b/methods/ChangeLog @@ -0,0 +1,13 @@ +Fri Feb 23 18:26:23 1996 Morioka Tomohiko + + * tm-html: If `TM_WWW_BROWSER' indicates Netscape, check running + Netscape process and use it if it is running. (Thanks to Kai + Grossjohann ) + +Thu Feb 22 18:41:57 1996 Morioka Tomohiko + + * tm-html: rm is executed in trap. + +Thu Feb 22 18:20:14 1996 Kai Grossjohann + + * tm-html: enclose `$3' by double quote diff --git a/methods/tm-html b/methods/tm-html index 2479720..6f9dcbd 100755 --- a/methods/tm-html +++ b/methods/tm-html @@ -1,30 +1,44 @@ #!/bin/sh +# +# $Id: tm-html,v 3.0 1996/02/23 18:26:23 morioka Exp $ +# + if [ "$TM_TMP_DIR" = "" ]; then - TM_TMP_DIR=/tmp - export TM_TMP_DIR + TM_TMP_DIR=/tmp + export TM_TMP_DIR fi if [ "$TM_WWW_BROWSER" = "" ]; then - TM_WWW_BROWSER=netscape - export TM_WWW_BROWSER + TM_WWW_BROWSER=netscape + export TM_WWW_BROWSER fi if [ "$5" = "" ]; then - filename="$TM_TMP_DIR/mime$$.html" + filename="$TM_TMP_DIR/mime$$.html" else - filename="$TM_TMP_DIR/$5" + filename="$TM_TMP_DIR/$5" fi echo "$2; $3 -> $filename" -tmdecode $3 $1 $filename +tmdecode "$3" $1 $filename case "$4" in "play") + if `echo $TM_WWW_BROWSER | grep -s netscape`; then + echo netscape + if [ -h $HOME/.netscape/lock ]; then + netscape -remote "openURL(file:$filename,new-window)" + else + netscape $filename + fi + else + echo not netscape $TM_WWW_BROWSER $filename - /bin/rm $filename - ;; + fi + trap 'rm -f $filename' 0 1 2 3 13 15 + ;; "extract") - echo "extract to $filename" - ;; + echo "extract to $filename" + ;; esac diff --git a/mh-e/ChangeLog b/mh-e/ChangeLog index f8d4dec..318c9d6 100644 --- a/mh-e/ChangeLog +++ b/mh-e/ChangeLog @@ -1,5 +1,17 @@ +Fri Feb 22 17:58:27 1996 Morioka Tomohiko + + * tm/mh-e: Version 7.49 was released. + +Thu Feb 22 04:58:10 1996 KON-NO Yoichi + + * tm-mh-e.el (mh-display-msg): fixed problem about BBDB + (cf. [tm-ja:1593]) + + Tue Feb 13 07:19:09 1996 Morioka Tomohiko + * tm/mh-e: Version 7.48 was released. + * tm-mh-e.el (tm-mh-e/content-header-filter): Code for hilit19 was deleted. Please set to `mime-viewer/content-header-filter-hook'. diff --git a/mh-e/Makefile b/mh-e/Makefile index 010a5e2..b2a1e3e 100644 --- a/mh-e/Makefile +++ b/mh-e/Makefile @@ -24,7 +24,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.44.tar +TARFILE = tm-mh-e7.49.tar elc: diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el index 1774426..fcb4e1b 100644 --- a/mh-e/tm-mh-e.el +++ b/mh-e/tm-mh-e.el @@ -9,7 +9,7 @@ ;;; modified by YAMAOKA Katsumi ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1993/11/21 (obsolete mh-e-mime.el) -;;; Version: $Revision: 7.48 $ +;;; Version: $Revision: 7.49 $ ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual ;;; ;;; This file is part of tm (Tools for MIME). @@ -47,7 +47,7 @@ ;;; (defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 7.48 1996/02/13 07:19:09 morioka Exp $") + "$Id: tm-mh-e.el,v 7.49 1996/02/22 17:56:49 morioka Exp $") (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) @@ -159,6 +159,9 @@ system MH lib directory.") )) (or (eq buffer-undo-list t) ;don't save undo info for prev msgs (setq buffer-undo-list nil)) +;;; Added by itokon (02/19/96) + (setq buffer-file-name msg-filename) +;;; (set-mark nil) (setq mode-line-buffer-identification (list (format mh-show-buffer-mode-line-buffer-id diff --git a/tm-bbdb.el b/tm-bbdb.el index 251ab7f..cb5a679 100644 --- a/tm-bbdb.el +++ b/tm-bbdb.el @@ -5,7 +5,7 @@ ;;; ;;; Author: KOBAYASHI Shuhei ;;; Maintainer: MORIOKA Tomohiko -;;; Version: $Id: tm-bbdb.el,v 4.0 1996/01/26 08:20:29 morioka Exp $ +;;; Version: $Id: tm-bbdb.el,v 5.0 1996/02/23 17:44:53 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB ;;; ;;; This file is part of tm (Tools for MIME). @@ -69,7 +69,7 @@ (fset 'tm:bbdb-extract-field-value (symbol-function 'bbdb-extract-field-value)) (defun bbdb-extract-field-value (field) - (let ((value (rfc822/get-field-body field))) + (let ((value (tm:bbdb-extract-field-value field))) (and value (mime-eword/decode-string value)))) )) diff --git a/tm-edit.el b/tm-edit.el index 2a15e49..332d0b8 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.43 $ +;;; Version: $Revision: 7.44 $ ;;; 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.43 1996/02/09 06:57:20 morioka Exp $") + "$Id: tm-edit.el,v 7.44 1996/02/23 16:16:30 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -520,6 +520,8 @@ Tspecials means any character that matches with it in header must be quoted.") (format "1.0 (generated by tm-edit %s)" mime-editor/version) "MIME version number.") +(defconst mime-editor/mime-map (make-sparse-keymap) + "Keymap for MIME commands.") ;;; @ keymap and menu ;;; @@ -554,6 +556,8 @@ Tspecials means any character that matches with it in header must be quoted.") (define-key keymap "?" 'mime-editor/help) )) +(mime-editor/define-keymap mime-editor/mime-map) + (defconst mime-editor/menu-title "MIME-Edit") (defconst mime-editor/menu-list @@ -681,7 +685,7 @@ Following commands are available in addition to major mode commands: \\[mime-editor/insert-key] insert PGP public key. \\[mime-editor/preview-message] preview editing MIME message. \\[mime-editor/exit] exit and translate into a MIME compliant message. -\\[mime-editor/maybe-translate] exit, translate and run the original command. +\\[mime-editor/maybe-translate] exit and translate if in MIME mode, then split. \\[mime-editor/help] show this help. Additional commands are available in some major modes: @@ -752,13 +756,14 @@ 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) + 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))) + (use-local-map (copy-keymap (current-local-map)))) (if (not (lookup-key (current-local-map) mime-prefix)) - (define-key (current-local-map) mime-prefix (make-sparse-keymap))) - (mime-editor/define-keymap (lookup-key (current-local-map) mime-prefix)) + (define-key (current-local-map) mime-prefix mime-editor/mime-map)) ;; Define menu. Menus for other emacs implementations are ;; welcome. @@ -807,18 +812,14 @@ just return to previous mode." (mime-editor/translate-buffer))) ;; Restore previous state. (setq mime/editor-mode-flag nil) - (use-local-map mime/editor-mode-old-local-map) - - ;; modified by Pekka Marjola - ;; 1995/9/5 (c.f. [tm-eng:69]) - (if (string-match "XEmacs\\|Lucid" emacs-version) - (progn - (delete-menu-item (list mime-editor/menu-title)) - ; should rather be const - ;; (while mime-editor/xemacs-old-bindings - ;; (eval (pop mime-editor/xemacs-old-bindings))) - (local-unset-key mime-prefix))) - ;; end + (cond ((string-match "XEmacs\\|Lucid" emacs-version) + ;; mime-prefix only defined if binding was nil + (if (eq (lookup-key (current-local-map) mime-prefix) + mime-editor/mime-map) + (define-key (current-local-map) mime-prefix nil)) + (delete-menu-item (list mime-editor/menu-title))) + (t + (use-local-map mime/editor-mode-old-local-map))) (setq selective-display mime/editor-mode-old-selective-display) (set-buffer-modified-p (buffer-modified-p)) diff --git a/tm-vm.el b/tm-vm.el index 96c6df9..aaee439 100644 --- a/tm-vm.el +++ b/tm-vm.el @@ -14,7 +14,7 @@ ;;; and ISHIHARA Akito ;;; Maintainer: Shuhei KOBAYASHI ;;; Created: 1994/10/29 -;;; Version: $Revision: 7.42 $ +;;; Version: $Revision: 7.43 $ ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -41,7 +41,7 @@ (require 'vm) (defconst tm-vm/RCS-ID - "$Id: tm-vm.el,v 7.42 1996/02/09 00:31:21 morioka Exp $") + "$Id: tm-vm.el,v 7.43 1996/02/23 16:23:47 morioka Exp $") (defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) (define-key vm-mode-map "Z" 'tm-vm/view-message) @@ -221,6 +221,13 @@ tm-vm uses `vm-select-message-hook', use this hook instead.") (save-window-excursion (mime/viewer-mode) (goto-char (point-min)) + ;; 1996/2/16, fixed by + ;; Oscar Figueiredo + ;; Highlight message (and display XFace if supported) + (if (or vm-highlighted-header-regexp + (and (vm-xemacs-p) vm-use-lucid-highlighting)) + (vm-highlight-headers)) + ;; (narrow-to-region (point) (search-forward "\n\n" nil t)) )) -- 1.7.10.4