Latest XEmacs lossage in sgnus 0.15

[William Perry <wmperry@spry.com>]

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))