From 8026fc5265bc4e8caf6b21f482f8e761a61984fc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 25 Jun 2003 22:10:21 +0000 Subject: [PATCH] Synch to Gnus 200306251534. --- lisp/ChangeLog | 4 ++++ lisp/spam.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * spam.el (spam-parse-list): prevent empty ("") strings + 2003-06-24 Teodor Zlatanov * 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) -- 1.7.10.4