* 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 70b08e5..85e82d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2003-03-03  Jesper Harder  <harder@ifa.au.dk>
+
+       * 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  <Reiner.Steib@gmx.de>
 
        * mail-source.el (mail-source-delete-incoming): Allow integer value.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 85d619c..1af0325 100644 (file)
--- 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 dd6a774..41965a9 100644 (file)
--- 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 e46f00f..a74bc66 100644 (file)
--- 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 a9faf5e..06b0f47 100644 (file)
--- 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 9862770..249f3e9 100644 (file)
--- 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 0f5af82..b653c7e 100644 (file)
--- 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 9e325db..271e672 100644 (file)
--- 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 6cc95c3..da53530 100644 (file)
--- 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 3d28f8e..b9e259d 100644 (file)
--- 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 2b3dd27..00f1332 100644 (file)
--- 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)