From: Jesper Harder Date: Mon, 3 Mar 2003 17:52:32 +0000 (+0000) Subject: * nnrss.el (nnrss-decode-entities-unibyte-string): Use `buffer-string'. X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=771b24db1272417e9b3c955d9dd02d53cd113ccd * nnrss.el (nnrss-decode-entities-unibyte-string): Use `buffer-string'. * nndoc.el (nndoc-dissect-mime-parts-sub): do. * nndb.el (nndb-request-accept-article, nndb-status-message): do. * mm-url.el (mm-url-decode-entities-string): do. * mml1991.el (mml1991-mailcrypt-sign, mml1991-gpg-sign): do. * mm-decode.el (mm-find-raw-part-by-type): do. * message.el (message-send-mail-partially) (message-send-mail-with-sendmail): do. * gnus-uu.el (gnus-uu-save-article, gnus-uu-reginize-string): do. * gnus-kill.el (gnus-pp-gnus-kill): do. * gnus-art.el (gnus-article-treat-unfold-headers) (gnus-article-encrypt-body): do. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70b08e52e..85e82d361 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,18 @@ +2003-03-03 Jesper Harder + + * nnrss.el (nnrss-decode-entities-unibyte-string): Use `buffer-string'. + * nndoc.el (nndoc-dissect-mime-parts-sub): do. + * nndb.el (nndb-request-accept-article, nndb-status-message): do. + * mm-url.el (mm-url-decode-entities-string): do. + * mml1991.el (mml1991-mailcrypt-sign, mml1991-gpg-sign): do. + * mm-decode.el (mm-find-raw-part-by-type): do. + * message.el (message-send-mail-partially) + (message-send-mail-with-sendmail): do. + * gnus-uu.el (gnus-uu-save-article, gnus-uu-reginize-string): do. + * gnus-kill.el (gnus-pp-gnus-kill): do. + * gnus-art.el (gnus-article-treat-unfold-headers) + (gnus-article-encrypt-body): do. + 2003-02-24 Reiner Steib * mail-source.el (mail-source-delete-incoming): Allow integer value. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 85d619c2e..1af0325de 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1820,7 +1820,7 @@ unfolded." (while (not (eobp)) (save-restriction (mail-header-narrow-to-field) - (let ((header (buffer-substring (point-min) (point-max)))) + (let ((header (buffer-string))) (with-temp-buffer (insert header) (goto-char (point-min)) @@ -6516,7 +6516,7 @@ For example: (search-forward field nil t)) (prog2 (message-narrow-to-field) - (buffer-substring (point-min) (point-max)) + (buffer-string) (delete-region (point-min) (point-max)) (widen)))) '("Content-Type:" "Content-Transfer-Encoding:" diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el index dd6a77461..41965a9c7 100644 --- a/lisp/gnus-kill.el +++ b/lisp/gnus-kill.el @@ -578,7 +578,7 @@ COMMAND must be a lisp expression or a string representing a key sequence." (insert "\n t")) (insert ")") (prog1 - (buffer-substring (point-min) (point-max)) + (buffer-string) (kill-buffer (current-buffer)))))) (defun gnus-execute-1 (function regexp form header) diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index e46f00f37..a74bc66ea 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -869,7 +869,7 @@ When called interactively, prompt for REGEXP." (setq body (buffer-substring (1- (point)) (point-max))) (narrow-to-region (point-min) (point)) (if (not (setq headers gnus-uu-digest-headers)) - (setq sorthead (buffer-substring (point-min) (point-max))) + (setq sorthead (buffer-string)) (while headers (setq headline (car headers)) (setq headers (cdr headers)) @@ -1089,7 +1089,7 @@ When called interactively, prompt for REGEXP." (while (re-search-forward "[ \t]+" nil t) (replace-match "[ \t]+" t t)) - (buffer-substring (point-min) (point-max)))) + (buffer-string))) (defun gnus-uu-get-list-of-articles (n) ;; If N is non-nil, the article numbers of the N next articles diff --git a/lisp/message.el b/lisp/message.el index a9faf5ec8..06b0f4755 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3391,7 +3391,7 @@ It should typically alter the sending method in some way or other." (message-remove-header "Lines") (goto-char (point-max)) (insert "Mime-Version: 1.0\n") - (setq header (buffer-substring (point-min) (point-max)))) + (setq header (buffer-string))) (goto-char (point-max)) (insert (format "Content-Type: message/partial; id=\"%s\"; number=%d; total=%d\n\n" id n total)) @@ -3581,7 +3581,7 @@ If you always want Gnus to send messages in one piece, set (replace-match "; ")) (if (not (zerop (buffer-size))) (error "Sending...failed to %s" - (buffer-substring (point-min) (point-max))))))) + (buffer-string)))))) (when (bufferp errbuf) (kill-buffer errbuf))))) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 9862770df..249f3e967 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1262,7 +1262,7 @@ If RECURSIVE, search recursively." (if notp (not (equal (car ctl) type)) (equal (car ctl) type))) - (setq result (buffer-substring (point-min) (point-max))))))) + (setq result (buffer-string)))))) (forward-line 1) (setq start (point))) (when (and (not result) start) @@ -1275,7 +1275,7 @@ If RECURSIVE, search recursively." (if notp (not (equal (car ctl) type)) (equal (car ctl) type))) - (setq result (buffer-substring (point-min) (point-max))))))) + (setq result (buffer-string)))))) result)) (defvar mm-security-handle nil) diff --git a/lisp/mm-url.el b/lisp/mm-url.el index 0f5af8241..b653c7ec0 100644 --- a/lisp/mm-url.el +++ b/lisp/mm-url.el @@ -359,7 +359,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (with-temp-buffer (insert string) (mm-url-decode-entities) - (buffer-substring (point-min) (point-max)))) + (buffer-string))) (defun mm-url-form-encode-xwfu (chunk) "Escape characters in a string for application/x-www-form-urlencoded. diff --git a/lisp/mml1991.el b/lisp/mml1991.el index 9e325dbae..271e672c1 100644 --- a/lisp/mml1991.el +++ b/lisp/mml1991.el @@ -24,7 +24,7 @@ ;;; Commentary: -;; RCS: $Id: mml1991.el,v 6.15 2002/10/10 00:54:59 jas Exp $ +;; RCS: $Id: mml1991.el,v 6.16 2002/10/11 00:02:24 jas Exp $ ;;; Code: @@ -57,7 +57,7 @@ (while (looking-at "^Content[^ ]+:") (forward-line)) (if (> (point) (point-min)) (progn - (setq headers (buffer-substring (point-min) (point))) + (setq headers (buffer-string)) (kill-region (point-min) (point)))) (goto-char (point-max)) (unless (bolp) @@ -142,7 +142,7 @@ (while (looking-at "^Content[^ ]+:") (forward-line)) (if (> (point) (point-min)) (progn - (setq headers (buffer-substring (point-min) (point))) + (setq headers (buffer-string)) (kill-region (point-min) (point)))) (goto-char (point-max)) (unless (bolp) diff --git a/lisp/nndb.el b/lisp/nndb.el index 6cc95c3a0..da5353059 100644 --- a/lisp/nndb.el +++ b/lisp/nndb.el @@ -292,7 +292,7 @@ Optional LAST is ignored." (nntp-send-buffer "^[23].*\n")) (set-buffer nntp-server-buffer) - (setq msg (buffer-substring (point-min) (point-max))) + (setq msg (buffer-string)) (or (string-match "^\\([0-9]+\\)" msg) (error "nndb: %s" msg)) (setq art (substring msg (match-beginning 1) (match-end 1))) @@ -318,7 +318,7 @@ Optional LAST is ignored." (deffoo nndb-status-message (&optional server) "Return server status as a string." (set-buffer nntp-server-buffer) - (buffer-substring (point-min) (point-max))) + (buffer-string)) ;; Import stuff from nntp diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 3d28f8ea7..b9e259d1d 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -890,7 +890,7 @@ PARENT is the message-ID of the parent summary line, or nil for none." subtype "plain")) ;; Prepare the article and summary inserts. (unless article-insert - (setq article-insert (buffer-substring (point-min) (point-max)) + (setq article-insert (buffer-string) head-end head-begin)) ;; Fix MIME-Version (unless (string-match "MIME-Version:" article-insert) diff --git a/lisp/nnrss.el b/lisp/nnrss.el index 2b3dd2784..00f133251 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -458,7 +458,7 @@ ARTICLE is the article number of the current headline.") (mm-with-unibyte-buffer (insert string) (mm-url-decode-entities-nbsp) - (buffer-substring (point-min) (point-max)))) + (buffer-string))) (defalias 'nnrss-insert 'nnrss-insert-w3)