From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6368 Path: main.gmane.org!not-for-mail From: Fabrice Popineau Newsgroups: gmane.emacs.gnus.general Subject: Re: September Gnus v0.93 is released Date: 24 May 1996 13:34:18 +0200 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035146833 3399 80.91.224.250 (20 Oct 2002 20:47:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:47:13 +0000 (UTC) Cc: Lars Magne Ingebrigtsen , ding@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id FAA06790 for ; Fri, 24 May 1996 05:26:24 -0700 Original-Received: from neuromancer.ese-metz.fr (popineau@neuromancer.ese-metz.fr [192.70.65.52]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Fri, 24 May 1996 13:34:36 +0200 Original-Received: (from popineau@localhost) by neuromancer.ese-metz.fr (8.7.1/8.7.1) id NAA24948; Fri, 24 May 1996 13:34:19 +0200 Original-To: Magnus Hammerin In-Reply-To: Magnus Hammerin's message of 24 May 1996 11:59:01 +0200 Original-Lines: 35 X-Mailer: September Gnus v0.93/XEmacs 19.13 Xref: main.gmane.org gmane.emacs.gnus.general:6368 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6368 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 . ;; Saved by Steve Baur . (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