From 3f1c81eabdd3dcbe6389a8da5af49886204d64e5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 19 Nov 1998 05:47:29 +0000 Subject: [PATCH] (gnus-setup-for-offline): Force set `use-miee' to t if `news-method' is equal to "nnspool". (gnus-setup-for-offline): Put a question for "Agent directory" only if `gnus-offline-news-fetch-method' is equal to `nnagent'. (Top-Level): Defvar `use-miee' for avoiding byte-compile warning. --- lisp/gnus-ofsetup.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index d54ed6b..0b7e96f 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.5 1998-11-12 14:08:07 ichikawa Exp $ +;;; $Id: gnus-ofsetup.el,v 1.1.2.6 1998-11-19 05:47:29 yamaoka Exp $ ;;; ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Author: Tatsuya Ichikawa @@ -40,6 +40,7 @@ (defvar pop3-fma-spool-file-alist nil) (defvar pop3-fma-movemail-type nil) (defvar pop3-fma-movemail-arguments nil) +(defvar use-miee nil) (defvar address) (defvar options) @@ -85,8 +86,6 @@ '(("gnus-agent" 1) ("nnspool" 2)) nil t nil)) (mail-method 'nnmail) - (use-miee - (y-or-n-p "Use MIEE post/send message ")) (program (read-file-name "Dialup/Hangup program(type nil you do not use): ")) (mta-type @@ -97,6 +96,9 @@ (num-of-address (read-from-minibuffer "How many e-mail address do you have: ")) ) + (if (string-equal news-method "nnspool") + (setq use-miee t) + (setq use-miee (y-or-n-p "Use MIEE post/send message "))) ;; ;; Set variables. (if (string-equal news-method "gnus-agent") @@ -156,9 +158,10 @@ (setq gnus-offline-drafts-queue-type 'agent)) ;; Setting for gnus-agent. - (let ((agent-directory - (read-from-minibuffer "Agent directory: " "~/News/agent"))) - (setq gnus-agent-directory agent-directory)) + (if (eq gnus-offline-news-fetch-method 'nnagent) + (let ((agent-directory + (read-from-minibuffer "Agent directory: " "~/News/agent"))) + (setq gnus-agent-directory agent-directory))) ;; Determin MTA type. (if (string-equal mta-type "smtp") -- 1.7.10.4