+2012-09-06 Lars Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-util.el: Fix compilation error on XEmacs 21.4.
+
2012-09-06 Juri Linkov <juri@jurta.org>
* gnus-group.el (gnus-read-ephemeral-gmane-group): Change the naming
"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)