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

diff --git a/ChangeLog b/ChangeLog
index d750bda..3f9d971 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"))