gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b34a8e6bd94..9a87c359c67 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 7e2ea37e1a4..1d73b44b8b6 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2199,7 +2199,7 @@ if it is not a list."
       (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 @@ the bug number, and browsing the URL must return mbox output."
       (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"