[Emacs-diffs] /srv/bzr/emacs/trunk r102118: gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102118
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-27 01:09:11 +0000
message:
  gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-26 22:08:30 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-27 01:09:11 +0000
@@ -1,3 +1,9 @@
+2010-10-27  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * shr.el (shr-tag-div): Added.

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2010-10-24 09:55:56 +0000
+++ b/lisp/gnus/gnus-group.el   2010-10-27 01:09:11 +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 ", address@hidden" 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"