From: ichikawa <ichikawa>
Date: Mon, 15 Feb 1999 06:24:21 +0000 (+0000)
Subject: 1999-02-15  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
X-Git-Tag: t-gnus-6_10_058-05
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e5bf8d718dbf2481ff60e707e591f15213e9d80c;p=elisp%2Fgnus.git-

1999-02-15  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>

	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): Bug fix when
	using nnspool.

	* lisp/gnus.el (gnus-revision-number): Increment to 05.
---

diff --git a/ChangeLog b/ChangeLog
index 1a54dbb..975d863 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-02-15  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): Bug fix when
+	using nnspool.
+
+	* lisp/gnus.el (gnus-revision-number): Increment to 05.
+
 1999-02-12  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 	
 	* lisp/gnus.el (gnus-revision-number): Increment to 04.
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index a6f9d2e..a3e8be1 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -1,6 +1,6 @@
 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
 ;;;
-;;; $Id: gnus-ofsetup.el,v 1.1.2.14 1999-02-12 06:57:10 ichikawa Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.15 1999-02-15 06:24:21 ichikawa Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -340,7 +340,9 @@
 	(insert "(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news)\n")
 	(insert "(add-hook 'gnus-after-getting-news-hook 'gnus-offline-after-get-new-news)\n")
 	(if (eq gnus-offline-news-fetch-method 'nnspool)
-	    (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n"))
+	    (progn
+	      (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n")
+	      (insert "(add-hook 'gnus-before-startup-hook (lambda () (setq nnmail-spool-file nil)))\n")))
 	(insert "(add-hook 'message-send-hook 'gnus-offline-message-add-header)\n")
 	(insert "(autoload 'gnus-offline-setup \"gnus-offline\")\n")
 	(insert "(add-hook 'gnus-load-hook 'gnus-offline-setup)\n")
@@ -348,7 +350,6 @@
 	(if (not (locate-library "mail-source"))
 	    (progn
 	      ;; Write setting about pop3-fma.
-	      (insert "(setq nnmail-spool-file nil)\n")
 	      (insert "(require 'pop3-fma)\n")
 	      (insert "(add-hook 'message-send-hook 'pop3-fma-message-add-header)\n")
 	      (insert "(setq pop3-fma-spool-file-alist '")
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 93ff1c6..fef35bf 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.058"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "04"
+(defconst gnus-revision-number "05"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.76"