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>
6 ;;; and Steinar Bang <steinarb@falch.no>
8 ;;; Plese insert (load "tm-vm") in .vm or .emacs.
17 (defconst tm-vm/RCS-ID
18 "$Id: tm-vm.el,v 1.7 1994/12/08 14:48:55 morioka Exp $")
19 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
21 (define-key vm-mode-map "Z" 'tm-vm/view-message)
23 (set-alist 'mime/go-to-top-node-method-alist
25 'tm-vm/quit-view-message)
27 (set-alist 'mime/go-to-top-node-method-alist
29 'tm-vm/quit-view-message)
34 ;; If you don't use tiny-mime patch for VM (by RIKITAKE Kenji
35 ;; <kenji@reseau.toyonaka.osaka.jp>), please use following definition:
37 ;; (setq vm-summary-format "%n %*%a %-17.17F %-3.3m %2d %4l/%-5c, %I\"%UA\"\n")
38 ;; (defun vm-summary-function-A (m)
39 ;; (mime/decode-string (vm-su-subject m)))
45 (defun tm-vm/quit-view-message()
47 (let ((w (get-buffer-window mime/output-buffer-name)))
48 (if w (delete-window w)))
49 (vm-display vm-summary-buffer t
50 '(mime/exit-view-mode)
53 (goto-char (point-max))
55 (narrow-to-region (point)
57 (car vm-message-pointer)))
58 (goto-char (point-min))
59 (if vm-honor-page-delimiters
61 (select-window (get-buffer-window vm-summary-buffer)))
63 (defun tm-vm/view-message ()
64 "Decode and view MIME message for VM"
66 (vm-follow-summary-cursor)
67 (vm-select-folder-buffer)
68 (vm-check-for-killed-summary)
69 (vm-error-if-folder-empty)
70 (vm-display (current-buffer) t '(tm-vm/view-message)
71 '(tm-vm/view-mesage reading-message))
73 (goto-char (point-max))
75 (narrow-to-region (point) (vm-start-of (car vm-message-pointer)))
76 (goto-char (point-min))
77 (select-window (vm-get-buffer-window (current-buffer)))