From 145daa03890334c98aacb711e8b8c4f55efa103e Mon Sep 17 00:00:00 2001 From: ichikawa Date: Fri, 12 Feb 1999 06:59:01 +0000 Subject: [PATCH] 1999-02-12 Tatsuya Ichikawa * lisp/read-passwd.el: Change location of (provide read-passwd) * lisp/gnus-offline.el: ditto. 1999-02-12 Hidekazu Nakamura * 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. --- ChangeLog | 16 ++++++++++++++++ lisp/gnus-offline.el | 4 ++-- lisp/gnus-ofsetup.el | 18 ++++++++++-------- lisp/gnus.el | 2 +- lisp/read-passwd.el | 5 +++-- 5 files changed, 32 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9acf5a9..1a54dbb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,19 @@ +1999-02-12 Tatsuya Ichikawa + + * 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 + + * 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 * 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 @@ -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 -- 1.7.10.4