From xemacs-m  Sat Mar 15 16:16:47 1997
Received: from sol1.cybernet-ag.net (sol1.cybernet-ag.net [194.221.86.98])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA19887
	for <xemacs-beta@xemacs.org>; Sat, 15 Mar 1997 16:16:45 -0600 (CST)
Received: (from aseibert@localhost) by sol1.cybernet-ag.net  id XAA13530; Sat, 15 Mar 1997 23:15:45 +0100 (MET)
Date: Sat, 15 Mar 1997 23:15:45 +0100 (MET)
Message-Id: <199703152215.XAA13530@sol1.cybernet-ag.net>
From: Axel Seibert <aseibert@cybernet-ag.net>
To: xemacs-beta@xemacs.org
Subject: dired/gnus on a tty

Hi, all!

I found that with b98 (maybe since b96?) I can't use dired and gnus on
a tty any more. Here's a patch to remedy the situation, but I'm not
sure if the places I patch are the correct ones. Could somebody please
proofread?

Thanx,
Axel

*** lisp/efs/dired-xemacs.el.orig       Thu Mar 13 20:31:59 1997
--- lisp/efs/dired-xemacs.el    Thu Mar 13 21:36:27 1997
***************
*** 274,281 ****
    "Installs the Dired menu at the menubar."
    (if (null dired-help-menu)
        (dired-setup-menus))
!   (if current-menubar
!       (progn
        (let ((buffer-menubar (copy-sequence current-menubar)))
          (delete (assoc "Edit" buffer-menubar) buffer-menubar)
          (set-buffer-menubar buffer-menubar)
--- 274,282 ----
    "Installs the Dired menu at the menubar."
    (if (null dired-help-menu)
        (dired-setup-menus))
!   (if (featurep 'menubar)
!       (if current-menubar
!         (progn
        (let ((buffer-menubar (copy-sequence current-menubar)))
          (delete (assoc "Edit" buffer-menubar) buffer-menubar)
          (set-buffer-menubar buffer-menubar)
***************
*** 287,293 ****
                (add-submenu nil (cons name menu)))))
           dired-menubar-menus))
        (add-menu-button '("Help") (list "---"))
!       (add-submenu '("Help") (cons "Dired" dired-help-menu)))))
  
  (add-hook 'dired-mode-hook 'dired-install-menubar)
  
--- 288,294 ----
                (add-submenu nil (cons name menu)))))
           dired-menubar-menus))
        (add-menu-button '("Help") (list "---"))
!       (add-submenu '("Help") (cons "Dired" dired-help-menu))))))
  
  (add-hook 'dired-mode-hook 'dired-install-menubar)
  
*** lisp/gnus/gnus-xmas.el.orig Sun Mar  9 03:37:02 1997
--- lisp/gnus/gnus-xmas.el      Sat Mar 15 20:49:57 1997
***************
*** 142,148 ****
  This is ugly, but it works around a bug in
`window-displayed-height'.")
  
  (defun gnus-xmas-switch-horizontal-scrollbar-off ()
!   (set-specifier scrollbar-height (cons (current-buffer) 0)))
  
  (defun gnus-xmas-summary-recenter ()
    "\"Center\" point in the summary window.
--- 142,148 ----
  This is ugly, but it works around a bug in
`window-displayed-height'.")
  
  (defun gnus-xmas-switch-horizontal-scrollbar-off ()
!   (if (featurep 'scrollbar) (set-specifier scrollbar-height (cons (current-buffer) 0))))
  
  (defun gnus-xmas-summary-recenter ()
    "\"Center\" point in the summary window.

