From 9d16612d27fdf30368a03a1a11a8117ebb98c801 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 18:26:52 +0000
Subject: [PATCH] Add hook to allow custom hook to run when yanking original
 message into reply buffer.

---
 v7/src/edwin/sendmail.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

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))
-- 
2.25.1