From edd9679c3707f045d8bea911bc657ff367096bc3 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 7 Jan 2012 11:46:47 +0000 Subject: [PATCH] shr.el (shr-visit-file): Move point to the beginning of the buffer after rendering. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/shr.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 13bae6f5eaa..630184a60c5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-01-07 Lars Magne Ingebrigtsen + + * shr.el (shr-visit-file): Move point to the beginning of the buffer + after rendering. + 2012-01-07 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-summary-read-group): Document more parameters diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index d4d8f7dd31e..969d893c2d4 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -134,7 +134,8 @@ cid: URL as the argument.") (shr-insert-document (with-temp-buffer (insert-file-contents file) - (libxml-parse-html-region (point-min) (point-max))))) + (libxml-parse-html-region (point-min) (point-max)))) + (goto-char (point-min))) ;;;###autoload (defun shr-insert-document (dom) -- 2.39.2