From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 14 Jul 2009 20:13:33 +0000 (-0400)
Subject: Back out a previous change to make SAVE-RESOURCE `gracefully' handle
X-Git-Tag: 20100708-Gtk~370^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e7ca670b4bb8e8b79fd2949cb73c53b9bad47dc9;p=mit-scheme.git

Back out a previous change to make SAVE-RESOURCE `gracefully' handle
failures.  Irrevocably losing users' mail is not graceful.  Use `M-x
revert-buffer RET' first if you really need to kill the buffer.
---

diff --git a/src/imail/imail-file.scm b/src/imail/imail-file.scm
index 2b07470e1..55fbb7740 100644
--- a/src/imail/imail-file.scm
+++ b/src/imail/imail-file.scm
@@ -406,21 +406,9 @@ USA.
 	     (and (eq? status 'BOTH-MODIFIED)
 		  (imail-ui:prompt-for-yes-or-no?
 		   "Disk file has changed since last read.  Save anyway"))))
-       (call-with-current-continuation
-	 (lambda (k)
-	   (bind-condition-handler (list condition-type:error)
-	       (lambda (condition)
-		 ;; Can this be done in a pop-up buffer?  It doesn't
-		 ;; work just to use IMAIL-UI:PRESENT-USER-ALERT
-		 ;; because that futzes with the kill-buffer hooks.
-		 (imail-ui:message
-		  (call-with-output-string
-		    (lambda (output-port)
-		      (write-condition-report condition output-port))))
-		 (k #f))
-	     (lambda ()
-	       (synchronize-file-folder-write folder write-file-folder)
-	       #t))))))
+       (begin
+	 (synchronize-file-folder-write folder write-file-folder)
+	 #t)))
 
 (define-generic write-file-folder (folder pathname))