Index: pop3.el
===================================================================
RCS file: /home/hardaker/src/cvsroot/qgnus/pop3.el,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 pop3.el
*** pop3.el     1997/10/10 15:51:46     1.1.1.1
--- pop3.el     1997/10/17 20:05:45
***************
*** 66,71 ****
--- 66,74 ----
  (defvar pop3-read-point nil)
  (defvar pop3-debug nil)
  
+ (defvar pop3-delete-incoming t
+   "Delete incoming mail from the pop server after downloading?")
+ 
  (defun pop3-movemail (&optional crashbox)
    "Transfer contents of a maildrop to the specified CRASHBOX."
    (or crashbox (setq crashbox (expand-file-name "~/.crashbox")))
***************
*** 347,354 ****
  
  (defun pop3-dele (process msg)
    "Mark message-id MSG as deleted."
!   (pop3-send-command process (format "DELE %s" msg))
!   (pop3-read-response process))
  
  (defun pop3-noop (process msg)
    "No-operation."
--- 350,358 ----
  
  (defun pop3-dele (process msg)
    "Mark message-id MSG as deleted."
!   (when pop3-delete-incoming
!     (pop3-send-command process (format "DELE %s" msg))
!     (pop3-read-response process)))
  
  (defun pop3-noop (process msg)
    "No-operation."