From 8fcb6f5827b0acbc04197922965be78ce66eeaf9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 10 Jan 1999 23:08:21 +0000 Subject: [PATCH] ;; Commit by Tsukamoto-san by way of yamaoka. * (gnus-offline-popup-menu): Bug fix -- Use `gnus-offline-menu-on-agent' if `miee-popup-menu' does not exits. --- ChangeLog | 5 +++++ lisp/gnus-offline.el | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 85ae291..6082e88 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-01-09 Tsukamoto Tetsuo + + * lisp/gnus-offline.el (gnus-offline-popup-menu): Bug fix -- Use + `gnus-offline-menu-on-agent' if `miee-popup-menu' does not exits. + 1999-01-08 Katsumi Yamaoka * lisp/pop3.el (pop3-last): Use `split-string' instead of diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index a73f29e..c25d98c 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.2.5.2.23 1999-01-06 22:22:40 yamaoka Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.24 1999-01-10 23:08:18 yamaoka Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -848,10 +848,11 @@ If value is nil , dialup line is disconnected status.") (defun gnus-offline-popup-menu (event) "Popup menu for Gnus offline." (interactive "e") - (let* ((menu (or - (and (boundp 'miee-popup-menu) - (assoc 'keymap (assoc 'Miee (assoc 'menu-bar global-map)))) - gnus-offline-menu-on-agent)) + (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)) (pop (x-popup-menu t menu)) (func (and pop (lookup-key menu (apply 'vector pop))))) (and pop func (funcall func)))) -- 1.7.10.4