# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1222278973 0
# Node ID 8b4f705fb54ea16194c1784a0d2ea29743c5aa4c
# Parent  882dea66012fa2f6811d0a3cc098fc13f5881e1f
(rfc822-addresses): Prevent rfc822-bad-address from raising a
wrong-type-argument error.

diff -r 882dea66012f -r 8b4f705fb54e lisp/mail/rfc822.el
--- a/lisp/mail/rfc822.el	Wed Sep 24 17:55:57 2008 +0000
+++ b/lisp/mail/rfc822.el	Wed Sep 24 17:56:13 2008 +0000
@@ -292,12 +292,15 @@
 	  (goto-char (point-min))
 	  (let ((list ())
 		tem
-		rfc822-address-start); this is for rfc822-bad-address
-	    (rfc822-nuke-whitespace)
-	    (while (not (eobp))
-	      (setq rfc822-address-start (point))
-	      (setq tem
-		    (catch 'address ; this is for rfc822-bad-address
+		;; This is for rfc822-bad-address.  Give it a non-nil
+		;; initial value to prevent rfc822-bad-address from
+		;; raising a wrong-type-argument error
+		(rfc822-address-start (point)))
+	    (catch 'address ; this is for rfc822-bad-address
+	      (rfc822-nuke-whitespace)
+	      (while (not (eobp))
+		(setq rfc822-address-start (point))
+		(setq tem
 		      (cond ((rfc822-looking-at ?\,)
 			     nil)
 			    ((looking-at "[][\000-\037@;:\\.>)]")
@@ -306,14 +309,14 @@
 			       (format "Strange character \\%c found"
 				       (preceding-char))))
 			    (t
-			     (rfc822-addresses-1 t)))))
-	      (cond ((null tem))
-		    ((stringp tem)
-		     (setq list (cons tem list)))
-		    (t
-		     (setq list (nconc (nreverse tem) list)))))
-	    (nreverse list)))
-      (and buf (kill-buffer buf))))))
+			     (rfc822-addresses-1 t))))
+		(cond ((null tem))
+		      ((stringp tem)
+		       (setq list (cons tem list)))
+		      (t
+		       (setq list (nconc (nreverse tem) list)))))
+	      (nreverse list))))
+	(and buf (kill-buffer buf))))))
 
 (provide 'rfc822)