From: morioka <morioka>
Date: Tue, 10 Mar 1998 16:45:01 +0000 (+0000)
Subject: tm 7.103.5.
X-Git-Tag: tm-7_103_5~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0fdc0d836a0607cd574602d1da1abf11da3d917b;p=elisp%2Ftm.git

tm 7.103.5.
---

diff --git a/ChangeLog b/ChangeLog
index 54cc7d6..710253e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,31 @@
 1997-02-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
+	* tm: Version 7.103.5 was released.
+	* tm-vm: Version 8.8 was released.
+
+1997-02-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* TM-MK (make-mime-setup): Call find-file in
+ 	`(let (vc-follow-symlinks) ...)' to avoid problem using
+	symbolic-link. (suggested by Takanori Saneto
+	<sanewo@ba2.so-net.or.jp>)
+
+1997-02-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* 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  <morioka@jaist.ac.jp>
+
+	* tm-play.el (mime-article/decode-caesar): fixed problem about
+ 	window-configuration.
+
+
+1997-02-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
 	* 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 <morioka@jaist.ac.jp>
 ;; 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)
     ))