+Sat Feb 23 17:55:12 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+ * 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 <marjola@bilbo.ntc.nokia.com>
+
+ * 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 <figueire@lspsun2.epfl.ch>
+
+ * 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.
+
+\f
Wed Feb 14 09:15:36 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* 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.
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
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.43.1.tar.gz
+TARFILE = tm7.44.tar.gz
18:
-@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
tm-edit ¤Ï GNU Emacs ¤ÇÆ°ºî¤¹¤ëÈÆÍÑŪ¤Ê MIME viewer ¤Ç¤¹¡£
-tm-edit ¤Ï GNUS ¤Îºî¼Ô¤È¤·¤Æ¤âÍ̾¤Ê UMEDA Masanobu
+tm-edit ¤Ï GNUS ¤Îºî¼Ô¤È¤·¤Æ¤âÍ̾¤Ê ÇßÅÄ À¯¿®
<umerin@@mse.kyutech.ac.jp> ¤µ¤ó¤¬½ñ¤«¤ì¤¿ mime.el ¤ò´ð¤Ë
@itemize
--- /dev/null
+Fri Feb 23 18:26:23 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-html: If `TM_WWW_BROWSER' indicates Netscape, check running
+ Netscape process and use it if it is running. (Thanks to Kai
+ Grossjohann <grossjoh@ls6.informatik.uni-dortmund.de>)
+
+Thu Feb 22 18:41:57 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-html: rm is executed in trap.
+
+Thu Feb 22 18:20:14 1996 Kai Grossjohann <grossjoh@ls6.informatik.uni-dortmund.de>
+
+ * tm-html: enclose `$3' by double quote
#!/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
+Fri Feb 22 17:58:27 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.49 was released.
+
+Thu Feb 22 04:58:10 1996 KON-NO Yoichi <itokon@ssel.toshiba.co.jp>
+
+ * tm-mh-e.el (mh-display-msg): fixed problem about BBDB
+ (cf. [tm-ja:1593])
+
+\f
Tue Feb 13 07:19:09 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+ * 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'.
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:
;;; modified by YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; 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).
;;;
(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))
))
(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
;;;
;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; 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).
(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))))
))
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; 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).
;;;
(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))
(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
;;;
(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
\\[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:
(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.
(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 <pema@niksula.hut.fi>
- ;; 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))
;;; and ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
;;; Maintainer: Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; 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).
(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)
(save-window-excursion
(mime/viewer-mode)
(goto-char (point-min))
+ ;; 1996/2/16, fixed by
+ ;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
+ ;; 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))
))
projects / elisp / tm.git / commitdiff