procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter.

Browse source
This commit is contained in:
Stefan Monnier 2011-05-30 14:23:47 -03:00
parent 7a54264e4c
commit 1257e75502
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-05-30 Stefan Monnier <monnier@iro.umontreal.ca>
* mail/smtpmail.el (smtpmail-send-data): Add progress reporter.
2011-05-30 Leo Liu <sdl.web@gmail.com>
* net/rcirc.el (rcirc-debug-buffer): Use visible buffer name.

9
lisp/mail/smtpmail.el
View file

@ -943,15 +943,20 @@ The list is in preference order.")
(process-send-string process "\r\n"))
(defun smtpmail-send-data (process buffer)
(let ((data-continue t) sending-data)
(let ((data-continue t) sending-data
(pr (with-current-buffer buffer
(make-progress-reporter "Sending email"
(point-min) (point-max)))))
(with-current-buffer buffer
(goto-char (point-min)))
(while data-continue
(with-current-buffer buffer
(progress-reporter-update pr (point))
(setq sending-data (buffer-substring (point-at-bol) (point-at-eol)))
(end-of-line 2)
(setq data-continue (not (eobp))))
(smtpmail-send-data-1 process sending-data))))
(smtpmail-send-data-1 process sending-data))
(progress-reporter-done pr)))
(defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start header-end)
"Get address list suitable for smtp RCPT TO: <address>."