# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288141751 0
# Node ID d4d3d19301c2a8afc562ea678874fc6b0699aa24
# Parent  0bb15e5b969097beeb15e31474fc07b3688c9a2a
gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string.

diff -r 0bb15e5b9690 -r d4d3d19301c2 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Oct 27 00:23:09 2010 +0200
+++ b/lisp/gnus/ChangeLog	Wed Oct 27 01:09:11 2010 +0000
@@ -1,3 +1,9 @@
+2010-10-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-completing-read)
+	(gnus-read-ephemeral-bug-group): Replace replace-regexp-in-string with
+	gnus-replace-in-string.
+
 2010-10-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* shr.el (shr-tag-div): Added.
diff -r 0bb15e5b9690 -r d4d3d19301c2 lisp/gnus/gnus-group.el
--- a/lisp/gnus/gnus-group.el	Wed Oct 27 00:23:09 2010 +0200
+++ b/lisp/gnus/gnus-group.el	Wed Oct 27 01:09:11 2010 +0000
@@ -2199,7 +2199,7 @@
       (setq group
 	    (mm-encode-coding-string
 	     group (gnus-group-name-charset nil group))))
-    (replace-regexp-in-string "\n" "" group)))
+    (gnus-replace-in-string group "\n" "")))
 
 ;;;###autoload
 (defun gnus-fetch-group (group &optional articles)
@@ -2429,9 +2429,9 @@
       (while (re-search-forward "^To: " nil t)
 	(end-of-line)
 	(insert (format ", %s@%s" number
-			(replace-regexp-in-string
-			 "/.*$" ""
-			 (replace-regexp-in-string "^http://" "" mbox-url)))))
+			(gnus-replace-in-string
+			 (gnus-replace-in-string mbox-url "^http://" "")
+			 "/.*$" ""))))
       (write-region (point-min) (point-max) tmpfile)
       (gnus-group-read-ephemeral-group
        "gnus-read-ephemeral-bug"