# HG changeset patch # User Richard M. Stallman # Date 1131053694 0 # Node ID 857eb702a3f1a398a4b460a5058337e5fd0e9f7a # Parent 212206034148bb2a802879c70e976dd368f2307e Use insert-buffer-substring, not insert-buffer. diff -r 212206034148 -r 857eb702a3f1 lisp/mail/feedmail.el --- a/lisp/mail/feedmail.el Thu Nov 03 21:34:12 2005 +0000 +++ b/lisp/mail/feedmail.el Thu Nov 03 21:34:54 2005 +0000 @@ -1372,7 +1372,7 @@ (if (string-match tracer (buffer-name buffy)) (progn (insert "SMTP Trace from " (buffer-name buffy) "\n---------------") - (insert-buffer buffy) + (insert-buffer-substring buffy) (insert "\n\n")))) (buffer-list)))))) @@ -1989,7 +1989,7 @@ (set-buffer feedmail-prepped-text-buffer) (erase-buffer) ;; jam contents of user-supplied mail buffer into our scratch buffer - (insert-buffer feedmail-raw-text-buffer) + (insert-buffer-substring feedmail-raw-text-buffer) ;; require one newline at the end. (goto-char (point-max)) @@ -2215,7 +2215,7 @@ (erase-buffer) ;; not life's most efficient methodology, but spraying isn't ;; an every-5-minutes event either - (insert-buffer feedmail-prepped-text-buffer) + (insert-buffer-substring feedmail-prepped-text-buffer) ;; There's a good case to me made that each separate transmission of ;; a message in the spray should have a distinct Message-Id:. There ;; is also a less compelling argument in the other direction. I think