andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2003-05-09 22:51:21 +00:00
parent 1647ff5c46
commit 95754b9f0f
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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.

2
lisp/mail/smtpmail.el
View file

@ -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)