(article-transform-date): Fix infinite recursion.

[gnus] / lisp / gnus-html.el

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 2e969b7..7c0d63f 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -1,6 +1,6 @@
 ;;; gnus-html.el --- Render HTML in a buffer.
 
-;; Copyright (C) 2010, 2011  Free Software Foundation, Inc.
+;; Copyright (C) 2010-2011  Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: html, web
@@ -408,7 +408,8 @@ Use ALT-TEXT for the image string."
       (let ((data (buffer-substring (point) (point-max))))
         (with-current-buffer buffer
           (let ((inhibit-read-only t))
-            (gnus-html-put-image data (car image) (cadr image))))))))
+            (gnus-html-put-image data (car image) (cadr image)))))))
+  (kill-buffer (current-buffer)))
 
 (defun gnus-html-get-image-data (url)
   "Get image data for URL.