suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 8e2844445a140fbb519342140924b37c4855a7b0
This commit is contained in:
Matthew Flatt 2004-06-27 13:44:29 +00:00
parent faed61be8b
commit 49040387bb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/net/imap-unit.ss
View File

@ -383,7 +383,8 @@
(define (no-expunges who imap)
(unless (tree-empty? (imap-expunges imap))
(raise-mismatch-error who
"session has pending expunge reports")))
"session has pending expunge reports: "
imap)))
(define (imap-get-messages imap msgs field-list)
(no-expunges 'imap-get-messages imap)