From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Jul 1995 20:51:00 +0000 (+0000)
Subject: (menu-bar-tools-menu): Don't define gnus entry if no network support.
X-Git-Tag: emacs-19.34~3271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=231e734dd53a07b2fe0f52845834284a58a589a7;p=emacs.git

(menu-bar-tools-menu): Don't define gnus entry if no network support.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 56903cd6c27..ae6e07095f2 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -53,7 +53,8 @@
 
 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar))
 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail))
-(define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus))
+(if (fboundp 'open-network-stream)
+    (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus)))
 
 (define-key menu-bar-tools-menu [separator-vc]
   '("--"))