# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1177966020 0
# Node ID 99bdc58fe1fc24174b336c357195019059dce7c2
# Parent  3be7f212f8bcc3b59be06faeb6b6fab4efead338
(rmail-header-add-header): Use delete-region instead of kill-region.

diff -r 3be7f212f8bc -r 99bdc58fe1fc lisp/mail/rmailhdr.el
--- a/lisp/mail/rmailhdr.el	Fri Apr 27 21:33:38 2007 +0000
+++ b/lisp/mail/rmailhdr.el	Mon Apr 30 20:47:00 2007 +0000
@@ -72,7 +72,7 @@
 	  (let ((start (match-beginning 0)))
 	    (re-search-forward "\n[^ \t]")
 	    (goto-char limit)
-	    (kill-region start (1+ (match-beginning 0))))
+	    (delete-region start (1+ (match-beginning 0))))
 	(goto-char limit))
       (when (> (length value) 0)
 	(insert header ": " value "\n")))))