;;;
;;; tm-vm.el : tm-MUA for vm
;;;
;;; by MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
;;;
;;; Plese insert (load "tm-vm") in .vm or .emacs.
;;;

(define-key vm-mode-map "Z" 'tm-vm/view-message)

(require 'tl-list)
(require 'tm-view)

(setq mime/go-to-top-node-method-alist
      (put-alist 'vm-mode
		 (function
		  (lambda ()
		    (mime/exit-view-mode)
		    (let ((w (get-buffer-window mime/output-buffer-name)))
		      (if w (delete-window w)))
		    (vm-display vm-summary-buffer t
				'(mime/exit-view-mode)
				'(this-command))
		    (vm-widen-page)
		    (goto-char (point-max))
		    (widen)
		    (narrow-to-region (point)
				      (vm-vheaders-of
				       (car vm-message-pointer)))
		    (goto-char (point-min))
		    (if vm-honor-page-delimiters
			(vm-narrow-to-page))
		    (select-window (get-buffer-window vm-summary-buffer))
		    ))
		 mime/go-to-top-node-method-alist))

(defun tm-vm/view-message ()
  "Decode and view MIME message for VM"
  (interactive)
  (vm-follow-summary-cursor)
  (vm-select-folder-buffer)
  (vm-check-for-killed-summary)
  (vm-error-if-folder-empty)
  (vm-display (current-buffer) t '(tm-vm/view-message)
              '(tm-vm/view-mesage reading-message))
  (vm-widen-page)
  (goto-char (point-max))
  (widen)
  (narrow-to-region (point) (vm-start-of (car vm-message-pointer)))
  (goto-char (point-min))
  (select-window (vm-get-buffer-window (current-buffer)))
  (mime/viewer-mode))