From: ichikawa <ichikawa>
Date: Thu, 10 Dec 1998 09:38:36 +0000 (+0000)
Subject: lisp/gnus-offline.el: Bug fix.
X-Git-Tag: pgnus-ichikawa-199812101900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c7c9d197073890f1fae5a673ecd4452a74c68ca2;p=elisp%2Fgnus.git-

lisp/gnus-offline.el: Bug fix.
---

diff --git a/ChangeLog b/ChangeLog
index c59a12a..88a7c7b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+1998-12-10  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+	
+	* lisp/gnus-offline.el (gnus-offline-setup): Add
+	gnus-offline-setup to gnus-group-mode-hook.
+	
+1998-12-10  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
+	* lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Bug
+	fix.
+	(gnus-offline-define-menu-on-agent): Bug fix.
+
 1998-12-10  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/pop3.el (pop3-movemail): Use `write-region-as-binary'
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 54e360b..1a783e1 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.13 1998-12-10 06:31:18 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.14 1998-12-10 09:38:36 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -275,7 +275,8 @@ If value is nil , dialup line is disconnected status.")
 	 (gnus-offline-set-offline-sendmail-function))
 	((eq gnus-offline-mail-treat-environ 'online)
 	 ;; send mail under offline environ.
-	 (gnus-offline-set-online-sendmail-function))))
+	 (gnus-offline-set-online-sendmail-function)))
+  (add-hook 'gnus-group-mode-hook 'gnus-offline-setup))
 
 ;;
 ;; Setting Error check.
@@ -744,7 +745,7 @@ 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
-   global-map grobal-map "Gnus offline menu on Miee"
+   gnus-offline-menu-on-miee global-map "Gnus offline menu on Miee"
    '("Miee"
      ["Post news in spool" news-spool-post t]
      ["Send mails in spool" mail-spool-send t]
@@ -752,7 +753,7 @@ If value is nil , dialup line is disconnected status.")
      ["Message Offline" message-offline-state (not message-offline-state)]
      ["Message Online" message-online-state message-online-state]
      "----"
-     '("Gnus Offline"
+     ("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]
@@ -769,7 +770,7 @@ If value is nil , dialup line is disconnected status.")
 (defun gnus-offline-define-menu-on-agent ()
   "*Set menu bar on OFFLINE menu."
   (easy-menu-define 
-   gnus-group-mode-map gnus-group-mode-map "Gnus offline Menu"
+   gnus-offline-menu-on-agent gnus-group-mode-map "Gnus offline Menu"
    '("Offline"
      ["Toggle movemail program" gnus-offline-toggle-movemail-program t]
      ["Toggle articles to fetch" gnus-offline-toggle-articles-to-fetch t]
@@ -779,7 +780,9 @@ If value is nil , dialup line is disconnected status.")
      ["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)])))
+     ["Hang up Line." gnus-offline-set-unplugged-state (gnus-offline-connected)]))
+  (and (featurep 'xemacs)
+       (easy-menu-add gnus-offline-menu-on-agent)))
 
 ;;
 ;; Timer Function