From: yamaoka <yamaoka>
Date: Mon, 25 Mar 2002 02:09:57 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 01.
X-Git-Tag: t-gnus-6_15_6-01-quimby~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fb50abb68d610638a3800705dd247cea0876be8;p=elisp%2Fgnus.git-

* gnus-vers.el (gnus-revision-number): Increment to 01.

* message.el (message-save-drafts, message-check-8bit, message-send-news,
 message-send-mail, message-send): Replace `insert-buffer' with
 `insert-buffer-substring'.
* gnus-art.el (gnus-article-mime-edit-article-setup, gnus-article-edit-exit,
 article-verify-x-pgp-sig): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 8e361be..09744c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-03-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 01.
+
+	* lisp/message.el (message-save-drafts, message-check-8bit,
+	message-send-news, message-send-mail, message-send): Replace
+	`insert-buffer' with `insert-buffer-substring'.
+	* lisp/gnus-art.el (gnus-article-mime-edit-article-setup,
+	gnus-article-edit-exit, article-verify-x-pgp-sig): Ditto.
+
 2002-03-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-sum.el (gnus-summary-make-menu-bar): Don't provide
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6d620b0..8be4868 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3361,7 +3361,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
 		   mml2015-use
 		   (mml2015-clear-verify-function))
 	  (with-temp-buffer
-	    (insert-buffer gnus-original-article-buffer)
+	    (insert-buffer-substring gnus-original-article-buffer)
 	    (setq items (split-string sig))
 	    (message-narrow-to-head)
 	    (let ((inhibit-point-motion-hooks t)
@@ -5637,7 +5637,7 @@ groups."
 	  (window-start (window-start)))
       (erase-buffer)
       (if (gnus-buffer-live-p gnus-original-article-buffer)
-	  (insert-buffer gnus-original-article-buffer))
+	  (insert-buffer-substring gnus-original-article-buffer))
       (let ((winconf gnus-prev-winconf))
 	(gnus-article-mode)
 	(set-window-configuration winconf)
@@ -5707,7 +5707,7 @@ after replacing with the original article."
 			     'gnus-article-mime-edit-exit
 			     gnus-article-edit-mode-map)
   (erase-buffer)
-  (insert-buffer gnus-original-article-buffer)
+  (insert-buffer-substring gnus-original-article-buffer)
   (let ((ofn (symbol-function 'mime-edit-decode-single-part-in-buffer)))
     (fset 'mime-edit-decode-single-part-in-buffer
 	  (lambda (&rest args)
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index fa04105..2e22166 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "00"
+(defconst gnus-revision-number "01"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
diff --git a/lisp/message.el b/lisp/message.el
index 2a35784..42672bc 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3071,7 +3071,7 @@ It should typically alter the sending method in some way or other."
 	;; ;; Avoid copying text props (except hard newlines).
 	;; T-gnus change: copy all text props from the editing buffer
 	;; into the encoding buffer.
-	(insert-buffer message-edit-buffer)
+	(insert-buffer-substring message-edit-buffer)
 	(funcall message-encode-function)
 	(while (and success
 		    (setq elem (pop alist)))
@@ -3429,7 +3429,7 @@ This sub function is for exclusive use of `message-send-mail'."
 	    ;; ;; Avoid copying text props (except hard newlines).
 	    ;; T-gnus change: copy all text props from the editing buffer
 	    ;; into the encoding buffer.
-	    (insert-buffer message-encoding-buffer)
+	    (insert-buffer-substring message-encoding-buffer)
 	    ;; Remove some headers.
 	    (save-restriction
 	      (message-narrow-to-headers)
@@ -3730,7 +3730,7 @@ Otherwise, generate and save a value for `canlock-password' first."
 	    (set-buffer tembuf)
 	    (buffer-disable-undo)
 	    (erase-buffer)
-	    (insert-buffer message-encoding-buffer)
+	    (insert-buffer-substring message-encoding-buffer)
 	    ;; Remove some headers.
 	    (save-restriction
 	      (message-narrow-to-headers)
@@ -4184,7 +4184,7 @@ Otherwise, generate and save a value for `canlock-password' first."
 	(erase-buffer)
 	(goto-char (point-min))
 	(set-buffer-multibyte nil)
-	(insert-buffer message-encoding-buffer)
+	(insert-buffer-substring message-encoding-buffer)
 	(goto-char (point-min))
 	(if (re-search-forward "[^\x00-\x7f]" nil t)
 	    (y-or-n-p
@@ -6439,7 +6439,7 @@ regexp varstr."
   (let ((reply-headers message-reply-headers)
 	(buffer (current-buffer)))
     (with-temp-file buffer-file-name
-      (insert-buffer buffer)
+      (insert-buffer-substring buffer)
       (setq message-reply-headers reply-headers)
       (message-generate-headers '((optional . In-Reply-To)))
       (let ((mime-header-encode-method-alist