Commit dd64e5e5 authored by Glenn Morris's avatar Glenn Morris

Jesper Harder <harder@ifa.au.dk>

(smtpmail-send-data): Don't append spurious newline.
parent f2633782
2004-01-18 Jesper Harder <harder@ifa.au.dk>
* mail/smtpmail.el (smtpmail-send-data): Don't append spurious
newline.
2004-01-18 David Ponce <david@dponce.com> (tiny change)
* progmodes/which-func.el (which-function-mode): Don't cancel
which-func-update-timer if not set.
2004-01-17 Thien-Thi Nguyen <ttn@gnu.org>
* calendar/diary-lib.el (diary-entry-time): Fix typo/bug:
......
......@@ -858,31 +858,15 @@ This is relative to `smtpmail-queue-dir'.")
)
(defun smtpmail-send-data (process buffer)
(let
((data-continue t)
(sending-data nil)
this-line
this-line-end)
(let ((data-continue t) sending-data)
(with-current-buffer buffer
(goto-char (point-min)))
(while data-continue
(with-current-buffer buffer
(beginning-of-line)
(setq this-line (point))
(end-of-line)
(setq this-line-end (point))
(setq sending-data nil)
(setq sending-data (buffer-substring this-line this-line-end))
(if (/= (forward-line 1) 0)
(setq data-continue nil)))
(smtpmail-send-data-1 process sending-data)
)
)
)
(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))))
(defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start header-end)
"Get address list suitable for smtp RCPT TO: <address>."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment