From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Nov 2000 18:51:54 +0000 (+0000)
Subject: Fix M-x imail-save-attachment properly; previous fix didn't work right.
X-Git-Tag: 20090517-FFI~3191
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=092ae25ff298ee2fa4da24e73f7ec74ef4f0f36f;p=mit-scheme.git

Fix M-x imail-save-attachment properly; previous fix didn't work right.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index a0bb7283d..91f3295a5 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.220 2000/11/13 21:28:37 cph Exp $
+;;; $Id: imail-top.scm,v 1.221 2000/11/27 18:51:54 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -815,11 +815,12 @@ If point is not on an attachment, prompts for the attachment to save.
 With prefix argument, prompt even when point is on an attachment."
   "P"
   (lambda (always-prompt?)
-    (save-mime-entity (car (maybe-prompt-for-mime-info "Save attachment"
-						       (current-point)
-						       always-prompt?
-						       mime-attachment?))
-		      (imail-folder->buffer (selected-folder) #t))))
+    (let ((buffer (imail-folder->buffer (selected-folder) #t)))
+      (save-mime-entity (car (maybe-prompt-for-mime-info "Save attachment"
+							 (buffer-point buffer)
+							 always-prompt?
+							 mime-attachment?))
+			buffer))))
 
 (define-command imail-mouse-save-mime-entity
   "Save the MIME entity that mouse is on."