Fix missing car after weak-list-set-fold conversion.

(cherry picked from commit d995d30d18a6e20c9270e4d1f3c6c65c4c5176c7)

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 100c690bebb334ba15a8e96f600344543d90cc42..ae43affa75c2eb070a42ff8a25d9276a373521d1 100644 (file)
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -573,15 +573,17 @@ USA.
       (make-imap-connection url)))
 
 (define (search-imap-connections assessor)
-  (weak-list-set-fold (lambda (connection winner)
-                       (let ((value (assessor connection)))
-                         (if (and value
-                                  (or (not winner)
-                                      (> value (cdr winner))))
-                             (cons connection value)
-                             winner)))
-                     #f
-                     memoized-imap-connections))
+  (cond ((weak-list-set-fold (lambda (connection winner)
+                              (let ((value (assessor connection)))
+                                (if (and value
+                                         (or (not winner)
+                                             (> value (cdr winner))))
+                                    (cons connection value)
+                                    winner)))
+                            #f
+                            memoized-imap-connections)
+        => car)
+       (else #f)))
 
 (define make-imap-connection
   (let ((constructor (instance-constructor <imap-connection> '(URL))))