From 4b0f986060d48d7afc46a71dbb90ffa01ded030e Mon Sep 17 00:00:00 2001 From: czkmt Date: Thu, 4 Mar 1999 15:21:22 +0000 Subject: [PATCH] * 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. --- ChangeLog | 9 +++++++++ README-offline.en | 3 ++- README-offline.ja | 1 + lisp/gnus-ofsetup.el | 4 ++-- lisp/pop3-fma.el | 6 +++++- 5 files changed, 19 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 63c9bda..cef394f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +1999-03-04 Tsukamoto Tetsuo + + * 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 * lisp/dgnushack.el (dgnushack-install-package): Don't refer to diff --git a/README-offline.en b/README-offline.en index c523d57..d889e94 100644 --- 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 --- a/README-offline.ja +++ b/README-offline.ja @@ -255,6 +255,7 @@ pop $B%5!<%P!<$K%"%/%;%9$9$kEY$KF~NO$9$kI,MW$,$"$j$^$9!#(B($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))) $B!Z(BT-gnus 6.10.56 $B0J9_![(B diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index 4786d4e..d6bf5a9 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.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 @@ -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 --- 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))) -- 1.7.10.4