[Emacs-diffs] /srv/bzr/emacs/trunk r104439: * lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter.

[Stefan Monnier]

------------------------------------------------------------
revno: 104439
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-30 14:23:47 -0300
message:
  * lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-30 12:23:56 +0000
+++ b/lisp/ChangeLog    2011-05-30 17:23:47 +0000
@@ -1,3 +1,7 @@
+2011-05-30  Stefan Monnier  <address@hidden>
+
+       * mail/smtpmail.el (smtpmail-send-data): Add progress reporter.
+
 2011-05-30  Leo Liu  <address@hidden>
 
        * net/rcirc.el (rcirc-debug-buffer): Use visible buffer name.

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-05-24 03:54:18 +0000
+++ b/lisp/mail/smtpmail.el     2011-05-30 17:23:47 +0000
@@ -943,15 +943,20 @@
   (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>."