From: ichikawa <ichikawa>
Date: Wed, 11 Nov 1998 14:36:14 +0000 (+0000)
Subject: lisp/gnus-ofsetup.el,lisp/gnus-offline.el: Bug fix.
X-Git-Tag: pgnus-ichikawa-199811302358~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9551cf6a4d5d49a5640245b3e966f696197d9bfa;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index d750bda..3f9d971 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-11-11  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/gnus-offline.el: bug fix.
+
+	* lisp/gnus-ofsetup.el: Bug fix.
+
 1998-11-11  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/message.el (message-send-mail): Protect against errors.
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 2e78f30..5da32b2 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.6 1998-11-10 14:53:51 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.7 1998-11-11 14:36:13 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -254,6 +254,9 @@ If value is nil , dialup line is disconnected status.")
      (setq byte-compile-warnings nil))))
        
 (put 'gnus-offline-set-unplugged-state 'menu-enable 'gnus-offline-connected)
+(define-process-argument-editing "/hang\\.exe\\'"
+  (lambda (x) (general-process-argument-editing-function
+	       x nil t t nil t t)))
 ;;; Functions
 ;;
 ;; Setting up...
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 6edc8bc..f34902c 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -1,5 +1,5 @@
 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
-;;; $Id: gnus-ofsetup.el,v 1.1.2.2 1998-11-10 14:53:51 ichikawa Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.3 1998-11-11 14:36:14 ichikawa Exp $
 
 ;;; Code:
 
@@ -206,7 +206,10 @@
 	      (insert (prin1-to-string gnus-offline-news-spool-directory))
 	      (insert ")\n")
 	      (insert "(load \"miee\")\n")
-	      (insert "(message-offline-state)\n"))
+	      (if (equal gnus-offline-news-fetch-method 'nnspool)
+		  (insert "(message-offline-state)\n")))
+	  (insert "(setq sendmail-to-spool-directory gnus-offline-mail-spool-directory)\n")
+	  (insert "(setq news-spool-request-post-directory gnus-offline-news-spool-directory)\n")
 	  (insert "(setq gnus-agent-directory ")
 	  (insert (prin1-to-string gnus-agent-directory))
 	  (insert ")\n"))