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 (file)
--- 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 (file)
--- 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 (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.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 (file)
--- 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 (file)
--- 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