diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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" |