[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104439: * lisp/mail/smtpmail.el (smt
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104439: * lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter. |
Date: |
Mon, 30 May 2011 14:23:47 -0300 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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>."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104439: * lisp/mail/smtpmail.el (smtpmail-send-data): Add progress reporter.,
Stefan Monnier <=