From: ichikawa Date: Wed, 3 Feb 1999 02:06:22 +0000 (+0000) Subject: lisp/gnus-ofsetup.el (gnus-setup-for-offline): Ask save password information X-Git-Tag: t-gnus-6_10_057-00~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a335fd64f38477c06a82a7559fdd883efe5fa778;p=elisp%2Fgnus.git- lisp/gnus-ofsetup.el (gnus-setup-for-offline): Ask save password information to .newsrc file. lisp/gnus.el (gnus-variable-list): Undo my last change. --- diff --git a/ChangeLog b/ChangeLog index 8d121f2..feafb1d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1999-02-02 Tatsuya Ichikawa + + * lisp/gnus-ofsetup.el (gnus-setup-for-offline): Ask save password + information to .newsrc file. + + * lisp/gnus.el (gnus-variable-list): Undo my last change. + 1999-02-03 Hidekazu Nakamura * lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index d75966c..d70d119 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.2.10 1999-02-02 14:38:13 ichikawa Exp $ +;;; $Id: gnus-ofsetup.el,v 1.1.2.11 1999-02-03 02:06:20 ichikawa Exp $ ;;; ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Author: Tatsuya Ichikawa @@ -248,6 +248,10 @@ (setcar x 'apop))) mail-source) (setq gnus-offline-mail-source mail-source))) + + (setq save-passwd + (y-or-n-p "Do you save password information to newsrc file? ")) + ;; Write to setting file. (setq tmp-buffer (get-buffer-create "* Setting")) (set-buffer "* Setting") @@ -346,6 +350,8 @@ (insert "(setq pop3-fma-movemail-type '") (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")) (if (eq pop3-fma-movemail-type 'exe) (progn (insert "(setq pop3-fma-movemail-arguments '") @@ -358,7 +364,9 @@ (insert "(setq nnmail-spool-file gnus-offline-mail-source)\n") (insert "(require 'read-passwd)\n") (insert "(setq mail-source-read-passwd 'read-pw-read-passwd)\n") - (insert "(add-hook 'gnus-before-startup-hook 'read-pw-set-mail-source-passwd-cache)\n"); + (insert "(add-hook 'gnus-setup-news-hook 'read-pw-set-mail-source-passwd-cache)\n") + (if save-passwd + (insert "(add-hook 'gnus-setup-news-hook \n (lambda ()\n (add-to-list 'gnus-variable-list 'mail-source-password-cache)))\n")) ) (write-region (point-min) (point-max) gnus-offline-setting-file) (kill-buffer "* Setting")) diff --git a/lisp/gnus.el b/lisp/gnus.el index 7cf8cdb..7b7d9e2 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1622,8 +1622,7 @@ This variable can be nil, gnus or gnus-ja." gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list gnus-topic-topology gnus-topic-alist - gnus-format-specs - mail-source-password-cache) + gnus-format-specs) "Gnus variables saved in the quick startup file.") (defvar gnus-newsrc-alist nil