From dfd7841cace0a47a14767162f8b0495f57006021 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sun, 23 Aug 1998 05:31:40 +0000 Subject: [PATCH] Fix typo --- lisp/gnus-offline.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) 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 ;;; Hidekazu Nakamura -;;; 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 -- 1.7.10.4