gnus-util.el (gnus-string-match-p): New function, that is an alias to string-match...

gnus-msg.el (gnus-configure-posting-styles)
nnir.el (nnir-run-gmane): Use gnus-string-match-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc2f78d..9cf5fad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-util.el (gnus-string-match-p): New function, that is an alias to
+       string-match-p in Emacs >=23.
+
+       * gnus-msg.el (gnus-configure-posting-styles)
+       * nnir.el (nnir-run-gmane): Use gnus-string-match-p.
+
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
        * nnir.el (declare-function): Add compat stub.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 46cbc75..544aa77 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1892,7 +1892,7 @@ this is a reply."
                  (cond
                   ((stringp value)
                    (if (and (stringp match)
-                            (string-match-p "\\\\[&[:digit:]]" value)
+                            (gnus-string-match-p "\\\\[&[:digit:]]" value)
                             (match-beginning 1))
                        (gnus-match-substitute-replacement value nil nil group)
                      value))

diff --git a/lisp/nnir.el b/lisp/nnir.el
index 073df19..bfe4df8 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -1392,7 +1392,7 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
 ;; gmane interface
 (defun nnir-run-gmane (query srv &optional groups)
   "Run a search against a gmane back-end server."
-  (if (string-match-p "gmane" srv)
+  (if (gnus-string-match-p "gmane" srv)
       (let* ((case-fold-search t)
             (qstring (cdr (assq 'query query)))
             (server (cadr (gnus-server-to-method srv)))