From 3fb50abb68d610638a3800705dd247cea0876be8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 25 Mar 2002 02:09:57 +0000 Subject: [PATCH] * 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. --- ChangeLog | 10 ++++++++++ lisp/gnus-art.el | 6 +++--- lisp/gnus-vers.el | 2 +- lisp/message.el | 10 +++++----- 4 files changed, 19 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8e361be..09744c5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2002-03-25 Katsumi Yamaoka + + * 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 * 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 -- 1.7.10.4