Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 68250:3db62d37041f
(smtpmail-send-it): Use insert-buffer-substring.
| author | Jesper Harder <harder@ifa.au.dk> |
|---|---|
| date | Wed, 18 Jan 2006 20:49:00 +0000 |
| parents | 340b01243a62 |
| children | 067115a6e738 d88caeac70d7 |
comparison
equal
deleted
inserted
replaced
| 68249:de87ce42a058 | 68250:3db62d37041f |
|---|---|
| 363 (buffer-scratch "*queue-mail*")) | 363 (buffer-scratch "*queue-mail*")) |
| 364 (unless (file-exists-p smtpmail-queue-dir) | 364 (unless (file-exists-p smtpmail-queue-dir) |
| 365 (make-directory smtpmail-queue-dir t)) | 365 (make-directory smtpmail-queue-dir t)) |
| 366 (with-current-buffer buffer-data | 366 (with-current-buffer buffer-data |
| 367 (erase-buffer) | 367 (erase-buffer) |
| 368 (insert-buffer-contents tembuf) | 368 (insert-buffer-substring tembuf) |
| 369 (write-file file-data) | 369 (write-file file-data) |
| 370 (set-buffer buffer-elisp) | 370 (set-buffer buffer-elisp) |
| 371 (erase-buffer) | 371 (erase-buffer) |
| 372 (insert (concat | 372 (insert (concat |
| 373 "(setq smtpmail-recipient-address-list '" | 373 "(setq smtpmail-recipient-address-list '" |