e43e6da6e5442bceec03c2e0ad3edac397e2c7d1 — Bob Rogers a month ago 757e844
Set up <f3> to run vm on a specified alternate mail folder

* rgr-mail-hacks.el:
   + (rgr-mail-alternate-folder):  Designated alternate VM folder.
   + (rgr-invoke-vm-alt-folder):  Run VM on rgr-mail-alternate-folder.
* rgr-hacks.el:
   + (rgr-install-function-keys):  If there's a modgen-consulting.vm
     folder, bind <f3> to run rgr-invoke-vm-alt-folder on it.
2 files changed, 13 insertions(+), 1 deletions(-)

M rgr-hacks.el
M rgr-mail-hacks.el
M rgr-hacks.el => rgr-hacks.el +5 -1
@@ 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,

M rgr-mail-hacks.el => rgr-mail-hacks.el +8 -0
@@ 162,6 162,14 @@ main folder.  We try to set up the headers in the top window."
	    (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."
  (vm rgr-mail-alternate-folder))

;;;; Hook functions.

(defun rgr-mail-abbrevs-setup ()