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

[Miles Bader]

Index: emacs/lisp/gnus/mm-util.el
diff -c emacs/lisp/gnus/mm-util.el:1.37 emacs/lisp/gnus/mm-util.el:1.38
*** emacs/lisp/gnus/mm-util.el:1.37     Wed Mar 30 08:14:32 2005
--- emacs/lisp/gnus/mm-util.el  Sun Apr 10 04:20:13 2005
***************
*** 57,65 ****
                    mm-mime-mule-charset-alist)
            nil t))))
       (subst-char-in-string
!       . (lambda (from to string) ;; stolen (and renamed) from nnheader.el
!         "Replace characters in STRING from FROM to TO."
!         (let ((string (substring string 0)) ;Copy string.
                (len (length string))
                (idx 0))
            ;; Replace all occurrences of FROM with TO.
--- 57,67 ----
                    mm-mime-mule-charset-alist)
            nil t))))
       (subst-char-in-string
!       . (lambda (from to string &optional inplace)
!         ;; stolen (and renamed) from nnheader.el
!         "Replace characters in STRING from FROM to TO.
!         Unless optional argument INPLACE is non-nil, return a new string."
!         (let ((string (if inplace string (copy-sequence string)))
                (len (length string))
                (idx 0))
            ;; Replace all occurrences of FROM with TO.
***************
*** 153,159 ****
  If CS is available, return CS itself in Emacs, and return a coding
  system object in XEmacs."
    (if (fboundp 'find-coding-system)
!       (find-coding-system cs)
      (if (fboundp 'coding-system-p)
        (when (coding-system-p cs)
          cs)
--- 155,161 ----
  If CS is available, return CS itself in Emacs, and return a coding
  system object in XEmacs."
    (if (fboundp 'find-coding-system)
!       (and cs (find-coding-system cs))
      (if (fboundp 'coding-system-p)
        (when (coding-system-p cs)
          cs)