From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Wed, 29 Apr 1992 23:05:09 +0000 (+0000)
Subject: Fixed bug in rmail-edit-current-msg which manifests only
X-Git-Tag: 20090517-FFI~9452
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb0f20bc4d56f67efe5b78c6f47e5c769cc1bf0c;p=mit-scheme.git

Fixed bug in rmail-edit-current-msg which manifests only
on the last message in the RMAIL file.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index afe96b4a8..7ce52e4aa 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.17 1992/04/29 22:29:26 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.18 1992/04/29 23:05:09 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -1398,23 +1398,20 @@ buffer visiting that file."
 	 (message return-value)
 	 return-value)
        (lambda ()
-	 (if (eq? return-value 'ABORT)
-	     (begin
-	       (with-buffer-open
-		(current-buffer)
-		(lambda ()
-		  (kill-string
-		   (msg-memo/start-body memo)
-		   (msg-memo/end-body memo))
-		  (insert-string original-message
-				 (msg-memo/start-body memo))))))
 	 (set-current-major-mode! (ref-mode-object rmail))
 	 (let ((buf (current-buffer)))
 	   (with-buffer-open
 	       buf
 	     (lambda ()
 	       (memoize-buffer buf)
-	       (update-mode-line! buf)))
+	       (update-mode-line! buf)
+	       (if (eq? return-value 'ABORT)
+		   (let ((memo (msg-memo/nth (buffer-msg-memo buf) msg-num)))
+		     (kill-string
+		      (msg-memo/start-body memo)
+		      (msg-memo/end-body memo))
+		     (insert-string original-message
+				    (msg-memo/start-body memo))))))
 	   (show-message buf msg-num)))))))
 
 ;;;; Undigestifier