🚀 go-pugleaf

VM 4.41, Epoch 3.2

I've just switched to VM from RMAIL and find the way successive calls to
vm opens multiple buffers on a single mailbox annoying - attached is a
fix, but are there plans to enhance vm to (optionally?) provide this
functionality?  (I find fseting functions distasteful...).

Thanks,
Steve

;;; $Id: sdt-vm.el,v 1.2 92/01/24 10:41:17 tynor Exp $

;; Functions to make `M-x vm' reuse the folder if it already exists (i.e. make
;; `M-x vm' work more like `M-x rmail'
;;
;; Steve Tynor
;; January 1992

(defun sdt:make-vm-reuse-folder ()
  "Make `vm' invoke `sdt:vm' - only the first invocation has any effect.
See `sdt:vm' for details."
  (cond ((not (fboundp 'sdt:original-vm))
	 (fset 'sdt:original-vm (symbol-function 'vm))
	 (fset 'vm (symbol-function 'sdt:vm))
	 ))
  )

(defun sdt:vm (&optional folder)
  "Like the default function `vm', but if the primary-inbox has already been 
visited, just revisits it and checks for new mail (same behavior as RMAIL).
This prevents multiple buffers of the primary-inbox."
  (interactive)
  (let ((buf (get-buffer (or folder
			     (file-name-nondirectory vm-primary-inbox)))))
    (cond (buf
	   (switch-to-buffer buf)
	   (vm-get-new-mail))
	  (t 
	   (sdt:original-vm folder))
	  )
    )
  )