From 04c2b755a93a6e14742b0226558a6bb7f495335c Mon Sep 17 00:00:00 2001 From: Henrik Enberg Date: Mon, 30 Apr 2007 20:47:19 +0000 Subject: [PATCH] (rmail-header-add-header): Use delete-region instead of kill-region. --- lisp/mail/ChangeLog | 5 +++++ lisp/mail/rmailhdr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * rmailhdr.el (rmail-header-add-header): Use delete-region instead + of kill-region. + 2007-04-27 Henrik Enberg * 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"))))) -- 2.39.5