* lisp/gnus.el (gnus-revision-number): Increment to 03.

[elisp/gnus.git-] / lisp / gnus-ofsetup.el

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index a6f9d2e..db6f79b 100644 (file)
--- 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.14 1999-02-12 06:57:10 ichikawa Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.17 1999-03-22 18:13:33 czkmt Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -88,7 +88,7 @@
                nil t nil))
              (mail-method 'nnmail)
              (program
-              (read-file-name "Dialup/Hangup program(type nil you do not use): "))
+              (read-file-name "Dialup/Hangup program(type nil or null string you do not use): "))
              (mta-type
               (completing-read
                "Select MTA type for sending mail (TAB to completion): "
@@ -110,7 +110,8 @@
          (setq gnus-offline-use-miee use-miee)
          
          ;; Set programs.
-         (if (string-equal program "nil")
+         (if (or (string-equal program "nil")
+                 (string-equal program ""))
              (progn
                (setq gnus-offline-hangup-program nil)
                (setq gnus-offline-dialup-program nil))
@@ -340,7 +341,9 @@
        (insert "(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news)\n")
        (insert "(add-hook 'gnus-after-getting-news-hook 'gnus-offline-after-get-new-news)\n")
        (if (eq gnus-offline-news-fetch-method 'nnspool)
-           (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n"))
+           (progn
+             (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n")
+             (insert "(add-hook 'gnus-before-startup-hook (lambda () (setq nnmail-spool-file nil)))\n")))
        (insert "(add-hook 'message-send-hook 'gnus-offline-message-add-header)\n")
        (insert "(autoload 'gnus-offline-setup \"gnus-offline\")\n")
        (insert "(add-hook 'gnus-load-hook 'gnus-offline-setup)\n")
@@ -348,7 +351,6 @@
        (if (not (locate-library "mail-source"))
            (progn
              ;; Write setting about pop3-fma.
-             (insert "(setq nnmail-spool-file nil)\n")
              (insert "(require 'pop3-fma)\n")
              (insert "(add-hook 'message-send-hook 'pop3-fma-message-add-header)\n")
              (insert "(setq pop3-fma-spool-file-alist '")
@@ -358,7 +360,7 @@
              (insert (prin1-to-string pop3-fma-movemail-type))
              (insert ")\n")
              (if save-passwd
-                 (insert "(add-hook 'gnus-setup-news-hook \n    (lambda ()\n        (add-to-list 'gnus-variable-list 'pop3-fma-password)))\n"))
+                 (insert "(add-hook 'gnus-setup-news-hook \n    (lambda ()\n        (setq pop3-fma-save-password-information t)\n        (add-to-list 'gnus-variable-list 'pop3-fma-password)))\n"))
              (if (eq pop3-fma-movemail-type 'exe)
                  (progn
                    (insert "(setq pop3-fma-movemail-arguments '")