From 0fdc0d836a0607cd574602d1da1abf11da3d917b Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Mar 1998 16:45:01 +0000 Subject: [PATCH] tm 7.103.5. --- ChangeLog | 26 ++++++++++++++++++++++++++ Makefile | 2 +- TM-MK | 7 +++++-- tm-play.el | 33 ++++++++++++++++++++++++++++++--- 4 files changed, 62 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 54cc7d6..710253e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,31 @@ 1997-02-06 MORIOKA Tomohiko + * tm: Version 7.103.5 was released. + * tm-vm: Version 8.8 was released. + +1997-02-06 MORIOKA Tomohiko + + * TM-MK (make-mime-setup): Call find-file in + `(let (vc-follow-symlinks) ...)' to avoid problem using + symbolic-link. (suggested by Takanori Saneto + ) + +1997-02-06 MORIOKA Tomohiko + + * tm-play.el (mime-view-text/plain-mode-map): New constant. + (mime-view-text/plain-mode): New function. + (mime-view-text/plain-exit): New command. + (mime-article/decode-caesar): Use function + `mime-view-text/plain-mode' instead of view-mode. + +1997-02-06 MORIOKA Tomohiko + + * tm-play.el (mime-article/decode-caesar): fixed problem about + window-configuration. + + +1997-02-06 MORIOKA Tomohiko + * tl: Version 7.61.17 was released. * tm: Version 7.103.4 was released. * tm-vm: Version 8.7 was released. diff --git a/Makefile b/Makefile index 670e82c..ee00ba2 100644 --- a/Makefile +++ b/Makefile @@ -2,7 +2,7 @@ # $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $ # -VERSION = 7.103.4 +VERSION = 7.103.5 SHELL = /bin/sh MAKE = make diff --git a/TM-MK b/TM-MK index 955f56f..12df338 100644 --- a/TM-MK +++ b/TM-MK @@ -1,6 +1,6 @@ ;;; -*-Emacs-Lisp-*- ;;; -;;; $Id: TM-MK,v 7.47 1996/12/20 14:34:59 morioka Exp $ +;;; $Id: TM-MK,v 7.48 1997/02/06 18:30:30 morioka Exp $ ;;; (defun config-tm () @@ -36,7 +36,10 @@ (defun make-mime-setup (lisp-dir tl-path bitmap-path mu-path mel-path tm-path) - (let ((buf (find-file "mime-setup.el.in"))) + (let ((buf + (let (vc-follow-symlinks) + (find-file "mime-setup.el.in") + ))) (goto-char (point-min)) (re-search-forward "^;;; Code:\n" nil t) (setq buffer-read-only nil) diff --git a/tm-play.el b/tm-play.el index dc85793..4dd054e 100644 --- a/tm-play.el +++ b/tm-play.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) -;; Version: $Id: tm-play.el,v 7.40 1997/02/04 11:04:07 morioka Exp $ +;; Version: $Id: tm-play.el,v 7.42 1997/02/06 17:31:09 morioka Exp $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -424,6 +424,25 @@ ;;; @ rot13-47 ;;; +(require 'view) + +(defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map)) +(define-key mime-view-text/plain-mode-map + "q" (function mime-view-text/plain-exit)) + +(defun mime-view-text/plain-mode () + "\\{mime-view-text/plain-mode-map}" + (setq buffer-read-only t) + (setq major-mode 'mime-view-text/plain-mode) + (setq mode-name "MIME-View text/plain") + (use-local-map mime-view-text/plain-mode-map) + ) + +(defun mime-view-text/plain-exit () + (interactive) + (kill-buffer (current-buffer)) + ) + (defun mime-article/decode-caesar (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) (cur-buf (current-buffer)) @@ -434,7 +453,14 @@ (mode major-mode) str) (setq str (buffer-substring beg end)) - (switch-to-buffer new-name) + (let ((pwin (or (get-buffer-window mother) + (get-largest-window))) + (buf (get-buffer-create new-name)) + ) + (set-window-buffer pwin buf) + (set-buffer buf) + (select-window pwin) + ) (setq buffer-read-only nil) (erase-buffer) (insert str) @@ -452,7 +478,8 @@ (goto-char (point-max)) (tm:caesar-region) ) - (view-mode) + (set-buffer-modified-p nil) + (mime-view-text/plain-mode) )) -- 1.7.10.4