[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.40 emacs/lisp/gnus/mm-util.el:1.41
*** emacs/lisp/gnus/mm-util.el:1.40     Wed Apr 13 04:58:05 2005
--- emacs/lisp/gnus/mm-util.el  Wed Jun  1 05:07:06 2005
***************
*** 889,910 ****
  `find-file-hooks', etc.
  If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
    This function ensures that none of these modifications will take place."
!   (let ((format-alist nil)
!       (auto-mode-alist (if inhibit nil (mm-auto-mode-alist)))
!       (default-major-mode 'fundamental-mode)
!       (enable-local-variables nil)
!       (after-insert-file-functions nil)
!       (enable-local-eval nil)
!       (find-file-hooks nil)
!       (inhibit-file-name-operation (if inhibit
!                                        'insert-file-contents
!                                      inhibit-file-name-operation))
!       (inhibit-file-name-handlers
!        (if inhibit
!            (append mm-inhibit-file-name-handlers
!                    inhibit-file-name-handlers)
!          inhibit-file-name-handlers)))
!     (insert-file-contents filename visit beg end replace)))
  
  (defun mm-append-to-file (start end filename &optional codesys inhibit)
    "Append the contents of the region to the end of file FILENAME.
--- 889,916 ----
  `find-file-hooks', etc.
  If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
    This function ensures that none of these modifications will take place."
!   (let* ((format-alist nil)
!        (auto-mode-alist (if inhibit nil (mm-auto-mode-alist)))
!        (default-major-mode 'fundamental-mode)
!        (enable-local-variables nil)
!        (after-insert-file-functions nil)
!        (enable-local-eval nil)
!        (inhibit-file-name-operation (if inhibit
!                                         'insert-file-contents
!                                       inhibit-file-name-operation))
!        (inhibit-file-name-handlers
!         (if inhibit
!             (append mm-inhibit-file-name-handlers
!                     inhibit-file-name-handlers)
!           inhibit-file-name-handlers))
!        (ffh (if (boundp 'find-file-hook)
!                 'find-file-hook
!               'find-file-hooks))
!        (val (symbol-value ffh)))
!     (set ffh nil)
!     (unwind-protect
!       (insert-file-contents filename visit beg end replace)
!       (set ffh val))))
  
  (defun mm-append-to-file (start end filename &optional codesys inhibit)
    "Append the contents of the region to the end of file FILENAME.