From: ichikawa <ichikawa>
Date: Fri, 12 Feb 1999 06:59:01 +0000 (+0000)
Subject: 1999-02-12  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
X-Git-Tag: t-gnus-6_10_058-04
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=145daa03890334c98aacb711e8b8c4f55efa103e;p=elisp%2Fgnus.git-

1999-02-12  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>

	* lisp/read-passwd.el: Change location of (provide read-passwd)
	* lisp/gnus-offline.el: ditto.

1999-02-12   Hidekazu Nakamura <u90121@uis-inf.co.jp>

	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): To work with APOP
	authentication scheme.

	* lisp/read-passwd..el (read-pw-set-mail-source-passwd-cache):
	Undo my change.
---

diff --git a/ChangeLog b/ChangeLog
index 9acf5a9..1a54dbb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,19 @@
+1999-02-12  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+	
+	* lisp/gnus.el (gnus-revision-number): Increment to 04.
+	
+	* lisp/read-passwd.el: Change location of (provide 'read-passwd)
+	
+	* lisp/gnus-offline.el: ditto.
+	
+1999-02-12   Hidekazu Nakamura <u90121@uis-inf.co.jp>
+
+	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): To work with APOP
+	authentication scheme.
+
+	* lisp/read-passwd..el (read-pw-set-mail-source-passwd-cache):
+	Undo my change.
+
 1999-02-12  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/gnus.el (gnus-revision-number): Increment to 03.
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index cfbc454..011e4b5 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -1,5 +1,5 @@
 ;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; $Id: gnus-offline.el,v 1.1.2.5.2.32 1999-02-07 07:33:18 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.33 1999-02-12 06:57:09 ichikawa Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -82,6 +82,7 @@
 (require 'cl)
 (require 'custom)
 (require 'easymenu)
+(provide 'gnus-offline)
 
 (unless (and (condition-case ()
 		 (require 'custom)
@@ -883,5 +884,4 @@ If value is nil , dialup line is disconnected status.")
       (gnus-demon-remove-handler 'gnus-offline-gnus-get-new-news t)))
 ;;
 ;;
-(provide 'gnus-offline)
 ;;; gnus-offline.el ends here
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 57f0841..a6f9d2e 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.13 1999-02-12 01:45:31 ichikawa Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.14 1999-02-12 06:57:10 ichikawa Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -227,7 +227,7 @@
 			    (append mail-source
 				    (list
 				     (list
-				      auth
+				      'pop
 				      :user user
 				      :server server
 				      :program
@@ -236,21 +236,23 @@
 					      args
 					      "po:%u"
 					      "%t"
-					      "%p"))))))
+					      "%p")
+					      :authentication auth)))))
 		  (setq mail-source
 			(append mail-source
 				(list
 				 (list
-				  auth
+				  'pop
 				  :user user
-				  :server server))))))
+				  :server server
+				  :authentication auth))))))
 	      (setq i (- i 1)))
 	    ;; Replace "hoge" -> 'hoge
 	    (mapcar
 	     (lambda (x)
-	       (if (string-equal (nth 0 x) "pop")
-		   (setcar x 'pop)
-		 (setcar x 'apop)))
+	       (if (string-equal (car (last x)) "pop")
+		   (setcar (last x) (quote 'pop))
+		 (setcar (last x) (quote 'apop))))
 	     mail-source)
 	    (setq gnus-offline-mail-source mail-source)))
 
diff --git a/lisp/gnus.el b/lisp/gnus.el
index c4a3225..93ff1c6 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.058"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "03"
+(defconst gnus-revision-number "04"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.76"
diff --git a/lisp/read-passwd.el b/lisp/read-passwd.el
index b62d183..6f3c712 100644
--- a/lisp/read-passwd.el
+++ b/lisp/read-passwd.el
@@ -26,6 +26,7 @@
 ;;
 ;;
 (require 'mail-source)
+(provide 'read-passwd)
 
 (defun read-pw-read-passwd (prompt)
   (read-pw-read-noecho prompt t))
@@ -92,7 +93,7 @@ Argument PROMPT ."
 	      (mail-source-bind (pop x)
 		(let ((from (format "%s:%s:%s" server user port))
 		      (mail-source-string
-		       (format "%s:%s@%s" (car x) user server)))
+		       (format "pop:%s@%s" user server)))
 		  (setq pw (read-pw-return-passwd-string user server))
 		  (unless (assoc user mail-source-password-cache)
 		    (set-alist 'mail-source-password-cache
@@ -108,4 +109,4 @@ Argument PROMPT ."
 		(message "POP Password for %s at %s : " user server)))
   passwd)
 ;;
-(provide 'read-passwd)
+;; read-passwd.el ends here.
\ No newline at end of file