[gnus git] branch master updated: m0-11-125-gb5dbae8 =1= * lisp/gnus-compat.el (fboundp): Avoid compilation error on XEmacs.

Lars <[email protected]> Tue, 27 Jan 2015 07:22:23 +0100
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  b5dbae8d6c78bdbb1b47601ddc91fca012796927 (commit)
      from  b2c3cb743302b2435b8c179948a4e5251a1da380 (commit)


- Log -----------------------------------------------------------------
commit b5dbae8d6c78bdbb1b47601ddc91fca012796927
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue Jan 27 17:22:12 2015 +1100

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58c883e..bc8f44b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2015-01-27  Lars Ingebrigtsen  <[email protected]>
 
+	* 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
--- 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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    2 ++
 lisp/gnus-compat.el |    5 +++++
 2 files changed, 7 insertions(+)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project