From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4739 Path: main.gmane.org!not-for-mail From: Steven L Baur Newsgroups: gmane.emacs.gnus.general Subject: Re: September Gnus 0.27 is released (long) Date: 16 Jan 1996 17:56:25 -0800 Organization: Miranova Systems, Inc. Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.38) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035145445 30643 80.91.224.250 (20 Oct 2002 20:24:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:24:05 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from moonbase_v.moonvalley.com (root@moonbase_v.moonvalley.com [204.212.162.1]) by miranova.com (8.7.3/8.6.9) with SMTP id SAA31346 for ; Tue, 16 Jan 1996 18:38:45 -0800 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by moonbase_v.moonvalley.com (8.6.12/8.6.9) with ESMTP id SAA14732 for ; Tue, 16 Jan 1996 18:28:23 -0800 Original-Received: from miranova.com (steve@miranova.com [204.212.162.100]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Wed, 17 Jan 1996 02:59:24 +0100 Original-Received: (from steve@localhost) by miranova.com (8.7.3/8.6.9) id RAA30858; Tue, 16 Jan 1996 17:56:35 -0800 Original-To: ding@ifi.uio.no X-Url: http://www.miranova.com/%7Esteve/ In-Reply-To: Lars Magne Ingebrigtsen's message of 16 Jan 1996 12:40:16 -0800 Original-Lines: 158 X-Mailer: September Gnus v0.27/XEmacs 19.13 Xref: main.gmane.org gmane.emacs.gnus.general:4739 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4739 =================================================================== RCS file: RCS/ChangeLog,v retrieving revision 1.22 diff -u -r1.22 ChangeLog --- ChangeLog 1996/01/16 23:49:31 1.22 +++ ChangeLog 1996/01/17 01:40:17 @@ -1,3 +1,23 @@ +Tue Jan 16 17:25:28 1996 Steven L. Baur + + * nnfolder.el (nnfolder-read-folder): Too many parameters for + find-file-noselect for XEmacs. + + * nnbabyl.el (nnbabyl-read-mbox): Too many parameters for + find-file-noselect for XEmacs. + + * nnmbox.el (nnmbox-possibly-change-newsgroup): Too many parameters + for find-file-noselect for XEmacs. + + * gnus-xmas.el (insert-file-contents-literally): Restored from + v0.26 nnheader.el since XEmacs 19.13 doesn't have this function. + + * gnus-msg.el (gnus-bug): (emacs-version) does not take a parameter + in XEmacs. + + * gnus-nocem.el (gnus-nocem-scan-groups): make-vector takes two + parameters. + Tue Jan 16 21:14:44 1996 Lars Magne Ingebrigtsen * gnus.el (gnus-message-archive-method): Never get new mail. =================================================================== RCS file: RCS/gnus-msg.el,v retrieving revision 1.17 diff -u -r1.17 gnus-msg.el --- gnus-msg.el 1996/01/16 23:49:31 1.17 +++ gnus-msg.el 1996/01/17 01:27:32 @@ -2375,7 +2375,9 @@ (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) (forward-line 1) (insert (gnus-version) "\n") - (emacs-version t) + (if (string-match "XEmacs\\|Lucid" emacs-version) + (emacs-version) + (emacs-version t)) (insert "\n\n\n\n\n") (gnus-debug) (goto-char (point-min)) =================================================================== RCS file: RCS/gnus-nocem.el,v retrieving revision 1.3 diff -u -r1.3 gnus-nocem.el --- gnus-nocem.el 1996/01/16 23:49:31 1.3 +++ gnus-nocem.el 1996/01/17 01:24:55 @@ -83,7 +83,7 @@ group gnus-newsrc-hashtb)))))) ;; Ok, there are new articles in this group, se we fetch the ;; headers. - (let ((gnus-newsgroup-dependencies (make-vector 10)) + (let ((gnus-newsgroup-dependencies (make-vector 10 nil)) headers) (setq headers (if (eq 'nov =================================================================== RCS file: RCS/gnus-xmas.el,v retrieving revision 1.7 diff -u -r1.7 gnus-xmas.el --- gnus-xmas.el 1996/01/16 23:49:31 1.7 +++ gnus-xmas.el 1996/01/17 01:33:37 @@ -538,4 +538,27 @@ (set-specifier (symbol-value gnus-use-toolbar) (cons (current-buffer) gnus-summary-toolbar)))) +;; Written by Erik Naggum . +;; Saved by Steve Baur . +(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))))) + ;;; gnus-xmas.el ends here =================================================================== RCS file: RCS/nnbabyl.el,v retrieving revision 1.6 diff -u -r1.6 nnbabyl.el --- nnbabyl.el 1996/01/16 23:49:31 1.6 +++ nnbabyl.el 1996/01/17 01:38:32 @@ -566,7 +566,9 @@ (let ((delim (concat "^" nnbabyl-mail-delimiter)) start end) (set-buffer (setq nnbabyl-mbox-buffer - (find-file-noselect nnbabyl-mbox-file nil 'raw))) + (if (string-match "XEmacs\\|Lucid" emacs-version) + (find-file-noselect nnbabyl-mbox-file nil) + (find-file-noselect nnbabyl-mbox-file nil 'raw)))) ;; Save buffer mode. (setq nnbabyl-previous-buffer-mode (cons (cons (point-min) (point-max)) =================================================================== RCS file: RCS/nnmbox.el,v retrieving revision 1.5 diff -u -r1.5 nnmbox.el --- nnmbox.el 1996/01/16 23:49:31 1.5 +++ nnmbox.el 1996/01/17 01:36:18 @@ -415,8 +415,10 @@ (if (or (not nnmbox-mbox-buffer) (not (buffer-name nnmbox-mbox-buffer))) (save-excursion - (set-buffer (setq nnmbox-mbox-buffer - (find-file-noselect nnmbox-mbox-file nil 'raw))) + (set-buffer (setq nnmbox-mbox-buffer + (if (string-match "XEmacs\\|Lucid" emacs-version) + (find-file-noselect nnmbox-mbox-file nil) + (find-file-noselect nnmbox-mbox-file nil 'raw)))) (buffer-disable-undo (current-buffer)))) (if (not nnmbox-group-alist) (nnmail-activate 'nnmbox)) =================================================================== RCS file: RCS/nnfolder.el,v retrieving revision 1.6 diff -u -r1.6 nnfolder.el --- nnfolder.el 1996/01/16 23:49:31 1.6 +++ nnfolder.el 1996/01/17 01:39:54 @@ -654,7 +654,9 @@ ;; and add it if it isn't. ;;(if (not (assoc nnfoler-current-group nnfolder-group-alist) (set-buffer (setq nnfolder-current-buffer - (find-file-noselect file nil 'raw))) + (if (string-match "XEmacs\\|Lucid" emacs-version) + (find-file-noselect file nil) + (find-file-noselect file nil 'raw)))) (buffer-disable-undo (current-buffer)) (let ((delim (concat "^" rmail-unix-mail-delimiter)) (marker (concat "\n" nnfolder-article-marker)) -- steve@miranova.com baur