2 files changed, 13 insertions(+), 1 deletions(-)

M rgr-hacks.el
M rgr-mail-hacks.el

@@ 646,7 646,11 @@ M-x buffer-menu)."
 	  ;; normal user.
 	  (global-set-key (kbd "<f1>") 'rgr-invoke-rmail)
 	  ;; (global-set-key '[kp-f1] 'rgr-invoke-rmail)
-	  (global-set-key (kbd "<f2>") 'v+q-mbox-status)))
+	  (global-set-key (kbd "<f2>") 'v+q-mbox-status)
+	  (let ((folder (expand-file-name "~/mail/modgen-consulting.vm")))
+	    (when (file-exists-p folder)
+	      (setq rgr-mail-alternate-folder folder)
+	      (global-set-key (kbd "<f3>") 'rgr-invoke-vm-alt-folder)))))
   (global-set-key (kbd "<f4>") 'rgr-insert-symbol-abbreviation)
   ;; [ssh on Windows sends kp-f1 through kp-f4 for f1 through f4.  f5 sends
   ;; nothing, f10 is intercepted, and the others seem to be normal.  -- rgr,

@@ 162,6 162,14 @@ main folder.  We try to set up the headers in the top window."
 	    (delete-other-windows)
 	    (rmail file-name-arg)))))
 
+(defvar rgr-mail-alternate-folder nil
+  "Designated alternate VM folder.")
+
+(defun rgr-invoke-vm-alt-folder ()
+  "Run VM on rgr-mail-alternate-folder."
+  (interactive)
+  (vm rgr-mail-alternate-folder))
+
 ;;;; Hook functions.
 
 (defun rgr-mail-abbrevs-setup ()