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

[Miles Bader]

Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.19 emacs/lisp/gnus/mm-decode.el:1.20
*** emacs/lisp/gnus/mm-decode.el:1.19   Mon Nov  1 23:06:34 2004
--- emacs/lisp/gnus/mm-decode.el        Sat Jan 22 21:07:03 2005
***************
*** 1,5 ****
  ;;; mm-decode.el --- Functions for decoding MIME things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; mm-decode.el --- Functions for decoding MIME things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 1032,1058 ****
  
  (defun mm-insert-part (handle)
    "Insert the contents of HANDLE in the current buffer."
!   (let ((cur (current-buffer)))
!     (save-excursion
!       (if (member (mm-handle-media-supertype handle) '("text" "message"))
!         (with-temp-buffer
!           (insert-buffer-substring (mm-handle-buffer handle))
!           (prog1
!               (mm-decode-content-transfer-encoding
!                (mm-handle-encoding handle)
!                (mm-handle-media-type handle))
!             (let ((temp (current-buffer)))
!               (set-buffer cur)
!               (insert-buffer-substring temp))))
!       (mm-with-unibyte-buffer
!         (insert-buffer-substring (mm-handle-buffer handle))
!         (prog1
!             (mm-decode-content-transfer-encoding
!              (mm-handle-encoding handle)
!              (mm-handle-media-type handle))
!           (let ((temp (current-buffer)))
!             (set-buffer cur)
!             (insert-buffer-substring temp))))))))
  
  (defun mm-file-name-delete-whitespace (file-name)
    "Remove all whitespace characters from FILE-NAME."
--- 1032,1041 ----
  
  (defun mm-insert-part (handle)
    "Insert the contents of HANDLE in the current buffer."
!   (save-excursion
!     (insert (if (mm-multibyte-p)
!               (mm-string-as-multibyte (mm-get-part handle))
!             (mm-get-part handle)))))
  
  (defun mm-file-name-delete-whitespace (file-name)
    "Remove all whitespace characters from FILE-NAME."