Mercurial > emacs

comparison lisp/gnus/gnus-html.el @ 110084:320a820be8d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-html.el, message.el: Add custom version to new variables; gnus-sum.el: Bump custom version of gnus-auto-expirable-marks.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 01 Sep 2010 04:44:25 +0000
parents 9921d33b9ce3
children f661002e9a6d
comparison
equal deleted inserted replaced
110083:9921d33b9ce3 110084:320a820be8d8
32 (eval-when-compile (require 'mm-decode)) 32 (eval-when-compile (require 'mm-decode))
33 (require 'mm-url) 33 (require 'mm-url)
34 34
35 (defcustom gnus-html-cache-directory (nnheader-concat gnus-directory "html-cache/") 35 (defcustom gnus-html-cache-directory (nnheader-concat gnus-directory "html-cache/")
36 "Where Gnus will cache images it downloads from the web." 36 "Where Gnus will cache images it downloads from the web."
37 :version "24.1"
37 :group 'gnus-art 38 :group 'gnus-art
38 :type 'directory) 39 :type 'directory)
39 40
40 (defcustom gnus-html-cache-size 500000000 41 (defcustom gnus-html-cache-size 500000000
41 "The size of the Gnus image cache." 42 "The size of the Gnus image cache."
43 :version "24.1"
42 :group 'gnus-art 44 :group 'gnus-art
43 :type 'integer) 45 :type 'integer)
44 46
45 (defcustom gnus-html-frame-width 70 47 (defcustom gnus-html-frame-width 70
46 "What width to use when rendering HTML." 48 "What width to use when rendering HTML."
49 :version "24.1"
47 :group 'gnus-art 50 :group 'gnus-art
48 :type 'integer) 51 :type 'integer)
49 52
50 (defcustom gnus-blocked-images "." 53 (defcustom gnus-blocked-images "."
51 "Images that have URLs matching this regexp will be blocked." 54 "Images that have URLs matching this regexp will be blocked."
55 :version "24.1"
52 :group 'gnus-art 56 :group 'gnus-art
53 :type 'regexp) 57 :type 'regexp)
54 58
55 ;;;###autoload 59 ;;;###autoload
56 (defun gnus-article-html (handle) 60 (defun gnus-article-html (handle)