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

[gnus] / lisp / lpath.el

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 8e6c27e..b2aa91c 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -43,17 +43,19 @@
     (maybe-fbind
      '(clear-string
        coding-system-aliasee coding-system-from-name custom-autoload
-       delete-annotation delete-extent device-connection dfw-device
-       events-to-keys find-face font-lock-set-defaults get-char-table
-       glyph-height glyph-width help-buffer int-to-char ldap-search-entries
+       delete-annotation delete-extent device-connection
+       device-on-window-system-p dfw-device events-to-keys find-face
+       font-lock-set-defaults get-char-table glyph-height glyph-image
+       glyph-width glyphp help-buffer int-to-char ldap-search-entries
        mail-aliases-setup make-annotation make-event make-glyph
        make-network-process map-extents message-xmas-redefine put-char-table
        run-mode-hooks set-extent-property set-itimer-function
-       set-keymap-default-binding temp-directory time-to-seconds ucs-to-char
-       unicode-precedence-list unicode-to-char url-generic-parse-url
-       url-http-file-exists-p valid-image-instantiator-format-p
-       vcard-pretty-print w3-coding-system-for-mime-charset window-pixel-edges
-       window-pixel-height window-pixel-width))
+       set-keymap-default-binding specifier-spec-list temp-directory
+       time-to-seconds ucs-to-char unicode-precedence-list unicode-to-char
+       url-generic-parse-url url-http-file-exists-p
+       valid-image-instantiator-format-p vcard-pretty-print
+       w3-coding-system-for-mime-charset window-pixel-edges window-pixel-height
+       window-pixel-width))
     (maybe-bind
      '(completion-styles
        eudc-protocol filladapt-mode help-echo-owns-message itimer-list
@@ -119,10 +121,6 @@
      '(header-line-format
        scroll-margin timer-list)))
 
-  (when (and (= emacs-major-version 21) (= emacs-minor-version 4))
-    (maybe-fbind
-     '(propertize)))
-
   (unless (featurep 'mule)
     (maybe-fbind
      '(ccl-execute-on-string