Bug in gnus pop3-munge-message-separator

Bug in gnus pop3-munge-message-separator

[Kim F. Storm]

For some time, gnus (from emacs CVS) wasn't able to receive mail
from one of my mail accounts (it barfs about nil is not a string).

I tracked this down to messages with an empty Date: header.

The following patch fixes this.  I don't know if this is the proper
way to fix it, but at least it works...

Index: pop3.el
===================================================================
RCS file: /cvs/emacs/lisp/gnus/pop3.el,v
retrieving revision 1.17
diff -c -r1.17 pop3.el
*** pop3.el	15 Jul 2001 16:15:34 -0000	1.17
--- pop3.el	11 Apr 2002 13:36:56 -0000
***************
*** 245,251 ****
  		   (looking-at "BABYL OPTIONS:") ; Babyl
  		   ))
  	  (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! 		(date (split-string (or (mail-fetch-field "Date")
  					(pop3-make-date))
  				    " "))
  		(From_))
--- 245,252 ----
  		   (looking-at "BABYL OPTIONS:") ; Babyl
  		   ))
  	  (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
! 		(date (split-string (or (let ((df (mail-fetch-field "Date")))
! 					  (if (and df (stringp df) (> (length df) 0)) df))
  					(pop3-make-date))
  				    " "))
  		(From_))

-- 
Kim F. Storm  http://www.cua.dk