[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnheader.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnheader.el |
Date: |
Wed, 01 Jun 2005 01:07:08 -0400 |
Index: emacs/lisp/gnus/nnheader.el
diff -c emacs/lisp/gnus/nnheader.el:1.23 emacs/lisp/gnus/nnheader.el:1.24
*** emacs/lisp/gnus/nnheader.el:1.23 Mon May 30 17:13:58 2005
--- emacs/lisp/gnus/nnheader.el Wed Jun 1 05:07:06 2005
***************
*** 1,7 ****
;;; nnheader.el --- header access macros for Gnus and its backends
;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996,
! ;; 1997, 1998, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <address@hidden>
--- 1,7 ----
;;; nnheader.el --- header access macros for Gnus and its backends
;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996,
! ;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <address@hidden>
***************
*** 953,967 ****
(defun nnheader-find-file-noselect (&rest args)
"Open a file with some variables bound.
See `find-file-noselect' for the arguments."
! (let ((format-alist nil)
! (auto-mode-alist (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)
! (coding-system-for-read nnheader-file-coding-system))
! (apply 'find-file-noselect args)))
(defun nnheader-directory-regular-files (dir)
"Return a list of all regular files in DIR."
--- 953,973 ----
(defun nnheader-find-file-noselect (&rest args)
"Open a file with some variables bound.
See `find-file-noselect' for the arguments."
! (let* ((format-alist nil)
! (auto-mode-alist (mm-auto-mode-alist))
! (default-major-mode 'fundamental-mode)
! (enable-local-variables nil)
! (after-insert-file-functions nil)
! (enable-local-eval nil)
! (coding-system-for-read nnheader-file-coding-system)
! (ffh (if (boundp 'find-file-hook)
! 'find-file-hook
! 'find-file-hooks))
! (val (symbol-value ffh)))
! (set ffh nil)
! (unwind-protect
! (apply 'find-file-noselect args)
! (set ffh val))))
(defun nnheader-directory-regular-files (dir)
"Return a list of all regular files in DIR."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnheader.el,
Miles Bader <=