(eudc-bbdb-filter-non-matching-record)

(eudc-bbdb-query-internal): Use mapc rather than mapcar.

1 files changed, 17 insertions, 17 deletions

diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index f84d98aaed8..7e37d9d4123 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -75,7 +75,7 @@
   "Return RECORD if it matches `eudc-bbdb-current-query', nil otherwise."
   (catch 'unmatch
     (progn
-      (mapcar
+      (mapc
        (function
 	(lambda (condition)
 	  (let ((attr (car condition))
@@ -197,22 +197,22 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
       (if (car query-attrs)
 	  (setq records (eval `(bbdb-search ,(quote records) ,@bbdb-attrs))))
       (setq query-attrs (cdr query-attrs)))
-    (mapcar (function
-	     (lambda (record)
-	       (setq filtered (eudc-filter-duplicate-attributes record))
-	       ;; If there were duplicate attributes reverse the order of the
-	       ;; record so the unique attributes appear first
-	       (if (> (length filtered) 1)
-		   (setq filtered (mapcar (function
-					   (lambda (rec)
-					     (reverse rec)))
-					  filtered)))
-	       (setq result (append result filtered))))
-	    (delq nil
-		  (mapcar 'eudc-bbdb-format-record-as-result
-			  (delq nil
-				(mapcar 'eudc-bbdb-filter-non-matching-record
-					records)))))
+    (mapc (function
+	   (lambda (record)
+	     (setq filtered (eudc-filter-duplicate-attributes record))
+	     ;; If there were duplicate attributes reverse the order of the
+	     ;; record so the unique attributes appear first
+	     (if (> (length filtered) 1)
+		 (setq filtered (mapcar (function
+					 (lambda (rec)
+					   (reverse rec)))
+					filtered)))
+	     (setq result (append result filtered))))
+	  (delq nil
+		(mapcar 'eudc-bbdb-format-record-as-result
+			(delq nil
+			      (mapcar 'eudc-bbdb-filter-non-matching-record
+				      records)))))
     result))
 
 ;;}}}