[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.22 emacs/lisp/gnus/gnus-util.el:1.23
*** emacs/lisp/gnus/gnus-util.el:1.22   Tue Oct 19 22:38:27 2004
--- emacs/lisp/gnus/gnus-util.el        Tue Dec  7 21:56:39 2004
***************
*** 60,69 ****
     ((fboundp 'replace-in-string)
      (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)))
--- 60,79 ----
     ((fboundp 'replace-in-string)
      (defalias 'gnus-replace-in-string 'replace-in-string))
     ((fboundp 'replace-regexp-in-string)
!     (defun gnus-replace-in-string (string regexp newtext &optional literal)
!       "Replace all matches for REGEXP with NEWTEXT in STRING.
! If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
! string containing the replacements.
! 
! This is a compatibility function for different Emacsen."
        (replace-regexp-in-string regexp newtext string nil literal)))
     (t
      (defun gnus-replace-in-string (string regexp newtext &optional literal)
+       "Replace all matches for REGEXP with NEWTEXT in STRING.
+ If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
+ string containing the replacements.
+ 
+ This is a compatibility function for different Emacsen."
        (let ((start 0) tail)
        (while (string-match regexp string start)
          (setq tail (- (length string) (match-end 0)))