Give a better error message in the "go offline" case.

[gnus] / lisp / dgnushack.el

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index dc256bb..3eddb6f 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -194,6 +194,7 @@ fixed in Emacs 22."
   (unless (featurep 'xemacs)
     (defalias 'get-popup-menu-response 'ignore)
     (defalias 'event-object 'ignore)
+    (autoload 'netrc-credentials "netrc")
     (defalias 'x-defined-colors 'ignore)
     (defalias 'read-color 'ignore)))
 
@@ -307,16 +308,15 @@ dgnushack-compile."
   ;;(setq byte-compile-dynamic t)
   (unless warn
     (setq byte-compile-warnings
-         '(free-vars unresolved callargs redefine)))
-  (let ((files (delete ".dir-locals.el"
-                      (directory-files srcdir nil "^[^=].*\\.el$")))
+         '(free-vars unresolved callargs redefine suspicious)))
+  (let ((files (directory-files srcdir nil "^[^=].*\\.el$"))
        ;;(byte-compile-generate-call-tree t)
        file elc)
     ;; Avoid barfing (from gnus-xmas) because the etc directory is not yet
     ;; installed.
     (when (featurep 'xemacs)
       (setq gnus-xmas-glyph-directory "dummy"))
-    (dolist (file '("dgnushack.el" "lpath.el"))
+    (dolist (file '(".dir-locals.el" "dgnushack.el" "lpath.el"))
       (setq files (delete file files)))
     (when (featurep 'base64)
       (setq files (delete "base64.el" files)))
@@ -327,6 +327,8 @@ dgnushack-compile."
        (dolist (file '("webmail.el" "nnwfm.el"))
         (setq files (delete file files)))))
     (condition-case code
+       ;; Under XEmacs 21.4 this loads easy-mmode.elc that provides
+       ;; the Emacs functions `propertize' and `replace-regexp-in-string'.
        (require 'mh-e)
       (error
        (message "No mh-e: %s %s" (cadr code) (or (locate-library "mh-e") ""))
@@ -377,7 +379,7 @@ dgnushack-compile."
     (defadvice directory-files (after exclude-dir-locals activate)
       "Exclude .dir-locals.el file."
       (dolist (file ad-return-value)
-       (if (string-match "/?\\.dir-locals\\.el\\'" file)
+       (if (string-match "\\(?:\\`\\|/\\)\\.dir-locals\\.el\\'" file)
            (setq ad-return-value (delete file ad-return-value)))))
     (unwind-protect
        (if (fboundp 'custom-make-dependencies)
@@ -415,7 +417,7 @@ dgnushack-compile."
     (defadvice directory-files (after exclude-dir-locals activate)
       "Exclude .dir-locals.el file."
       (dolist (file ad-return-value)
-       (if (string-match "/?\\.dir-locals\\.el\\'" file)
+       (if (string-match "\\(?:\\`\\|/\\)\\.dir-locals\\.el\\'" file)
            (setq ad-return-value (delete file ad-return-value)))))
     (unwind-protect
        (batch-update-autoloads)