* lisp/gnus-compat.el (fboundp): Avoid compilation error on XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58c883e..bc8f44b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2015-01-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-compat.el (fboundp): Avoid compilation error on XEmacs.
+
        * nnir.el (nnir-imap-expr-to-imap): Check for literal+ capability in
        IMAP.
 

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 3eac265..86bcb8f 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -144,6 +144,11 @@ one is kept."
 (unless (fboundp 'declare-function)
   (defmacro declare-function (&rest r)))
 
+(unless (fboundp 'string-bytes)
+  (defun string-bytes (string)
+    ;; This is a rather wrong definition that should be fixed.
+    (length string)))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here