diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 16:13:08 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 16:13:08 +1100 |
| commit | 21cfd14d54370cddc1160d30bc47e17c5ac3a162 (patch) | |
| tree | 1ed08374d1e42dd89d674a2ef840097ea3d4d905 /lisp/gnus/spam-report.el | |
| parent | 16b7e605f32862c592ffd1134079b91e3ee4ef91 (diff) | |
| download | emacs-21cfd14d54370cddc1160d30bc47e17c5ac3a162.tar.gz emacs-21cfd14d54370cddc1160d30bc47e17c5ac3a162.tar.bz2 emacs-21cfd14d54370cddc1160d30bc47e17c5ac3a162.zip | |
gnus-replace-in-string -> replace-regexp-in-string
* lisp/gnus/gnus-util.el (gnus-replace-in-string): Declare
obsolete. Transform all usages of it into
replace-regexp-in-string.
* lisp/gnus/mailcap.el (mailcap-replace-in-string): Remove.
Diffstat (limited to 'lisp/gnus/spam-report.el')
| -rw-r--r-- | lisp/gnus/spam-report.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el index 0086dd14792..7ebff197b2b 100644 --- a/lisp/gnus/spam-report.el +++ b/lisp/gnus/spam-report.el @@ -162,9 +162,9 @@ submitted at once. Internal variable.") rpt-host (concat "/" - (gnus-replace-in-string - (gnus-replace-in-string - (gnus-replace-in-string + (replace-regexp-in-string + (replace-regexp-in-string + (replace-regexp-in-string (mail-header-xref (gnus-summary-article-header article)) "/raw" ":silent") "^.*article.gmane.org/" "") @@ -207,7 +207,7 @@ submitted at once. Internal variable.") (when host (when (string-equal "permalink.gmane.org" host) (setq host rpt-host) - (setq report (gnus-replace-in-string + (setq report (replace-regexp-in-string report "/\\([0-9]+\\)$" ":\\1"))) (setq url (format "http://%s%s" host report))) (if (not (and host report url)) @@ -227,7 +227,7 @@ the function specified by `spam-report-url-ping-function'." (defcustom spam-report-user-mail-address (and (stringp user-mail-address) - (gnus-replace-in-string user-mail-address "@" "<at>")) + (replace-regexp-in-string user-mail-address "@" "<at>")) "Mail address of this user used for spam reports to Gmane. This is initialized based on `user-mail-address'." :type '(choice string |