* lisp/gnus-ofsetup.el: Modify for Semi-gnus 6.10.xx so that

`pop3-fma-password' can be saved in .newsrc.eld.
* lisp/pop3-fma.el: Ditto.
* README-offline.en: Update.
* README-offline.ja: Ditto.

diff --git a/ChangeLog b/ChangeLog
index 63c9bda..cef394f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1999-03-04  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
+       * lisp/gnus-ofsetup.el: Modify for Semi-gnus 6.10.xx so that
+       `pop3-fma-password' can be saved in .newsrc.eld.
+       * lisp/pop3-fma.el: Ditto.
+
+       * README-offline.en: Update.
+       * README-offline.ja: Ditto.
+
 1999-03-01  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * lisp/dgnushack.el (dgnushack-install-package): Don't refer to

diff --git a/README-offline.en b/README-offline.en
index c523d57..d889e94 100644 (file)
--- a/README-offline.en
+++ b/README-offline.en
@@ -256,6 +256,7 @@ password will be saved in ~/.newsrc.eld. (*)
 
             (add-hook 'gnus-setup-news-hook 
              (lambda ()
+              (setq pop3-fma-save-password-information t)
               (add-to-list 'gnus-variable-list 'pop3-fma-password)))
 
            [T-gnus 6.10.56 or later]
@@ -277,7 +278,7 @@ For Semi-gnus with pop3-fma.el, add the following code in
 
          (setq pop3-fma-save-password-information t)
 
-In this way, Once you enter the password at the startup of Gnus, it
+In this way, once you enter the password at the startup of Gnus, it
 will be kept as a variable `pop3-fma-password' until you quit Gnus.
 
 Under T-gnus 6.10.56 or later, the password will be kept as a variable

diff --git a/README-offline.ja b/README-offline.ja
index cf34462..107ae49 100644 (file)
--- a/README-offline.ja
+++ b/README-offline.ja
@@ -255,6 +255,7 @@ pop \e$B%5!<%P!<$K%"%/%;%9$9$kEY$KF~NO$9$kI,MW$,$"$j$^$9!#\e(B(\e$B4pK\E*$K$3$N$^$^
 
             (add-hook 'gnus-setup-news-hook 
              (lambda ()
+              (setq pop3-fma-save-password-information t)
               (add-to-list 'gnus-variable-list 'pop3-fma-password)))
 
          \e$B!Z\e(BT-gnus 6.10.56 \e$B0J9_![\e(B

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 4786d4e..d6bf5a9 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.4.6 1999-02-18 20:30:25 czkmt Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.4.7 1999-03-04 15:21:21 czkmt Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -360,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 '")

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 65a250a..d6ecf68 100644 (file)
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -195,13 +195,17 @@ If there is any problem , please set this variable to nil(default).
   "Function to move mail from INBOX on a pop3 server to file CRASHBOX."
   (if (string-match "^po:" inbox)
       (progn
+       (if (and pop3-fma-save-password-information
+                (not pop3-fma-password))
+           (pop3-fma-set-pop3-password))
        (let ((pop3-maildrop
               (substring inbox (match-end (string-match "^po:" inbox))
                          (- (match-end (string-match "^.*@" inbox)) 1)))
              (pop3-mailhost
               (substring inbox (match-end (string-match "^.*@" inbox))))
              (pop3-password
-              (if pop3-fma-save-password-information
+              (if (and pop3-fma-save-password-information
+                       pop3-fma-password)
                   (pop3-fma-read-passwd (substring inbox (match-end (string-match "^.*@" inbox))))
                 (pop3-fma-input-password
                  (substring inbox (match-end (string-match "^.*@" inbox)))