From bf5c9902d523a708dffac1a5a23a462519b2b2af Mon Sep 17 00:00:00 2001 From: Bob Rogers Date: Sat, 2 Mar 2024 16:44:26 -0800 Subject: [PATCH] Ajdust the f3 mail folder binding * emacs-init.el: + Move the f3 mail folder binding here, where it belongs, and change it to visit /modgen/rogers/mail/morgantown.vm instead. * rgr-hacks.el: + (rgr-install-function-keys): Remove the f3 key binding, add "lexical-binding: t" to the file. --- emacs-init.el | 6 ++++++ rgr-hacks.el | 7 ++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/emacs-init.el b/emacs-init.el index bdc5785..f646f88 100644 --- a/emacs-init.el +++ b/emacs-init.el @@ -176,6 +176,12 @@ but it is usually sufficient to take the default.") (setq mail-signature nil) (if (fboundp 'vm-mail) (global-set-key "\C-xm" 'vm-mail)) +;; Set up f3 to visit morgantown.vm. +(let ((folder "/modgen/rogers/mail/morgantown.vm")) + (when (and (not (zerop (user-uid))) + (file-exists-p folder)) + (setq rgr-mail-alternate-folder folder) + (global-set-key (kbd "") 'rgr-invoke-vm-alt-folder))) (setq mail-self-blind t) ;; Triple the default so we don't get queries about large mail files. (setq large-file-warning-threshold 30000000) diff --git a/rgr-hacks.el b/rgr-hacks.el index 0224705..6db12a0 100644 --- a/rgr-hacks.el +++ b/rgr-hacks.el @@ -1,3 +1,4 @@ +;;; -*- lexical-binding: t -*- ;;;**************************************************************************** ;;; ;;; GNU Emacs hackery. @@ -646,11 +647,7 @@ M-x buffer-menu)." ;; normal user. (global-set-key (kbd "") 'rgr-invoke-rmail) ;; (global-set-key '[kp-f1] 'rgr-invoke-rmail) - (global-set-key (kbd "") '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 "") 'rgr-invoke-vm-alt-folder))))) + (global-set-key (kbd "") 'v+q-mbox-status))) (global-set-key (kbd "") '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, -- 2.45.2