Mercurial > emacs
comparison lisp/mail/feedmail.el @ 66668:857eb702a3f1
Use insert-buffer-substring, not insert-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Nov 2005 21:34:54 +0000 |
| parents | f93aecb355e5 |
| children | e4183d5068ec 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 66667:212206034148 | 66668:857eb702a3f1 |
|---|---|
| 1370 (mapcar | 1370 (mapcar |
| 1371 '(lambda (buffy) | 1371 '(lambda (buffy) |
| 1372 (if (string-match tracer (buffer-name buffy)) | 1372 (if (string-match tracer (buffer-name buffy)) |
| 1373 (progn | 1373 (progn |
| 1374 (insert "SMTP Trace from " (buffer-name buffy) "\n---------------") | 1374 (insert "SMTP Trace from " (buffer-name buffy) "\n---------------") |
| 1375 (insert-buffer buffy) | 1375 (insert-buffer-substring buffy) |
| 1376 (insert "\n\n")))) | 1376 (insert "\n\n")))) |
| 1377 (buffer-list)))))) | 1377 (buffer-list)))))) |
| 1378 | 1378 |
| 1379 | 1379 |
| 1380 ;; just a place to park a docstring | 1380 ;; just a place to park a docstring |
| 1987 (save-excursion | 1987 (save-excursion |
| 1988 (set-buffer feedmail-error-buffer) (erase-buffer) | 1988 (set-buffer feedmail-error-buffer) (erase-buffer) |
| 1989 (set-buffer feedmail-prepped-text-buffer) (erase-buffer) | 1989 (set-buffer feedmail-prepped-text-buffer) (erase-buffer) |
| 1990 | 1990 |
| 1991 ;; jam contents of user-supplied mail buffer into our scratch buffer | 1991 ;; jam contents of user-supplied mail buffer into our scratch buffer |
| 1992 (insert-buffer feedmail-raw-text-buffer) | 1992 (insert-buffer-substring feedmail-raw-text-buffer) |
| 1993 | 1993 |
| 1994 ;; require one newline at the end. | 1994 ;; require one newline at the end. |
| 1995 (goto-char (point-max)) | 1995 (goto-char (point-max)) |
| 1996 (or (= (preceding-char) ?\n) (insert ?\n)) | 1996 (or (= (preceding-char) ?\n) (insert ?\n)) |
| 1997 | 1997 |
| 2213 (save-excursion | 2213 (save-excursion |
| 2214 (set-buffer spray-buffer) | 2214 (set-buffer spray-buffer) |
| 2215 (erase-buffer) | 2215 (erase-buffer) |
| 2216 ;; not life's most efficient methodology, but spraying isn't | 2216 ;; not life's most efficient methodology, but spraying isn't |
| 2217 ;; an every-5-minutes event either | 2217 ;; an every-5-minutes event either |
| 2218 (insert-buffer feedmail-prepped-text-buffer) | 2218 (insert-buffer-substring feedmail-prepped-text-buffer) |
| 2219 ;; There's a good case to me made that each separate transmission of | 2219 ;; There's a good case to me made that each separate transmission of |
| 2220 ;; a message in the spray should have a distinct Message-Id:. There | 2220 ;; a message in the spray should have a distinct Message-Id:. There |
| 2221 ;; is also a less compelling argument in the other direction. I think | 2221 ;; is also a less compelling argument in the other direction. I think |
| 2222 ;; they technically should have distinct Message-Id:s, but I doubt that | 2222 ;; they technically should have distinct Message-Id:s, but I doubt that |
| 2223 ;; anyone cares, practically. If someone complains about it, I'll add | 2223 ;; anyone cares, practically. If someone complains about it, I'll add |