From 727cdfac5dfc7d673ad1806561fece677d458f8d Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Thu, 8 Jan 2004 15:44:15 +0000 Subject: [PATCH] (gnus-replace-in-string): Remove Emacs 20 code. --- lisp/ChangeLog | 4 ++++ lisp/gnus-util.el | 10 +--------- 2 files changed, 5 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 771376bbf..9cf03a103 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-01-08 Jesper Harder + + * gnus-util.el (gnus-replace-in-string): Remove Emacs 20 code. + 2003-11-15 Simon Josefsson * pgg-gpg.el (pgg-gpg-lookup-all-secret-keys) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index e1f22b793..016f96029 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -57,15 +57,7 @@ (defalias 'gnus-replace-in-string 'replace-in-string)) ((fboundp 'replace-regexp-in-string) (defun gnus-replace-in-string (string regexp newtext &optional literal) - (replace-regexp-in-string regexp newtext string nil literal))) - (t - (defun gnus-replace-in-string (string regexp newtext &optional literal) - (let ((start 0) tail) - (while (string-match regexp string start) - (setq tail (- (length string) (match-end 0))) - (setq string (replace-match newtext nil literal string)) - (setq start (- (length string) tail)))) - string)))) + (replace-regexp-in-string regexp newtext string nil literal))))) ;;; bring in the netrc functions as aliases (defalias 'gnus-netrc-get 'netrc-get) -- 2.34.1