(auto-mode-alist): ~/.gnus, ~/.viper are in

emacs-lisp-mode, like ~/.emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 36cfa96ec99c98fa76b34312f1c236fe5b45a1ad..46d038a4cf02829ce306045c628f7c980063b32f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-10  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * files.el (auto-mode-alist): ~/.gnus, ~/.viper are in
+       emacs-lisp-mode, like ~/.emacs.
+
 2002-09-10  Deepak Goel  <deego@glue.umd.edu>
 
        * play/doctor.el (doc//): Rename from `//'.  Update callers.

diff --git a/lisp/files.el b/lisp/files.el
index 29da63df7cf6e0aff4a5244ded14582b50b4fbcc..f86afe8d5d29e021b2b3b091dca3663ff2b47868 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1588,9 +1588,9 @@ in that case, this function acts as if `enable-local-variables' were t."
      ("\\.dtd\\'" . sgml-mode)
      ("\\.ds\\(ss\\)?l\\'" . dsssl-mode)
      ("\\.idl\\'" . idl-mode)
-     ;; .emacs following a directory delimiter
-     ;; in Unix, MSDOG or VMS syntax.
-     ("[]>:/\\]\\..*emacs\\'" . emacs-lisp-mode)
+     ;; .emacs or .gnus or .viper following a directory delimiter in
+     ;; Unix, MSDOG or VMS syntax.
+     ("[]>:/\\]\\..*\\(emacs\\|gnus\\|viper\\)\\'" . emacs-lisp-mode)
      ("\\`\\..*emacs\\'" . emacs-lisp-mode)
      ;; _emacs following a directory delimiter
      ;; in MsDos syntax