'(lambda ()
(local-set-key "Q" 'vm-quit)
(local-set-key "q" "###Q")))
-(add-hook 'mail-mode-hook
- '(lambda ()
- (if (and (boundp 'folder-buffer)
- folder-buffer
- (string= (buffer-file-name folder-buffer)
- (file-truename vm-sysadmin-inbox)))
- (progn
- (make-local-variable 'vm-mail-header-from)
- (setq vm-mail-header-from
- "sysadmin@chiark.greenend.org.uk (Ian Jackson)")
- (make-local-variable 'mail-archive-file-name)
- (setq mail-archive-file-name
- "~/mail/SOutbound")))))
-;
-;(defun vmi ()
+;(add-hook 'mail-mode-hook
+; '(lambda ()
+; (if (and (boundp 'folder-buffer)
+; folder-buffer
+; (string= (buffer-file-name folder-buffer)
+; (file-truename vm-sysadmin-inbox)))
+; (progn
+; (make-local-variable 'vm-mail-header-from)
+; (setq vm-mail-header-from
+; "sysadmin@chiark.greenend.org.uk (Ian Jackson)")
+; (make-local-variable 'mail-archive-file-name)
+; (setq mail-archive-file-name
+; "~/mail/SOutbound")))))
+;
+;;(defun vmi ()
; (interactive)
; (vm "/u/ijackson/mail/INBOX"))
;;