From 7a59d6edb389d03e67b9a544ebd7973f405c689d Mon Sep 17 00:00:00 2001 From: ichikawa Date: Fri, 11 Dec 1998 15:43:46 +0000 Subject: [PATCH] lisp/gnus-offline.el: Bug fix by Tetsuo Tsukamoto --- ChangeLog | 6 ++++++ lisp/gnus-offline.el | 15 ++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6ea2537..f910e85 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-12-12 Tsukamoto Tetsuo + + * lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Bug + fix. + (gnus-offline-set-offline-sendmail-function): Bug fix. + 1998-12-11 Tatsuya Ichikawa * lisp/gnus-offline.el (gnus-offline-define-menu-on-miee): Change diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el index bcba491..b759b94 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.16 1998-12-11 02:06:34 ichikawa Exp $ +;;; $Id: gnus-offline.el,v 1.1.2.5.2.17 1998-12-11 15:43:46 ichikawa Exp $ ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Yukihiro Ito @@ -308,10 +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) - (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 + (progn + (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 (gnus-offline-set-online-sendmail-function) message-send-mail-function 'gnus-agent-send-mail))) ;; (defun gnus-offline-set-online-sendmail-function () @@ -766,7 +767,7 @@ If value is nil , dialup line is disconnected status.") ["Expire articles" gnus-offline-agent-expire (eq gnus-offline-news-fetch-method 'nnagent)] ["Set interval time" gnus-offline-set-interval-time t] "----" - ["Hang up Line." gnus-offline-set-unplugged-state (gnus-offline-connected)] + ["Hang up Line." gnus-offline-set-unplugged-state gnus-offline-connected] )))) ;; ;; define menu without miee. @@ -784,7 +785,7 @@ If value is nil , dialup line is disconnected status.") ["Expire articles" gnus-offline-agent-expire (eq gnus-offline-news-fetch-method 'nnagent)] ["Set interval time" gnus-offline-set-interval-time t] "----" - ["Hang up Line." gnus-offline-set-unplugged-state (gnus-offline-connected)])) + ["Hang up Line." gnus-offline-set-unplugged-state gnus-offline-connected])) (and (featurep 'xemacs) (easy-menu-add gnus-offline-menu-on-agent))) -- 1.7.10.4