EUDC: Print multiple BBDB addresses properly

* lisp/net/eudcb-bbdb.el (eudc-bbdb-extract-addresses): Reset
val to nil on each mapcar lambda invocation.

diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index 7370225c041e96dc8e72f7e514446bf58e832547..d606766158b8d04cd5dc176c6ec38f64441256f2 100644 (file)
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -144,6 +144,7 @@ BBDB < 3 used `net'; BBDB >= 3 uses `mail'."
   (let (s c val)
     (nreverse
      (mapcar (lambda (address)
+              (setq val nil)
               (setq c (bbdb-address-streets address))
               (dotimes (n 3)
                 (unless (zerop (length (setq s (nth n c))))