From: yamaoka <yamaoka>
Date: Thu, 19 Nov 1998 05:47:29 +0000 (+0000)
Subject: (gnus-setup-for-offline): Force set `use-miee' to t if `news-method' is
X-Git-Tag: pgnus-ichikawa-199811302358~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f1c81eabdd3dcbe6389a8da5af49886204d64e5;p=elisp%2Fgnus.git-

(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.
---

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 <t-ichi@po.shiojiri.ne.jp>
@@ -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")