From: ichikawa <ichikawa>
Date: Sun, 23 Aug 1998 05:31:40 +0000 (+0000)
Subject: Fix typo
X-Git-Tag: ichikawa-199811302358~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dfd7841cace0a47a14767162f8b0495f57006021;p=elisp%2Fgnus.git-

Fix typo
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index bf4642f..56d1cc5 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -6,7 +6,7 @@
 ;;;         Yukihiro Ito <ito@rs.civil.tohoku.ac.jp>
 ;;;         Hidekazu Nakamura <u90121@uis-inf.co.jp>
 
-;;; Version: 1.51
+;;; Version: 1.52
 ;;; Keywords: news , mail , offline , gnus
 ;;;
 ;;; SPECIAL THANKS
@@ -114,7 +114,7 @@
   :group 'mail
   :group 'news)
 
-(defconst gnus-offline-version-number "1.51")
+(defconst gnus-offline-version-number "1.52")
 (defconst gnus-offline-codename
 ;;  "You may be right"		; 1.40
 ;;  "Chilstie Lee"		; 1.45
@@ -122,8 +122,8 @@
 ;;  "Easy money"		; 1.47
 ;;  "An Innocent man"		; 1.48
 ;;  "Tell her about it"		; 1.50
-  "This night"			; 1.51
-;;  "Movin'out"
+;;  "This night"		; 1.51
+  "Movin'out"			; 1.52
 ;;  "Longest night"
 ;;  "Leave a tender moment alone"
 ;;  "Back in the U.S.S.R"
@@ -222,7 +222,7 @@ smtp means use smtp.el.
   :type '(choice (const smtp)
 		 (const sendmail)))
 
-(defcustom gnus-offline-drafts-queue-type 'miee
+(defcustom gnus-offline-drafts-queue-type 'agent
   "*Type of to queue drafts method.
 'miee means drafts are queued and sent by miee.el.
 'agent means drafts are queued and sent by gnus-agent.el"
@@ -326,8 +326,15 @@ If value is nil , dialup line is disconnected status.")
   
   ;; Spool directory setting - Miee
   (if (eq gnus-offline-drafts-queue-type 'miee)
-      (setq sendmail-to-spool-directory gnus-offline-mail-spool-directory
-	    news-spool-request-post-directory gnus-offline-news-spool-directory))
+      (progn
+	(if (not (file-exists-p gnus-offline-mail-spool-directory))
+	    (progn
+	      (make-directory gnus-offline-mail-spool-directory t)
+	      (setq sendmail-to-spool-directory gnus-offline-mail-spool-directory)))
+	(if (not (file-exists-p gnus-offline-news-spool-directory))
+	    (progn
+	      (make-directory gnus-offline-news-spool-directory t)
+	      (setq news-spool-request-post-directory gnus-offline-news-spool-directory)))))
   
   ;; When startup ... state is offline.
   (setq gnus-nntp-service nil