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/mm-decode.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/mm-decode.el')
| -rw-r--r-- | lisp/gnus/mm-decode.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 06159bcdd93..4df653c6009 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -28,7 +28,6 @@ (eval-when-compile (require 'cl)) (autoload 'gnus-map-function "gnus-util") -(autoload 'gnus-replace-in-string "gnus-util") (autoload 'gnus-read-shell-command "gnus-util") (autoload 'mm-inline-partial "mm-partial") @@ -1360,12 +1359,12 @@ string if you do not like underscores." (defun mm-file-name-delete-control (filename) "Delete control characters from FILENAME." - (gnus-replace-in-string filename "[\x00-\x1f\x7f]" "")) + (replace-regexp-in-string filename "[\x00-\x1f\x7f]" "")) (defun mm-file-name-delete-gotchas (filename) "Delete shell gotchas from FILENAME." - (setq filename (gnus-replace-in-string filename "[<>|]" "")) - (gnus-replace-in-string filename "^[.-]+" "")) + (setq filename (replace-regexp-in-string filename "[<>|]" "")) + (replace-regexp-in-string filename "^[.-]+" "")) (defun mm-save-part (handle &optional prompt) "Write HANDLE to a file. |