Mercurial > emacs
changeset 111197:d4d3d19301c2
gnus-group.el: Replace replace-regexp-in-string with gnus-replace-in-string.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 27 Oct 2010 01:09:11 +0000 |
| parents | 0bb15e5b9690 |
| children | 898ddb0c960d |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-group.el |
| diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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"