From: ichikawa <ichikawa>
Date: Fri, 11 Dec 1998 15:43:46 +0000 (+0000)
Subject: lisp/gnus-offline.el: Bug fix by Tetsuo Tsukamoto
X-Git-Tag: pgnus-ichikawa-199812111900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7a59d6edb389d03e67b9a544ebd7973f405c689d;p=elisp%2Fgnus.git-

lisp/gnus-offline.el: Bug fix by Tetsuo Tsukamoto
---

diff --git a/ChangeLog b/ChangeLog
index 6ea2537..f910e85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-12  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
+	* lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Bug
+	fix.
+	(gnus-offline-set-offline-sendmail-function): Bug fix.
+	
 1998-12-11  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
 	* lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Change 
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index bcba491..b759b94 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.16 1998-12-11 02:06:34 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.17 1998-12-11 15:43:46 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -308,10 +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)
-      (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
+      (progn
+	(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 (gnus-offline-set-online-sendmail-function)
 	  message-send-mail-function 'gnus-agent-send-mail)))
 ;;
 (defun gnus-offline-set-online-sendmail-function ()
@@ -766,7 +767,7 @@ 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]
       ))))
 ;;
 ;; define menu without miee.
@@ -784,7 +785,7 @@ 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)))