From: yamaoka <yamaoka>
Date: Wed, 25 Jun 2003 22:10:21 +0000 (+0000)
Subject: Synch to Gnus 200306251534.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8026fc5265bc4e8caf6b21f482f8e761a61984fc;p=elisp%2Fgnus.git-

Synch to Gnus 200306251534.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3a1d86..ca5d2e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* spam.el (spam-parse-list): prevent empty ("") strings
+
 2003-06-24  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* spam.el (spam-parse-list): use gnus-extract-address-components
diff --git a/lisp/spam.el b/lisp/spam.el
index abad927..b036a3b 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -996,8 +996,9 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 	  (setq address (buffer-substring (point) (spam-point-at-eol)))
 	  (forward-line 1)
 	  ;; insert the e-mail address if detected, otherwise the raw data
-	  (let ((pure-address (cadr (gnus-extract-address-components address))))
-	    (push (or pure-address address) contents))))
+	  (unless (zerop (length address))
+	    (let ((pure-address (cadr (gnus-extract-address-components address))))
+	      (push (or pure-address address) contents)))))
       (nreverse contents))))
 
 (defun spam-from-listed-p (cache)