(smtpmail-send-queued-mail): Don't use kill-line.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b14eccf36c..3a42d83ef62 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-09  Jesper Harder  <harder@ifa.au.dk>  (tiny change)
+
+        * mail/smtpmail.el (smtpmail-send-queued-mail): Don't use kill-line.
+
 2003-05-08  Stefan Monnier  <monnier@cs.yale.edu>
 
         * uniquify.el (uniquify-after-kill-buffer-p): Fix misleading docstring.
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 17f1f6d43c1..53070318294 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -404,7 +404,7 @@ This is relative to `smtpmail-queue-dir'.")
             (error "Sending failed; no recipients")))
         (delete-file file-msg)
         (delete-file (concat file-msg ".el"))
-        (kill-line 1))
+        (delete-region (point-at-bol) (progn (forward-line 1) (point))))
       (write-region (point-min) (point-max) smtpmail-queue-index))))
 
 ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer)