+2010-09-22 Julien Danjou <julien@danjou.info>
+
+ * gnus-html.el (gnus-html-image-automatic-caching): Add custom
+ variable.
+ (gnus-html-image-fetched): Only cache if
+ gnus-html-image-automatic-caching is set.
+
2010-09-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-split-incoming-mail): Delete 'junk.
(require 'browse-url)
(defcustom gnus-html-image-cache-ttl (days-to-time 7)
- "Time in seconds used to cache the image on disk."
+ "Time used to determine if we should use images from the cache."
:version "24.1"
:group 'gnus-art
:type 'integer)
+(defcustom gnus-html-image-automatic-caching t
+ "Whether automatically cache retrieve images."
+ :version "24.1"
+ :group 'gnus-art
+ :type 'boolean)
+
(defcustom gnus-html-frame-width 70
"What width to use when rendering HTML."
:version "24.1"
(list buffer image))))
(defun gnus-html-image-fetched (status buffer image)
- (url-store-in-cache (current-buffer))
+ "Callback function called when image has been fetched."
+ (when gnus-html-image-automatic-caching
+ (url-store-in-cache (current-buffer)))
(when (and (or (search-forward "\n\n" nil t)
(search-forward "\r\n\r\n" nil t))
(buffer-live-p buffer))