/[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.20 by lektu, Fri Apr 12 14:30:11 2002 UTC revision 1.20.2.1 by miles, Tue Oct 14 23:34:51 2003 UTC
# 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            )            )
# Line 510  and close the connection." Line 514  and close the connection."
514    
515  (provide 'pop3)  (provide 'pop3)
516    
517    ;;; arch-tag: 2facc142-1d74-498e-82af-4659b64cac12
518  ;;; pop3.el ends here  ;;; pop3.el ends here

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.20.2.1

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