2 ;;; tm-vm.el : tm-MUA for vm
4 ;;; by MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
5 ;;; modified by SHIONO <jun@p5.nm.fujitsu.co.jp>
7 ;;; Plese insert (load "tm-vm") in .vm or .emacs.
15 (defconst tm-vm/RCS-ID
16 "$Id: tm-vm.el,v 1.5 1994/11/01 16:30:12 morioka Exp $")
17 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
19 (define-key vm-mode-map "Z" 'tm-vm/view-message)
21 (set-alist 'mime/go-to-top-node-method-alist
23 'tm-vm/quit-view-message)
25 (set-alist 'mime/go-to-top-node-method-alist
27 'tm-vm/quit-view-message)
29 (defun tm-vm/quit-view-message()
31 (let ((w (get-buffer-window mime/output-buffer-name)))
32 (if w (delete-window w)))
33 (vm-display vm-summary-buffer t
34 '(mime/exit-view-mode)
37 (goto-char (point-max))
39 (narrow-to-region (point)
41 (car vm-message-pointer)))
42 (goto-char (point-min))
43 (if vm-honor-page-delimiters
45 (select-window (get-buffer-window vm-summary-buffer)))
47 (defun tm-vm/view-message ()
48 "Decode and view MIME message for VM"
50 (vm-follow-summary-cursor)
51 (vm-select-folder-buffer)
52 (vm-check-for-killed-summary)
53 (vm-error-if-folder-empty)
54 (vm-display (current-buffer) t '(tm-vm/view-message)
55 '(tm-vm/view-mesage reading-message))
57 (goto-char (point-max))
59 (narrow-to-region (point) (vm-start-of (car vm-message-pointer)))
60 (goto-char (point-min))
61 (select-window (vm-get-buffer-window (current-buffer)))