/[emacs]/emacs/lisp/gnus/pop3.el
ViewVC logotype

Diff of /emacs/lisp/gnus/pop3.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22.2.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.22.2.2 by rsteib, Sun Aug 22 19:35:29 2004 UTC
# Line 1  Line 1 
1  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface
2    
3  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
4  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
5    
6  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
# Line 54  Line 54 
54  Defaults to 'pass, for the standard USER/PASS authentication.  Other valid  Defaults to 'pass, for the standard USER/PASS authentication.  Other valid
55  values are 'apop.")  values are 'apop.")
56    
57    (defvar pop3-leave-mail-on-server nil
58      "*Non-nil if the mail is to be left on the POP server after fetching.")
59    
60  (defvar pop3-timestamp nil  (defvar pop3-timestamp nil
61    "Timestamp returned when initially connected to the POP server.    "Timestamp returned when initially connected to the POP server.
62  Used for APOP authentication.")  Used for APOP authentication.")
# Line 97  Used for APOP authentication.") Line 100  Used for APOP authentication.")
100                (goto-char (point-min))                (goto-char (point-min))
101                (forward-line 50)                (forward-line 50)
102                (delete-region (point-min) (point))))                (delete-region (point-min) (point))))
103            (pop3-dele process n)            (unless pop3-leave-mail-on-server
104                (pop3-dele process n))
105            (setq n (+ 1 n))            (setq n (+ 1 n))
106            (if pop3-debug (sit-for 1) (sit-for 0.1))            (if pop3-debug (sit-for 1) (sit-for 0.1))
107            )            )

Legend:
Removed from v.1.22.2.1  
changed lines
  Added in v.1.22.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26