From: ichikawa <ichikawa>
Date: Mon, 14 Dec 1998 04:41:24 +0000 (+0000)
Subject: lisp/gnus-offline.el (gnus-offline-define-menu-and-key): Bug fix.Overwrite the toolba... 
X-Git-Tag: pgnus-ichikawa-199812141900~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d6106334db2b56e282fab98fbd23b4e72016b357;p=elisp%2Fgnus.git-

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
---

diff --git a/ChangeLog b/ChangeLog
index 2b4ca99..a0bfa20 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-14  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
+	* 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   <yamaoka@jpl.org>
 
 	* 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 ()