From: czkmt <czkmt>
Date: Mon, 22 Mar 1999 21:48:14 +0000 (+0000)
Subject: * lisp/gnus-offline.el (gnus-offline-popup-menu): Fix.
X-Git-Tag: semi-gnus-6_10_11~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a66c3e12af33281b0d7df7bdafde910fc0e4e068;p=elisp%2Fgnus.git-

* lisp/gnus-offline.el (gnus-offline-popup-menu): Fix.
---

diff --git a/ChangeLog b/ChangeLog
index 4235015..ef70b3c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-03-22  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
+	* lisp/gnus-offline.el (gnus-offline-popup-menu): Fix.
+
+1999-03-22  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
 	* lisp/gnus-offline.el (gnus-offline-popup-menu): Modify so that
 	the title of a popup menu is displayed under Emacs 19.34.
 	(gnus-offline-define-menu-and-key): Rewrite the function to change
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 0346ce8..e59c12d 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -1,5 +1,5 @@
 ;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; $Id: gnus-offline.el,v 1.1.4.9 1999-03-22 18:18:47 czkmt Exp $
+;;; $Id: gnus-offline.el,v 1.1.4.10 1999-03-22 21:48:14 czkmt Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -923,22 +923,21 @@ If value is nil , dialup line is disconnected status.")
   (interactive "e")
   (unless gnus-offline-popup-menu
     (setq gnus-offline-popup-menu
-	  (or (featurep 'xemacs)
-	      (let ((menu
-		     (if (boundp 'miee-popup-menu)
-			 (or (assoc 'keymap
-				    (assoc 'Miee (assoc 'menu-bar global-map)))
-			     miee-popup-menu)
-		       gnus-offline-menu-on-agent)))
-		(if (string< emacs-version "20")
-		    (append (list 'keymap
-				  (if (boundp 'miee-popup-menu)
-				      '(nil "Miee")
-				    '(nil "Offline"))
-				  '(nil "")
-				  '(nil ""))
-			    (cdr menu))
-		  menu)))))
+	  (let ((menu
+		 (if (boundp 'miee-popup-menu)
+		     (or (assoc 'keymap
+				(assoc 'Miee (assoc 'menu-bar global-map)))
+			 miee-popup-menu)
+		   gnus-offline-menu-on-agent)))
+	    (if (string< emacs-version "20")
+		(append (list 'keymap
+			      (if (boundp 'miee-popup-menu)
+				  '(nil "Miee")
+				'(nil "Offline"))
+			      '(nil "")
+			      '(nil ""))
+			(cdr menu))
+	      menu))))
   (let* ((pop (x-popup-menu t gnus-offline-popup-menu))
 	 (func (and pop (lookup-key gnus-offline-popup-menu
 				    (apply 'vector pop)))))