From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4088
Path: main.gmane.org!not-for-mail
From: William Perry <wmperry@spry.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Latest XEmacs lossage in sgnus 0.15
Date: Sat, 25 Nov 1995 11:13:04 -0800
Message-ID: <199511251913.LAA00297@monolith.spry.com>
Reply-To: wmperry@spry.com
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144888 28490 80.91.224.250 (20 Oct 2002 20:14:48 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:14:48 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id LAA19115 for <steve@miranova.com>; Sat, 25 Nov 1995 11:59:01 -0800
Original-Received: from homer.spry.com (homer.spry.com [165.121.12.50]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <UAA23691@ifi.uio.no> for <ding@ifi.uio.no> ; Sat, 25 Nov 1995 20:07:15 +0100
Original-Received: from monolith.spry.com (wmperry@spry-xy1-p16 [165.121.12.216]) by homer.spry.com (8.6.9/8.6.9) with ESMTP id LAA19613 for <ding@ifi.uio.no>; Sat, 25 Nov 1995 11:07:26 -0800
Original-Received: (from wmperry@localhost) by monolith.spry.com (8.6.12/8.6.9) id LAA00297; Sat, 25 Nov 1995 11:13:04 -0800
Original-To: ding@ifi.uio.no
Errors-to: wmperry@spry.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
Xref: main.gmane.org gmane.emacs.gnus.general:4088
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4088

Chokes and dies immediately when gnus-server-mode tries to access the e19
specific variable menu-bar-mode.

It should be enough to just set menu-bar-mode to 't' somewhere, since the
XEmacs menu code is fast enough that it shouldn't matter whether it is
called or not.  I'm not 100% sure where to put the bogus defvar though - I
threw one into gnus-xmas.el just for kicks. Patches below.

Also, several calls to buffer-disable-undo didn't pass in a buffer argument
like XEmacs requires.  Patches below.

-Bill P.

===================================================================
RCS file: gnus-soup.el,v
retrieving revision 1.1
diff -c -r1.1 gnus-soup.el
*** 1.1	1995/11/25 19:08:43
--- gnus-soup.el	1995/11/25 19:08:52
***************
*** 401,407 ****
      (save-excursion
        (set-buffer (find-file-noselect
  		   (concat gnus-soup-directory "AREAS")))
!       (buffer-disable-undo)
        (erase-buffer)
        (let ((areas gnus-soup-areas)
  	    area)
--- 401,407 ----
      (save-excursion
        (set-buffer (find-file-noselect
  		   (concat gnus-soup-directory "AREAS")))
!       (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (let ((areas gnus-soup-areas)
  	    area)
***************
*** 433,439 ****
        (gnus-make-directory dir))
    (save-excursion
      (set-buffer (find-file-noselect (concat dir "REPLIES")))
!     (buffer-disable-undo)
      (erase-buffer)
      (let (area)
        (while areas
--- 433,439 ----
        (gnus-make-directory dir))
    (save-excursion
      (set-buffer (find-file-noselect (concat dir "REPLIES")))
!     (buffer-disable-undo (current-buffer))
      (erase-buffer)
      (let (area)
        (while areas
===================================================================
RCS file: gnus-xmas.el,v
retrieving revision 1.1
diff -c -r1.1 gnus-xmas.el
*** 1.1	1995/11/25 19:09:34
--- gnus-xmas.el	1995/11/25 19:09:43
***************
*** 25,30 ****
--- 25,31 ----
  ;;; Code:
  
  (require 'text-props)
+ (defvar menu-bar-mode t)
  
  (defvar gnus-xmas-glyph-directory nil
    "*Directory where Gnus logos and icons are located.
===================================================================
RCS file: nnsoup.el,v
retrieving revision 1.1
diff -c -r1.1 nnsoup.el
*** 1.1	1995/11/25 19:09:08
--- nnsoup.el	1995/11/25 19:09:14
***************
*** 626,632 ****
  						 (match-end 1))))))))
  	active group lines ident elem min)
      (set-buffer (get-buffer-create " *nnsoup work*"))
!     (buffer-disable-undo)
      (while files
        (message "Doing %s..." (car files))
        (erase-buffer)
--- 626,632 ----
  						 (match-end 1))))))))
  	active group lines ident elem min)
      (set-buffer (get-buffer-create " *nnsoup work*"))
!     (buffer-disable-undo (current-buffer))
      (while files
        (message "Doing %s..." (car files))
        (erase-buffer)
===================================================================
RCS file: nntp.el,v
retrieving revision 1.1
diff -c -r1.1 nntp.el
*** 1.1	1995/11/25 19:09:18
--- nntp.el	1995/11/25 19:09:22
***************
*** 624,630 ****
    (when (file-exists-p "~/.nntp-authinfo")
      (save-excursion
        (set-buffer (get-buffer-create " *authinfo*"))
!       (buffer-disable-undo)
        (erase-buffer)
        (insert-file-contents "~/.nntp-authinfo")
        (goto-char (point-min))
--- 624,630 ----
    (when (file-exists-p "~/.nntp-authinfo")
      (save-excursion
        (set-buffer (get-buffer-create " *authinfo*"))
!       (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (insert-file-contents "~/.nntp-authinfo")
        (goto-char (point-min))