From: ichikawa <ichikawa>
Date: Fri, 11 Dec 1998 15:54:35 +0000 (+0000)
Subject: lisp/gnus-offline.el: Bug fix by Hidekazu Nakamura
X-Git-Tag: pgnus-ichikawa-199812111900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=51b41aea800ee1b3dc14e1dddfe5c1d74f916834;p=elisp%2Fgnus.git-

lisp/gnus-offline.el: Bug fix by Hidekazu Nakamura
---

diff --git a/ChangeLog b/ChangeLog
index f910e85..9166487 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-12-12  Hidekazu Nakamura <u90121@uis-inf.co.jp>
+
+	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): Bug fix.
+
 1998-12-12  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
 	* lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Bug
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index ce8ea27..1dd7785 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.7 1998-11-20 12:20:35 ichikawa Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.8 1998-12-11 15:54:35 ichikawa Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -260,7 +260,10 @@
 	      (insert ")\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 "(load \"miee\")\n")))
+	      (insert "(load \"miee\")\n")
+	      (insert "(setq message-send-news-function '")
+	      (insert (prin1-to-string message-send-news-function))
+	      (insert ")\n")))
 
 	;; write setting about nnspool and gnus-agent.
 	(if (equal gnus-offline-news-fetch-method 'nnspool)
@@ -311,4 +314,4 @@
 	(kill-buffer "* Setting"))
     )
   (load gnus-offline-setting-file))
-;; gnus-ofsetup.el Ends here.
\ No newline at end of file
+;; gnus-ofsetup.el Ends here.