diff options
| author | Richard M. Stallman | 2005-11-03 21:34:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-11-03 21:34:54 +0000 |
| commit | bf71490505cb3c6781f812d8cd92b1ee2e8fe9c7 (patch) | |
| tree | 96ade45e17dd9c5cfd305af0e70214fd94e8dccd | |
| parent | d27a3d1684b64c75fed1b458995ed248f908c8db (diff) | |
| download | emacs-bf71490505cb3c6781f812d8cd92b1ee2e8fe9c7.tar.gz emacs-bf71490505cb3c6781f812d8cd92b1ee2e8fe9c7.zip | |
Use insert-buffer-substring, not insert-buffer.
| -rw-r--r-- | lisp/mail/feedmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 101e96c8554..3bd287541cf 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -1372,7 +1372,7 @@ complicated cases." | |||
| 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 | ||
| @@ -1989,7 +1989,7 @@ mapped to mostly alphanumerics for safety." | |||
| 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)) |
| @@ -2215,7 +2215,7 @@ feedmail-fiddle-plex-blurb." | |||
| 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 |