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

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

diff --git a/ChangeLog b/ChangeLog
index 88a7c7b..48c94f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 	
 	* lisp/gnus-offline.el (gnus-offline-setup): Add
 	gnus-offline-setup to gnus-group-mode-hook.
+	(gnus-offline-set-offline-sendmail-function): Bug fix.
 	
 1998-12-10  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 1a783e1..cfe5212 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.14 1998-12-10 09:38:36 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.15 1998-12-10 09:58:13 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -275,8 +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)))
-  (add-hook 'gnus-group-mode-hook 'gnus-offline-setup))
+	 (gnus-offline-set-online-sendmail-function))))
+;;  (add-hook 'gnus-group-mode-hook 'gnus-offline-setup))
 
 ;;
 ;; Setting Error check.
@@ -308,8 +308,11 @@ If value is nil , dialup line is disconnected status.")
 (defun gnus-offline-set-offline-sendmail-function ()
   "*Initialize sendmail-function when unplugged status."
   (if (eq gnus-offline-drafts-queue-type 'miee)
-      (setq message-send-mail-function 'sendmail-to-spool-in-gnspool-format)
-    (setq message-send-mail-function 'gnus-agent-send-mail)))
+      (if (eq gnus-offline-news-fetch-method 'nnagent)
+	  (setq gnus-agent-send-mail-function 'sendmail-to-spool-in-gnspool-format))
+    (setq message-send-mail-function 'sendmail-to-spool-in-gnspool-format)
+    (setq gnus-agent-send-mail-function message-send-mail-function
+	  message-send-mail-function 'gnus-agent-send-mail)))
 ;;
 (defun gnus-offline-set-online-sendmail-function ()
   "*Initialize sendmail-function when plugged status."
@@ -745,7 +748,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
-   gnus-offline-menu-on-miee global-map "Gnus offline menu on Miee"
+   gnus-offline-menu-on-miee gnus-group-mode-map "Gnus offline menu on Miee"
    '("Miee"
      ["Post news in spool" news-spool-post t]
      ["Send mails in spool" mail-spool-send t]