[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:34:29 -0400 |
Index: emacs/lisp/gnus/pop3.el
diff -c emacs/lisp/gnus/pop3.el:1.20.2.1 emacs/lisp/gnus/pop3.el:1.20.2.2
*** emacs/lisp/gnus/pop3.el:1.20.2.1 Tue Oct 14 23:34:51 2003
--- emacs/lisp/gnus/pop3.el Thu Sep 16 00:12:16 2004
***************
*** 1,6 ****
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
;; Free Software Foundation, Inc.
;; Author: Richard L. Pieri <address@hidden>
--- 1,6 ----
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Richard L. Pieri <address@hidden>
***************
*** 78,84 ****
;; query for password
(if (and pop3-password-required (not pop3-password))
(setq pop3-password
! (pop3-read-passwd (format "Password for %s: " pop3-maildrop))))
(cond ((equal 'apop pop3-authentication-scheme)
(pop3-apop process pop3-maildrop))
((equal 'pass pop3-authentication-scheme)
--- 78,84 ----
;; query for password
(if (and pop3-password-required (not pop3-password))
(setq pop3-password
! (read-passwd (format "Password for %s: " pop3-maildrop))))
(cond ((equal 'apop pop3-authentication-scheme)
(pop3-apop process pop3-maildrop))
((equal 'pass pop3-authentication-scheme)
***************
*** 88,95 ****
(setq message-count (car (pop3-stat process)))
(unwind-protect
(while (<= n message-count)
! (message (format "Retrieving message %d of %d from %s..."
! n message-count pop3-mailhost))
(pop3-retr process n crashbuf)
(save-excursion
(set-buffer crashbuf)
--- 88,95 ----
(setq message-count (car (pop3-stat process)))
(unwind-protect
(while (<= n message-count)
! (message "Retrieving message %d of %d from %s..."
! n message-count pop3-mailhost)
(pop3-retr process n crashbuf)
(save-excursion
(set-buffer crashbuf)
***************
*** 121,127 ****
;; query for password
(if (and pop3-password-required (not pop3-password))
(setq pop3-password
! (pop3-read-passwd (format "Password for %s: " pop3-maildrop))))
(cond ((equal 'apop pop3-authentication-scheme)
(pop3-apop process pop3-maildrop))
((equal 'pass pop3-authentication-scheme)
--- 121,127 ----
;; query for password
(if (and pop3-password-required (not pop3-password))
(setq pop3-password
! (read-passwd (format "Password for %s: " pop3-maildrop))))
(cond ((equal 'apop pop3-authentication-scheme)
(pop3-apop process pop3-maildrop))
((equal 'pass pop3-authentication-scheme)
***************
*** 177,184 ****
(save-excursion
(set-buffer (process-buffer process))
(goto-char pop3-read-point)
! (while (not (search-forward "\r\n" nil t))
! (accept-process-output process 3)
(goto-char pop3-read-point))
(setq match-end (point))
(goto-char pop3-read-point)
--- 177,185 ----
(save-excursion
(set-buffer (process-buffer process))
(goto-char pop3-read-point)
! (while (and (memq (process-status process) '(open run))
! (not (search-forward "\r\n" nil t)))
! (nnheader-accept-process-output process)
(goto-char pop3-read-point))
(setq match-end (point))
(goto-char pop3-read-point)
***************
*** 192,208 ****
t)
)))))
- (defvar pop3-read-passwd nil)
- (defun pop3-read-passwd (prompt)
- (if (not pop3-read-passwd)
- (if (fboundp 'read-passwd)
- (setq pop3-read-passwd 'read-passwd)
- (if (load "passwd" t)
- (setq pop3-read-passwd 'read-passwd)
- (autoload 'ange-ftp-read-passwd "ange-ftp")
- (setq pop3-read-passwd 'ange-ftp-read-passwd))))
- (funcall pop3-read-passwd prompt))
-
(defun pop3-clean-region (start end)
(setq end (set-marker (make-marker) end))
(save-excursion
--- 193,198 ----
***************
*** 263,269 ****
;; Tue Jul 9 09:04:21 1996
(setq date
(cond ((not date)
! "Tue Jan 1 00:00:0 1900")
((string-match "[A-Z]" (nth 0 date))
(format "%s %s %s %s %s"
(nth 0 date) (nth 2 date) (nth 1 date)
--- 253,259 ----
;; Tue Jul 9 09:04:21 1996
(setq date
(cond ((not date)
! "Tue Jan 1 00:00:0 1900")
((string-match "[A-Z]" (nth 0 date))
(format "%s %s %s %s %s"
(nth 0 date) (nth 2 date) (nth 1 date)
***************
*** 316,322 ****
(let ((pass pop3-password))
(if (and pop3-password-required (not pass))
(setq pass
! (pop3-read-passwd (format "Password for %s: " pop3-maildrop))))
(if pass
(let ((hash (pop3-md5 (concat pop3-timestamp pass))))
(pop3-send-command process (format "APOP %s %s" user hash))
--- 306,312 ----
(let ((pass pop3-password))
(if (and pop3-password-required (not pass))
(setq pass
! (read-passwd (format "Password for %s: " pop3-maildrop))))
(if pass
(let ((hash (pop3-md5 (concat pop3-timestamp pass))))
(pop3-send-command process (format "APOP %s %s" user hash))
***************
*** 363,369 ****
(save-excursion
(set-buffer (process-buffer process))
(while (not (re-search-forward "^\\.\r\n" nil t))
! (accept-process-output process 3)
;; address@hidden ... to save wear and tear on the heap
;; uncommented because the condensed version below is a problem for
;; some.
--- 353,360 ----
(save-excursion
(set-buffer (process-buffer process))
(while (not (re-search-forward "^\\.\r\n" nil t))
! ;; Fixme: Shouldn't depend on nnheader.
! (nnheader-accept-process-output process)
;; address@hidden ... to save wear and tear on the heap
;; uncommented because the condensed version below is a problem for
;; some.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [lexbind],
Miles Bader <=