# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 925101236 0
# Node ID 787f4cefd148716feda2b0ab8fbb570f51e5425a
# Parent  54ef2ebc8494079da7d07404aef366b01ba0df27
(mail-sent-via): Use copy-marker not make-marker.

diff -r 54ef2ebc8494 -r 787f4cefd148 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Apr 26 04:13:01 1999 +0000
+++ b/lisp/mail/sendmail.el	Mon Apr 26 04:33:56 1999 +0000
@@ -1058,7 +1058,7 @@
   (interactive)
   (save-excursion
     ;; put a marker at the end of the header
-    (let ((end (make-marker (mail-header-end)))
+    (let ((end (copy-marker (mail-header-end)))
 	  (case-fold-search t)
 	  to-line)
       (goto-char (point-min))