From 55b13a3667b7d6bcac4244aafa3806f420f1eaba Mon Sep 17 00:00:00 2001 From: ichikawa Date: Thu, 10 Dec 1998 09:58:13 +0000 Subject: [PATCH] lisp/gnus-offline.el: Bug fix. --- ChangeLog | 1 + lisp/gnus-offline.el | 15 +++++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 88a7c7b..48c94f3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ * lisp/gnus-offline.el (gnus-offline-setup): Add gnus-offline-setup to gnus-group-mode-hook. + (gnus-offline-set-offline-sendmail-function): Bug fix. 1998-12-10 Tsukamoto Tetsuo diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index 1a783e1..cfe5212 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.14 1998-12-10 09:38:36 ichikawa Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.15 1998-12-10 09:58:13 ichikawa Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -275,8 +275,8 @@ If value is nil , dialup line is disconnected status.") (gnus-offline-set-offline-sendmail-function)) ((eq gnus-offline-mail-treat-environ 'online) ;; send mail under offline environ. - (gnus-offline-set-online-sendmail-function))) - (add-hook 'gnus-group-mode-hook 'gnus-offline-setup)) + (gnus-offline-set-online-sendmail-function)))) +;; (add-hook 'gnus-group-mode-hook 'gnus-offline-setup)) ;; ;; Setting Error check. @@ -308,8 +308,11 @@ If value is nil , dialup line is disconnected status.") (defun gnus-offline-set-offline-sendmail-function () "*Initialize sendmail-function when unplugged status." (if (eq gnus-offline-drafts-queue-type 'miee) - (setq message-send-mail-function 'sendmail-to-spool-in-gnspool-format) - (setq message-send-mail-function 'gnus-agent-send-mail))) + (if (eq gnus-offline-news-fetch-method 'nnagent) + (setq gnus-agent-send-mail-function 'sendmail-to-spool-in-gnspool-format)) + (setq message-send-mail-function 'sendmail-to-spool-in-gnspool-format) + (setq gnus-agent-send-mail-function message-send-mail-function + message-send-mail-function 'gnus-agent-send-mail))) ;; (defun gnus-offline-set-online-sendmail-function () "*Initialize sendmail-function when plugged status." @@ -745,7 +748,7 @@ If value is nil , dialup line is disconnected status.") (defun gnus-offline-define-menu-on-miee () "*Set menu bar on MIEE menu." (easy-menu-define - gnus-offline-menu-on-miee global-map "Gnus offline menu on Miee" + gnus-offline-menu-on-miee gnus-group-mode-map "Gnus offline menu on Miee" '("Miee" ["Post news in spool" news-spool-post t] ["Send mails in spool" mail-spool-send t] -- 1.7.10.4