(rmail-header-add-header): Use delete-region instead of kill-region.

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index ecfab009f8f5515df4eccb159286a74ca06c61d9..ec9f767b656d00d28c5dbf287f9294fd2d5d4091 100644 (file)
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-30  Henrik Enberg  <enberg@printf.se>
+
+       * rmailhdr.el (rmail-header-add-header): Use delete-region instead
+       of kill-region.
+
 2007-04-27  Henrik Enberg  <enberg@printf.se>
 
        * rmailout.el (rmail-output): Bind buffer-file-coding-system even

diff --git a/lisp/mail/rmailhdr.el b/lisp/mail/rmailhdr.el
index bf4438e10d5b5ff8de4d00b797fe38341be54f82..c896b62948324b63440d4dc462d69eee2c2a152a 100644 (file)
--- a/lisp/mail/rmailhdr.el
+++ b/lisp/mail/rmailhdr.el
@@ -72,7 +72,7 @@ instead."
          (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")))))