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

[Stefan Monnier]

Index: emacs/lisp/gnus/mm-uu.el
diff -c emacs/lisp/gnus/mm-uu.el:1.15 emacs/lisp/gnus/mm-uu.el:1.16
*** emacs/lisp/gnus/mm-uu.el:1.15       Mon Jul  4 17:55:15 2005
--- emacs/lisp/gnus/mm-uu.el    Thu Jul 21 19:08:42 2005
***************
*** 111,118 ****
       "^exit 0$"
       mm-uu-shar-extract)
      (forward
! ;;; Thanks to Edward J. Sabol <address@hidden> and
! ;;; Peter von der Ah\'e <address@hidden>
       "^-+ \\(Start of \\)?Forwarded message"
       "^-+ End \\(of \\)?forwarded message"
       mm-uu-forward-extract
--- 111,118 ----
       "^exit 0$"
       mm-uu-shar-extract)
      (forward
!      ;; Thanks to Edward J. Sabol <address@hidden> and
!      ;; Peter von der Ah\'e <address@hidden>
       "^-+ \\(Start of \\)?Forwarded message"
       "^-+ End \\(of \\)?forwarded message"
       mm-uu-forward-extract
***************
*** 186,198 ****
  (defun mm-uu-copy-to-buffer (&optional from to)
    "Copy the contents of the current buffer to a fresh buffer.
  Return that buffer."
!   (save-excursion
!     (let ((obuf (current-buffer))
!         (coding-system
!          ;; Might not exist in non-MULE XEmacs
!          (when (boundp 'buffer-file-coding-system)
!            buffer-file-coding-system)))
!       (set-buffer (generate-new-buffer " *mm-uu*"))
        (setq buffer-file-coding-system coding-system)
        (insert-buffer-substring obuf from to)
        (current-buffer))))
--- 186,197 ----
  (defun mm-uu-copy-to-buffer (&optional from to)
    "Copy the contents of the current buffer to a fresh buffer.
  Return that buffer."
!   (let ((obuf (current-buffer))
!         (coding-system
!          ;; Might not exist in non-MULE XEmacs
!          (when (boundp 'buffer-file-coding-system)
!            buffer-file-coding-system)))
!     (with-current-buffer (generate-new-buffer " *mm-uu*")
        (setq buffer-file-coding-system coding-system)
        (insert-buffer-substring obuf from to)
        (current-buffer))))
***************
*** 496,500 ****
  
  (provide 'mm-uu)
  
! ;;; arch-tag: 7db076bf-53db-4320-aa19-ca76a1d2ab2c
  ;;; mm-uu.el ends here
--- 495,499 ----
  
  (provide 'mm-uu)
  
! ;; arch-tag: 7db076bf-53db-4320-aa19-ca76a1d2ab2c
  ;;; mm-uu.el ends here