From 1257e75502973fcdf4c2bbedaad4df0240171071 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 30 May 2011 14:23:47 -0300 Subject: [PATCH] * lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter. --- lisp/ChangeLog | 4 ++++ lisp/mail/smtpmail.el | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0064bb79544..badff5cbd6c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-05-30 Stefan Monnier + + * mail/smtpmail.el (smtpmail-send-data): Add progress reporter. + 2011-05-30 Leo Liu * net/rcirc.el (rcirc-debug-buffer): Use visible buffer name. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 3eda3503adc..bc1ca77d24a 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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:
." -- 2.11.4.GIT