From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 19:43:04 +0000 (-0700)
Subject: imail: Like probe-folder-output-processor, avoid referencing folder.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0f1ab9b547f02be4731530faf379bddff353ec6;p=mit-scheme.git

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

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)))