[gnus git] branch master updated: m0-5-129-gf4b7a91 =1= * gnus-util.el: Fix compilation error on XEmacs 21.4.

       via  f4b7a91b0d9643734042ca05e02a79aafee8fbf9 (commit)
      from  e77aeb4c7ed753bd554fd48beac8cb886df18997 (commit)


- Log -----------------------------------------------------------------
commit f4b7a91b0d9643734042ca05e02a79aafee8fbf9
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Sep 6 19:19:39 2012 +0200

    * gnus-util.el: Fix compilation error on XEmacs 21.4.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd628f6..880b7d8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-06  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-util.el: Fix compilation error on XEmacs 21.4.
+
 2012-09-06  Juri Linkov  <[email protected]>
 
 	* gnus-group.el (gnus-read-ephemeral-gmane-group): Change the naming
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 791e744..0c048e6 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1919,8 +1919,11 @@ Same as `string-match' except this function does not change the match data."
     "Return non-nil if STR1 is a prefix of STR2.
 If IGNORE-CASE is non-nil, the comparison is done without paying attention
 to case differences."
-    (eq t (compare-strings str1 nil nil
-			   str2 0 (length str1) ignore-case))))
+    (and (<= (length str1) (length str2))
+	 (let ((prefix (substring str2 0 (length str1))))
+	   (if ignore-case
+	       (string-equal (downcase str1) (downcase prefix))
+	     (string-equal str1 prefix))))))
 
 (eval-and-compile
   (if (fboundp 'macroexpand-all)

-----------------------------------------------------------------------
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    |    4 ++++
 lisp/gnus-util.el |    7 +++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

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