* lisp/gnus/smiley.el (smiley-style): Make the file loadable in batch mode.

Not likely to be very useful, of course, but helps with automated testing.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 733f1d26510d9dcc6838ef47c8bfbed262a3db26..1f1b46c85329bd7b69198a88547461360195bfff 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-16  Glenn Morris  <rgm@gnu.org>
+
+       * smiley.el (smiley-style): Make the file loadable in batch mode.
+
 2013-01-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * nnimap.el (nnimap-keepalive): Don't throw an error if there's no more

diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el
index 6381f5bf9d93287361be0e83e8f1319626596823..eb71134457c712fef7726a0f650775a257981eb1 100644 (file)
--- a/lisp/gnus/smiley.el
+++ b/lisp/gnus/smiley.el
@@ -59,7 +59,10 @@
 
 (defcustom smiley-style
   (if (or (and (fboundp 'face-attribute)
-              (>= (face-attribute 'default :height) 160))
+              ;; In batch mode, attributes can be unspecified.
+              (condition-case nil
+                  (>= (face-attribute 'default :height) 160)
+                (error nil)))
          (and (fboundp 'face-height)
               (>= (face-height 'default) 14)))
       'medium