From 2072e2b78894b5016aa8308fc91c4d4d7c03e6ca Mon Sep 17 00:00:00 2001 From: ichikawa Date: Fri, 11 Dec 1998 02:06:34 +0000 Subject: [PATCH] lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Change easy-menu-define to easy-menu-change to override miee menu. --- ChangeLog | 5 +++++ lisp/gnus-offline.el | 31 ++++++++++++++++--------------- 2 files changed, 21 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index c133132..6ea2537 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-12-11 Tatsuya Ichikawa + + * lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Change + easy-menu-define to easy-menu-change to override miee menu. + 1998-12-11 Katsumi Yamaoka * lisp/nnheader.el (nnheader-find-file-noselect): Call diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index cfe5212..bcba491 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.15 1998-12-10 09:58:13 ichikawa Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.16 1998-12-11 02:06:34 ichikawa Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -746,10 +746,11 @@ If value is nil , dialup line is disconnected status.") ;; ;; (defun gnus-offline-define-menu-on-miee () - "*Set menu bar on MIEE menu." - (easy-menu-define - gnus-offline-menu-on-miee gnus-group-mode-map "Gnus offline menu on Miee" - '("Miee" + "*Set and change menu bar on MIEE menu." + (easy-menu-change + nil + "Miee" + '(nil ["Post news in spool" news-spool-post t] ["Send mails in spool" mail-spool-send t] "----" @@ -757,16 +758,16 @@ If value is nil , dialup line is disconnected status.") ["Message Online" message-online-state message-online-state] "----" ("Gnus Offline" - ["Toggle movemail program" gnus-offline-toggle-movemail-program t] - ["Toggle articles to fetch" gnus-offline-toggle-articles-to-fetch t] - ["Toggle online/offline send mail" gnus-offline-toggle-on/off-send-mail t] - ["Toggle auto hangup" gnus-offline-toggle-auto-hangup t] - "----" - ["Expire articles" gnus-offline-agent-expire (eq gnus-offline-news-fetch-method 'nnagent)] - ["Set interval time" gnus-offline-set-interval-time t] - "----" - ["Hang up Line." gnus-offline-set-unplugged-state (gnus-offline-connected)] - )))) + ["Toggle movemail program" gnus-offline-toggle-movemail-program t] + ["Toggle articles to fetch" gnus-offline-toggle-articles-to-fetch t] + ["Toggle online/offline send mail" gnus-offline-toggle-on/off-send-mail t] + ["Toggle auto hangup" gnus-offline-toggle-auto-hangup t] + "----" + ["Expire articles" gnus-offline-agent-expire (eq gnus-offline-news-fetch-method 'nnagent)] + ["Set interval time" gnus-offline-set-interval-time t] + "----" + ["Hang up Line." gnus-offline-set-unplugged-state (gnus-offline-connected)] + )))) ;; ;; define menu without miee. ;; -- 1.7.10.4