[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el

[Sam Steingold]

Index: emacs/lisp/gnus/pop3.el
diff -c emacs/lisp/gnus/pop3.el:1.20 emacs/lisp/gnus/pop3.el:1.21
*** emacs/lisp/gnus/pop3.el:1.20        Fri Apr 12 10:30:11 2002
--- emacs/lisp/gnus/pop3.el     Wed Jun 11 17:44:12 2003
***************
*** 54,59 ****
--- 54,62 ----
  Defaults to 'pass, for the standard USER/PASS authentication.  Other valid
  values are 'apop.")
  
+ (defvar pop3-leave-mail-on-server nil
+   "*Non-nil if the mail is to be left on the POP server after fetching.")
+ 
  (defvar pop3-timestamp nil
    "Timestamp returned when initially connected to the POP server.
  Used for APOP authentication.")
***************
*** 97,103 ****
              (goto-char (point-min))
              (forward-line 50)
              (delete-region (point-min) (point))))
!         (pop3-dele process n)
          (setq n (+ 1 n))
          (if pop3-debug (sit-for 1) (sit-for 0.1))
          )
--- 100,107 ----
              (goto-char (point-min))
              (forward-line 50)
              (delete-region (point-min) (point))))
!           (unless pop3-leave-mail-on-server
!             (pop3-dele process n))
          (setq n (+ 1 n))
          (if pop3-debug (sit-for 1) (sit-for 0.1))
          )