* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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