From 95754b9f0f21b64e83ea21f8efb9174b25cb1182 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 9 May 2003 22:51:21 +0000 Subject: [PATCH] (smtpmail-send-queued-mail): Use point-at-bol instead of forward-line. --- lisp/ChangeLog | 9 +++++++++ lisp/mail/smtpmail.el | 2 +- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1051c609deb..e672191c1f6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2003-05-10 Stefan Monnier + + * mail/smtpmail.el (smtpmail-send-queued-mail): Use point-at-bol + instead of forward-line. + +2003-05-10 Oliver Scholz + + * startup.el (fancy-splash-default-action): Fix docstring. + 2003-05-09 Sam Steingold * pcvs.el (cvs-mode-find-file): Fixed the last patch's logic. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 53070318294..2dbfa18f33a 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")) - (delete-region (point-at-bol) (progn (forward-line 1) (point)))) + (delete-region (point-at-bol) (point-at-bol 2))) (write-region (point-min) (point-max) smtpmail-queue-index)))) ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer) -- 2.39.2