diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-09 22:51:21 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-09 22:51:21 +0000 |
| commit | 95754b9f0f21b64e83ea21f8efb9174b25cb1182 (patch) | |
| tree | bcbd2acbb1eecb94363614443a343d4107fddf08 /lisp/mail | |
| parent | 1647ff5c46726d3233b382df9d10c63b7a3f97ce (diff) | |
| download | emacs-95754b9f0f21b64e83ea21f8efb9174b25cb1182.tar.gz | |
(smtpmail-send-queued-mail): Use point-at-bol instead of forward-line.
Diffstat (limited to 'lisp/mail')
| -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 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) |