From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 18:26:52 +0000 (+0000)
Subject: Add hook to allow custom hook to run when yanking original message
X-Git-Tag: 20090517-FFI~3576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d16612d27fdf30368a03a1a11a8117ebb98c801;p=mit-scheme.git

Add hook to allow custom hook to run when yanking original message
into reply buffer.
---

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index fbc6a8b82..7cceef35e 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.47 2000/06/08 17:58:27 cph Exp $
+;;; $Id: sendmail.scm,v 1.48 2000/06/08 18:26:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -530,9 +530,15 @@ and don't delete any header fields."
 		      (buffer-windows mail-reply-buffer))
 	    (let ((end (mark-left-inserting-copy (current-point))))
 	      (let ((start (mark-right-inserting-copy end)))
-		(insert-region (buffer-start mail-reply-buffer)
-			       (buffer-end mail-reply-buffer)
-			       start)
+		(let ((method
+		       (buffer-get mail-reply-buffer
+				   'MAIL-YANK-ORIGINAL-METHOD
+				   #f)))
+		  (if method
+		      (method mail-reply-buffer start)
+		      (insert-region (buffer-start mail-reply-buffer)
+				     (buffer-end mail-reply-buffer)
+				     start)))
 		(if (not (line-end? end))
 		    (insert-newline end))
 		(if (not (command-argument-multiplier-only? argument))