a true pop3 backend?

[Wes hardaker <hardaker@calwest.net>]

[-- Attachment #1: Type: text/plain, Size: 1105 bytes --]


It would be cool to have a true pop3 backend (nnpop).  What's the difference?

It would actually leave the messages on the pop3 server and would work
similar to the nntp backend...  Get the headers, generate the summary
and download the article when you actually requested it.  Marking
something as expirable would delete it from the server on exit.

Of course, this isn't for the idiot, as they shouldn't leave an
obscene amount of mail on a pop server that couldn't take it.  It's
for those of us that want to read mail in gnus away from our main
~/Mail directory.  I work at home 3-4 days a week, which is where I
keep my real mail.  When I actually go into the office I want to use
gnus and check my mail, possibly respond, but not actually download it
from the server.

Should be easy to implement I think.

Currently I'm using the appended patch against 0.12's pop3.el, which
is ok, but it downloads the entire set of mail multiple times.  Ick.

(I'm submitting this patch for the archives as well, obviously).

Wes
-- 
"Ninjas aren't dangerous.  They're more afraid of you than you are of them."


[-- Attachment #2: Type: text/plain, Size: 1184 bytes --]


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."