Speedups; see ChangeLog for fine details.

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

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index a3b5418..fba2811 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -514,7 +514,9 @@ none, and whose CDR is the corresponding element of DOMAINS."
                                        nil 'quiet)
                          (prog1 (make-glyph (vector 'xbm :file fname))
                            (delete-file fname))))
-       (t (make-glyph (vector type :data (buffer-string))))))
+       (t (make-glyph
+           (vector type :data
+                   (buffer-substring (point-min) (point-max)))))))
 
 ;;; Parsing of piconsearch result page.