From: ichikawa <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/cgi-bin/gitweb.cgi?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  <t-ichi@po.shiojiri.ne.jp>
+
+	* 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 <u90121@uis-inf.co.jp>
 
 	* 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 <t-ichi@po.shiojiri.ne.jp>
@@ -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