Re: September Gnus v0.93 is released

[Fabrice Popineau <popineau@esemetz.ese-metz.fr>]

Hi, 

In order to make it working with xemacs-19.13, I  also had to put back
the following in gnu-xmas.el :

;; Written by Erik Naggum <erik@naggum.no>.
;; Saved by Steve Baur <steve@miranova.com>.
(or (fboundp 'insert-file-contents-literally)
(defun insert-file-contents-literally (filename &optional visit beg end replace)
  "Like `insert-file-contents', q.v., but only reads in the file.
A buffer may be modified in several ways after reading into the buffer due
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hooks, etc.
  This function ensures that none of these modifications will take place."
  (let (                                ; (file-name-handler-alist nil)
        (format-alist nil)
        (after-insert-file-functions nil)
        (find-buffer-file-type-function 
         (if (fboundp 'find-buffer-file-type)
             (symbol-function 'find-buffer-file-type)
           nil)))
    (unwind-protect
        (progn
          (fset 'find-buffer-file-type (lambda (filename) t))
          (insert-file-contents filename visit beg end replace))
      (if find-buffer-file-type-function
          (fset 'find-buffer-file-type find-buffer-file-type-function)
        (fmakunbound 'find-buffer-file-type))))))

-- 
Fabrice POPINEAU
------------------------
e-mail:       popineau@ese-metz.fr              voice-mail: (+33) 87-74-99-38 
surface-mail: Supelec, 2 rue E. Belin, F-57078 Metz Cedex 3