Undo all of the last changes.

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

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index f3365ee..38de8df 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -325,7 +325,7 @@ arguments necessary for the job.")
                (let ((article-goto-body-goes-to-point-min-p nil))
                  (article-goto-body))
                (unless (bobp)
-                 (forward-char -1)))))
+                 (backward-char 1)))))
          (if (null gnus-picons-piconsearch-url)
              (gnus-picons-display-pairs
               (gnus-picons-lookup-pairs
@@ -506,8 +506,7 @@ 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-substring
-                                          (point-min) (point-max)))))))
+       (t (make-glyph (vector type :data (buffer-string))))))
 
 ;;; Parsing of piconsearch result page.