From: yamaoka <yamaoka>
Date: Mon, 1 Aug 2005 08:37:36 +0000 (+0000)
Subject: Synch to No Gnus 200508010837.
X-Git-Tag: t-gnus-6_17_4-quimby-~442
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=91a0390ebd9468d21bcbae41ec794ea1bd587e62;p=elisp%2Fgnus.git-

Synch to No Gnus 200508010837.
---

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  <yamaoka@jpl.org>
+
+	* 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  <yamaoka@jpl.org>
 
 	* 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))