From a0f1ab9b547f02be4731530faf379bddff353ec6 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 12:43:04 -0700
Subject: [PATCH] imail: Like probe-folder-output-processor, avoid referencing
 folder.

---
 src/imail/imail-top.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/imail/imail-top.scm b/src/imail/imail-top.scm
index 7aaaa8cbd..365decf98 100644
--- 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)))
-- 
2.25.1