diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-08 22:16:39 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-08 22:16:39 +0000 |
| commit | 9b60c729b415a16414fc13afb290d66f11817683 (patch) | |
| tree | 09142d4c5a7eadf07965ac99fe458811abb829d8 /lisp/mail/smtpmail.el | |
| parent | 568ec71d65551c4a970112224c687896466b8768 (diff) | |
| download | emacs-9b60c729b415a16414fc13afb290d66f11817683.tar.gz | |
(smtpmail-send-queued-mail): Don't use kill-line.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |