🚀 go-pugleaf

I posted a reply to the "keep my window configuration" question.  My
technique uses recursive-edit.  Turns out that vm takes one optional
argument, but my replacement didn't, and vm-visit-folder (which I
hardly ever use) calls vm with that argument.  The fixed code is
below.  I haven't evaluated the other suggestions (using save-window-
configuration?) so I can't say whether this idea is better than the
others.

   (defun quit-readmail ()
     "Exit VM, and then exit a recursive edit."
     (interactive)
     (vm-quit)
     (exit-recursive-edit)
   ) ; quit-readmail
   
   (if (not (fboundp 'my-old-vm))
       (progn
         (load "vm")
         (fset 'my-old-vm (symbol-function 'vm))
       )
   )
   
   (defun vm (&optional arg)
     "Read mail in a recursive edit in one window, restoring the old
   window pattern at the end of the recursive edit.  See the description
   of my-old-vm for the original vm function.  Like old vm, takes one
   optional ARG."
     (interactive)
     (save-window-excursion
       (delete-other-windows)
       (save-excursion
         (end-rec-edit-message "get other windows back")
         (my-old-vm arg)
         (define-key vm-mode-map "q" 'quit-readmail)
         (recursive-edit)
       )
     )
   ) ; vm

--
   "Of course he has a knife.  We all have knives.  It's 1183, and we're
   all barbarians."
Tim McDaniel                 Applied Dynamics Int'l.; Ann Arbor, Michigan, USA
Internet: mcdaniel@adi.com                UUCP: {uunet,sharkey}!amara!mcdaniel