[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [gnus-5_10-branch]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [gnus-5_10-branch] |
Date: |
Sun, 22 Aug 2004 15:58:00 -0400 |
Index: emacs/lisp/gnus/pop3.el
diff -c emacs/lisp/gnus/pop3.el:1.22.2.1 emacs/lisp/gnus/pop3.el:1.22.2.2
*** emacs/lisp/gnus/pop3.el:1.22.2.1 Thu Jul 22 16:45:51 2004
--- emacs/lisp/gnus/pop3.el Sun Aug 22 19:35:29 2004
***************
*** 1,6 ****
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
;; 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>
***************
*** 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))
)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/pop3.el [gnus-5_10-branch],
Reiner Steib <=