(spam-parse-list): prevent empty ("") strings

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3a1d86..ca5d2e9 100644 (file)
--- 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 0772657..8c2fa7c 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -999,8 +999,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)