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

[Miles Bader]

Index: emacs/lisp/gnus/mml.el
diff -c emacs/lisp/gnus/mml.el:1.21 emacs/lisp/gnus/mml.el:1.22
*** emacs/lisp/gnus/mml.el:1.21 Mon Oct 18 22:23:43 2004
--- emacs/lisp/gnus/mml.el      Fri Jan 28 23:52:19 2005
***************
*** 1,5 ****
  ;;; mml.el --- A package for parsing and validating MML documents
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; mml.el --- A package for parsing and validating MML documents
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 472,478 ****
            (mm-with-unibyte-buffer
              (cond
               ((cdr (assq 'buffer cont))
!               (insert-buffer-substring (cdr (assq 'buffer cont))))
               ((and (setq filename (cdr (assq 'filename cont)))
                     (not (equal (cdr (assq 'nofile cont)) "yes")))
                (let ((coding-system-for-read mm-binary-coding-system))
--- 472,480 ----
            (mm-with-unibyte-buffer
              (cond
               ((cdr (assq 'buffer cont))
!               (insert (with-current-buffer (cdr (assq 'buffer cont))
!                         (mm-with-unibyte-current-buffer
!                           (buffer-string)))))
               ((and (setq filename (cdr (assq 'filename cont)))
                     (not (equal (cdr (assq 'nofile cont)) "yes")))
                (let ((coding-system-for-read mm-binary-coding-system))