Speedups; see ChangeLog for fine details.

[elisp/gnus.git-] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index da69f43..32ff5bb 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -794,7 +794,7 @@ used to 899, you would say something along these lines:
             (set-buffer (gnus-get-buffer-create " *gnus nntp*"))
             (buffer-disable-undo (current-buffer))
             (insert-file-contents gnus-nntpserver-file)
-            (let ((name (buffer-string)))
+            (let ((name (buffer-substring (point-min) (point-max))))
               (prog1
                   (if (string-match "^[ \t\n]*$" name)
                       nil