From e617ab0651ea5bfb03692eac5976c7e61257aa6b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 27 Oct 2010 01:09:11 +0000 Subject: [PATCH] gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-group.el | 8 ++++---- 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 + + * 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 * 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" -- 2.39.5