Revoke previous bogus `buffer-size' changes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7157020..81b1f55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,5 @@
 2003-03-06  Jesper Harder  <harder@ifa.au.dk>
 
-       * rfc2047.el (rfc2047-q-encode-region): Use `buffer-size'.
-       * pop3.el (pop3-munge-message-separator): do.
-       * gnus-art.el (gnus-article-treat-unfold-headers)
-       (gnus-treat-article): do.
-
        * nnimap.el (nnimap-request-accept-article): Use delete-region.
 
        * html2text.el (html2text-clean-dtdd, html2text-delete-tags)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0fa11bb..1af0325 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1826,7 +1826,7 @@ unfolded."
              (goto-char (point-min))
              (while (re-search-forward "\n[\t ]" nil t)
                (replace-match " " t t)))
-           (setq length (- (buffer-size) 1)))
+           (setq length (- (point-max) (point-min) 1)))
          (when (< length (window-width))
            (while (re-search-forward "\n[\t ]" nil t)
              (replace-match " " t t)))
@@ -6406,7 +6406,7 @@ For example:
 ;;;
 
 (defun gnus-treat-article (condition &optional part-number total-parts type)
-  (let ((length (buffer-size))
+  (let ((length (- (point-max) (point-min)))
        (alist gnus-treatment-function-alist)
        (article-goto-body-goes-to-point-min-p t)
        (treated-type

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 7b8eba7..0c2f73c 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -271,7 +271,7 @@ If NOW, use that time instead."
              (goto-char (point-max))
              (insert "\n"))
            (narrow-to-region (point) (point-max))
-           (let ((size (buffer-size)))
+           (let ((size (- (point-max) (point-min))))
              (goto-char (point-min))
              (widen)
              (forward-line -1)

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index f658545..fdce08d 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -478,7 +478,7 @@ The buffer may be narrowed."
          (pop alist))
        ;; The size of QP encapsulation is about 20, so set limit to
        ;; 56=76-20.
-       (unless (< (buffer-size) 56)
+       (unless (< (- (point-max) (point-min)) 56)
          ;; Don't break if it could fit in one line.
          ;; Let rfc2047-encode-region break it later.
          (goto-char (1+ (point-min)))