tm 7.43.1.

[elisp/tm.git] / tm-vm.el

diff --git a/tm-vm.el b/tm-vm.el
index a9718ed..96c6df9 100644 (file)
--- a/tm-vm.el
+++ b/tm-vm.el
@@ -1,23 +1,25 @@
 ;;;
 ;;; tm-vm.el --- tm-MUA for VM
 ;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994 MASUTANI Yasuhiro
+;;; Copyright (C) 1995 WAKAMIYA Kenji
+;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
 ;;; 
-;;; Author:   MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
-;;;           Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
-;;;           MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;           Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
-;;;           Oscar Figueiredo <figueire@lspsun2.epfl.ch>
+;;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
+;;;         Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
+;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;;         Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;;         Oscar Figueiredo <figueire@lspsun2.epfl.ch>
 ;;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
 ;;;         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.39 $
+;;; Version: $Revision: 7.42 $
 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;;
-;;; Plese insert (require 'tm-vm) in your ~/.vm or ~/.emacs file.
+;;; Plese insert `(require 'tm-vm)' in your ~/.vm file.
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -39,7 +41,7 @@
 (require 'vm)
 
 (defconst tm-vm/RCS-ID
-  "$Id: tm-vm.el,v 7.39 1996/01/23 04:46:54 morioka Exp $")
+  "$Id: tm-vm.el,v 7.42 1996/02/09 00:31:21 morioka Exp $")
 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
 
 (define-key vm-mode-map "Z" 'tm-vm/view-message)
@@ -401,7 +403,9 @@ tm-vm uses `vm-select-message-hook', use this hook instead.")
   "Moves to the beginning of the current message."
   (interactive)
   (if (not (tm-vm/system-state))
-      (vm-beginning-of-message)
+      (progn
+       (setq this-command 'vm-beginning-of-message)
+       (vm-beginning-of-message))
     (vm-follow-summary-cursor)
     (vm-select-folder-buffer)
     (vm-check-for-killed-summary)
@@ -429,7 +433,9 @@ tm-vm uses `vm-select-message-hook', use this hook instead.")
   "Moves to the end of the current message."
   (interactive)
   (if (not (tm-vm/system-state))
-      (vm-end-of-message)
+      (progn
+       (setq this-command 'vm-end-of-message)
+       (vm-end-of-message))
     (vm-follow-summary-cursor)
     (vm-select-folder-buffer)
     (vm-check-for-killed-summary)
@@ -544,7 +550,7 @@ This function is called by `mime-viewer/quit' command via
            (save-excursion
              (set-buffer mime::preview/article-buffer)
              vm-summary-buffer))
-      (switch-to-buffer mime::preview/mother-buffer)
+      (switch-to-buffer mime::preview/article-buffer)
     (mime-viewer/kill-buffer)
     (vm-select-folder-buffer)
     (setq tm-vm/system-state nil))