diff options
author | Henrik Enberg <henrik.enberg@telia.com> | 2007-04-30 20:47:19 +0000 |
---|---|---|
committer | Henrik Enberg <henrik.enberg@telia.com> | 2007-04-30 20:47:19 +0000 |
commit | 04c2b755a93a6e14742b0226558a6bb7f495335c (patch) | |
tree | 6d74bc8dcaf727e7502dfec80a123c325595f136 | |
parent | 608edeeb842de12cd6ee6c4525e00dcdc60fb55b (diff) | |
download | emacs-old-branches/rmail-mbox-branch.tar.gz |
(rmail-header-add-header): Use delete-region instead of kill-region.old-branches/rmail-mbox-branch
-rw-r--r-- | lisp/mail/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/mail/rmailhdr.el | 2 |
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"))))) |