From a66c3e12af33281b0d7df7bdafde910fc0e4e068 Mon Sep 17 00:00:00 2001 From: czkmt Date: Mon, 22 Mar 1999 21:48:14 +0000 Subject: [PATCH] * lisp/gnus-offline.el (gnus-offline-popup-menu): Fix. --- ChangeLog | 4 ++++ lisp/gnus-offline.el | 33 ++++++++++++++++----------------- 2 files changed, 20 insertions(+), 17 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4235015..ef70b3c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1999-03-22 Tsukamoto Tetsuo + * lisp/gnus-offline.el (gnus-offline-popup-menu): Fix. + +1999-03-22 Tsukamoto Tetsuo + * 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))))) -- 1.7.10.4