From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 9 May 2003 22:51:21 +0000 (+0000)
Subject: (smtpmail-send-queued-mail): Use point-at-bol instead of forward-line.
X-Git-Tag: ttn-vms-21-2-B4~10217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95754b9f0f21b64e83ea21f8efb9174b25cb1182;p=emacs.git

(smtpmail-send-queued-mail): Use point-at-bol instead of forward-line.
---

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  <monnier@cs.yale.edu>
+
+	* mail/smtpmail.el (smtpmail-send-queued-mail): Use point-at-bol
+	instead of forward-line.
+
+2003-05-10  Oliver Scholz  <alkibiades@gmx.de>
+
+	* startup.el (fancy-splash-default-action): Fix docstring.
+
 2003-05-09  Sam Steingold  <sds@gnu.org>
 
 	* 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)