From 51b41aea800ee1b3dc14e1dddfe5c1d74f916834 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Fri, 11 Dec 1998 15:54:35 +0000 Subject: [PATCH] lisp/gnus-offline.el: Bug fix by Hidekazu Nakamura --- ChangeLog | 4 ++++ lisp/gnus-ofsetup.el | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index f910e85..9166487 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-12-12 Hidekazu Nakamura + + * lisp/gnus-ofsetup.el (gnus-setup-for-offline): Bug fix. + 1998-12-12 Tsukamoto Tetsuo * 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 @@ -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. -- 1.7.10.4