[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el |
Date: |
Wed, 01 Jun 2005 01:07:08 -0400 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el,
Miles Bader <=