From d6106334db2b56e282fab98fbd23b4e72016b357 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Mon, 14 Dec 1998 04:41:24 +0000 Subject: [PATCH] lisp/gnus-offline.el (gnus-offline-define-menu-and-key): Bug fix.Overwrite the toolbar spec for gnus-group-mode, under XEmacs. by Tetsuo Tsukamoto --- ChangeLog | 6 ++++++ lisp/gnus-offline.el | 20 ++++++++++++++++---- 2 files changed, 22 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2b4ca99..a0bfa20 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-12-14 Tsukamoto Tetsuo + + * lisp/gnus-offline.el (gnus-offline-define-menu-and-key): Bug + fix. + Overwrite the toolbar spec for gnus-group-mode, under XEmacs. + 1998-12-14 Katsumi Yamaoka * lisp/nnheader.el (nnheader-find-file-noselect): Use diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index 71c58a9..4801547 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.18 1998-12-13 01:12:16 ichikawa Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.19 1998-12-14 04:41:24 ichikawa Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -99,7 +99,7 @@ :group 'mail :group 'news) -(defconst gnus-offline-version-number "2.00") +(defconst gnus-offline-version-number "2.00 pl01") (defconst gnus-offline-codename ;; "Beta5" ; Beta "This is the time" ; 2.00 @@ -719,7 +719,9 @@ If value is nil , dialup line is disconnected status.") (defun gnus-offline-define-menu-and-key () "*Set key and menu." (if (eq gnus-offline-drafts-queue-type 'miee) - (gnus-offline-define-menu-on-miee) + (if (featurep 'xemacs) + (add-hook 'gnus-group-mode-hook 'gnus-offline-define-menu-on-miee) + (gnus-offline-define-menu-on-miee)) (add-hook 'gnus-group-mode-hook 'gnus-offline-define-menu-on-agent)) (add-hook 'gnus-group-mode-hook '(lambda () @@ -743,7 +745,17 @@ If value is nil , dialup line is disconnected status.") '(lambda () (substitute-key-definition 'gnus-agent-toggle-plugged 'gnus-offline-toggle-plugged - gnus-agent-summary-mode-map))))) + gnus-agent-summary-mode-map)))) + (if (featurep 'xemacs) + ;; Overwrite the toolbar spec for gnus-group-mode. + (add-hook 'gnus-startup-hook + (lambda () + (let ((i 0) (stat t) but) + (while (and stat (setq but (nth i gnus-group-toolbar))) + (and (equal 'gnus-group-get-new-news (aref but 1)) + (aset but 1 'gnus-offline-gnus-get-new-news) + (setq stat nil)) + (setq i (1+ i)))))))) ;; ;; (defun gnus-offline-define-menu-on-miee () -- 1.7.10.4