From 861bc2b7af30b684e5695f79e0c645fbfbca466a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 8 May 1991 22:47:55 +0000 Subject: [PATCH] Must clip text when clearing headers in yanked message. --- v7/src/edwin/sendmail.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm index c9d87b218..e77dfb90d 100644 --- a/v7/src/edwin/sendmail.scm +++ b/v7/src/edwin/sendmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.8 1991/05/07 03:21:16 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.9 1991/05/08 22:47:55 cph Exp $ ;;; ;;; Copyright (c) 1991 Massachusetts Institute of Technology ;;; @@ -384,14 +384,17 @@ and don't delete any header fields." (mark1+ (re-match-start 0)) end))) (mail-yank-ignored-headers (ref-variable mail-yank-ignored-headers))) - (do () - ((not (re-search-forward mail-yank-ignored-headers start end true))) - (move-mark-to! start (re-match-start 0)) - (delete-string - start - (if (re-search-forward "^[^ \t]" (line-end start 0) end false) - (re-match-start 0) - end))) + (with-text-clipped start end + (lambda () + (do () + ((not + (re-search-forward mail-yank-ignored-headers start end true))) + (move-mark-to! start (re-match-start 0)) + (delete-string + start + (if (re-search-forward "^[^ \t]" (line-end start 0) end false) + (re-match-start 0) + end))))) (mark-temporary! start) (mark-temporary! end))) -- 2.25.1