1 files changed, 7 insertions(+), 12 deletions(-)

M emacs-init.el

@@ 152,6 152,8 @@ but it is usually sufficient to take the default.")
 (add-hook 'mail-setup-hook 'rgr-mail-setup-hook)
 (add-hook 'mail-setup-hook 'rgr-mail-abbrevs-setup)
 (add-hook 'mail-citation-hook 'rgr-vm-mail-citation-hook)
+;; Oops; vm doesn't do this.  -- rgr, 27-Nov-00.
+(add-to-list 'auto-mode-alist '("INBOX$\\|[^/.]\\.vm$" . vm-mode))
 (if (and (eq rgr-site 'home)
 	 (not (equal (user-real-login-name) "root"))
 	 (let ((conn (getenv "SSH_CONNECTION")))


@@ 235,9 237,6 @@ but it is usually sufficient to take the default.")
 (add-hook 'matlab-shell-mode-hook 'rgr-matlab-shell-mode-hook)
 (add-hook 'command-history-hook 'rgr-command-history-hook)
 
-;; Oops; vm doesn't do this.  -- rgr, 27-Nov-00.
-(add-to-list 'auto-mode-alist '("INBOX$\\|[^/.]\\.vm$" . vm-mode))
-
 ;; Set up html-mode.
 (add-hook 'html-mode-hook 'rgr-sgml-define-commands)
 


@@ 247,18 246,14 @@ but it is usually sufficient to take the default.")
 (setq browse-url-browser-function
       (if (member (system-name) '("orion" "scorpio"))
 	  'browse-url-chromium 'browse-url-firefox))
-
-;; Emacs/W3
-(add-hook 'w3-load-hook 'rgr-w3-load-hook)
-;; wiki-remote stuff.
-(autoload 'wiki-remote-get "wiki-remote.el" "Get wiki PAGE from wiki NAME." t)
+;; Don't use debbugs-browse-url to go to Emacs bugs.
+(when (eq (cdr (car browse-url-default-handlers)) 'debbugs-browse-url)
+  (pop browse-url-default-handlers))
 
 ;; M-x ssh.  -- rgr, 1-Aug-03.
 (setq ssh-host-history
-      (append (if (eq rgr-site 'mgi)
-		  '("yuggoth" "granada")
-		  '("rogers@lincoln.modulargenetics.com"))
-	      '("rogers@rgrjr.dyndns.org")))
+      '(("rogers@lincoln.modulargenetics.com"
+	 "rogers@rgrjr.dyndns.org")))
 (if (eq rgr-site 'home)
     ;; Enable tunnelling to make the ModGen database and intranet Web servers
     ;; available from home.  -- rgr, 29-Feb-04.