From 91a0390ebd9468d21bcbae41ec794ea1bd587e62 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 1 Aug 2005 08:37:36 +0000 Subject: [PATCH] Synch to No Gnus 200508010837. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-uu.el | 8 ++++---- lisp/message.el | 2 +- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 794a8e6..0c5d22a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-08-01 Katsumi Yamaoka + + * gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring + instead of insert-buffer. + + * message.el (message-yank-original): Ditto. + 2005-07-29 Katsumi Yamaoka * gnus-art.el (gnus-article-next-page-1): Reduce the number of diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index 2850c97..41e41d9 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -901,16 +901,16 @@ When called interactively, prompt for REGEXP." (if gnus-uu-digest-buffer (with-current-buffer gnus-uu-digest-buffer (erase-buffer) - (insert-buffer "*gnus-uu-pre*") + (insert-buffer-substring "*gnus-uu-pre*") (goto-char (point-max)) - (insert-buffer "*gnus-uu-body*")) + (insert-buffer-substring "*gnus-uu-body*")) (save-excursion (set-buffer "*gnus-uu-pre*") (insert (format "\n\n%s\n\n" (make-string 70 ?-))) (if gnus-uu-digest-buffer (with-current-buffer gnus-uu-digest-buffer (erase-buffer) - (insert-buffer "*gnus-uu-pre*")) + (insert-buffer-substring "*gnus-uu-pre*")) (gnus-write-buffer-as-coding-system nnheader-text-coding-system gnus-uu-saved-article-name))) (save-excursion @@ -923,7 +923,7 @@ When called interactively, prompt for REGEXP." (if gnus-uu-digest-buffer (with-current-buffer gnus-uu-digest-buffer (goto-char (point-max)) - (insert-buffer "*gnus-uu-body*")) + (insert-buffer-substring "*gnus-uu-body*")) (let ((file-name-coding-system nnmail-pathname-coding-system)) (write-region-as-coding-system nnheader-text-coding-system diff --git a/lisp/message.el b/lisp/message.el index d6f2da7..203e29c 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3553,7 +3553,7 @@ be added to the \"References\" field." t (delete-windows-on buffer t) ; The mark will be set at the end of the article. - (insert-buffer buffer)))) + (insert-buffer-substring buffer)))) ;; Add new IDs to the References field. (when (and message-yank-add-new-references (interactive-p)) -- 1.7.10.4