[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.39 emacs/lisp/gnus/mm-util.el:1.40
*** emacs/lisp/gnus/mm-util.el:1.39     Sun Apr 10 19:04:09 2005
--- emacs/lisp/gnus/mm-util.el  Wed Apr 13 04:58:05 2005
***************
*** 91,97 ****
       ;; (string-to-multibyte s)   ~= (decode-coding-string s 'binary)
       ;; (string-make-multibyte s) ~= (decode-coding-string s 
locale-coding-system)
       (string-as-multibyte . identity)
!      (string-to-multibyte . mm-string-as-multibyte)
       (multibyte-string-p . ignore)
       ;; It is not a MIME function, but some MIME functions use it.
       (make-temp-file . (lambda (prefix &optional dir-flag)
--- 91,102 ----
       ;; (string-to-multibyte s)   ~= (decode-coding-string s 'binary)
       ;; (string-make-multibyte s) ~= (decode-coding-string s 
locale-coding-system)
       (string-as-multibyte . identity)
!      (string-to-multibyte
!       . (lambda (string)
!         "Return a multibyte string with the same individual chars as string."
!         (mapconcat
!          (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
!          string "")))
       (multibyte-string-p . ignore)
       ;; It is not a MIME function, but some MIME functions use it.
       (make-temp-file . (lambda (prefix &optional dir-flag)