(rmail-header-add-header): Use delete-region instead of kill-region.old-branches/rmail-mbox-branch

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index ecfab009f8f..ec9f767b656 100644
--- 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 bf4438e10d5..c896b629483 100644
--- 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")))))