imail: Like probe-folder-output-processor, avoid referencing folder.

diff --git a/src/imail/imail-top.scm b/src/imail/imail-top.scm
index 7aaaa8cbd10dc1e540058f64d16ed36672999f11..365decf983eec33d1a13ad9a359af829b410172b 100644 (file)
--- a/src/imail/imail-top.scm
+++ b/src/imail/imail-top.scm
@@ -2230,7 +2230,9 @@ WARNING: With a prefix argument, this command may take a very long
                                   (* 1000 interval)
                                   (probe-folder-output-processor
                                    (weak-cons folder unspecific))
-                                  folder)))))))))
+                                  (list 'probe-folder
+                                        (url-presentation-name
+                                         (resource-locator folder))))))))))))
 
 (define ((probe-folder-output-processor folder))
   (let ((folder (weak-car folder)))