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

[gnus] / lisp / gnus-xmas.el

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index c2eb1c6..1e5fafb 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -936,7 +936,8 @@ XEmacs compatibility workaround."
   (let ((type (cond
               (type
                (symbol-name type))
-              ((string-match "[.]" file)
+              ((and (not data-p)
+                    (string-match "[.]" file))
                (car (last (split-string file "[.]"))))))
        (face (plist-get props :face))
        glyph)