Add missing :version tags to new defcustoms and defgroups

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1abae71..2b4639f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,25 @@
+2012-02-11  Glenn Morris  <rgm@gnu.org>
+
+       * sieve-manage.el (sieve-manage-default-stream):
+       * shr.el (shr):
+       * nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
+       (nnir-retrieve-headers-override-function)
+       (nnir-imap-default-search-key, nnir-notmuch-program)
+       (nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
+       (nnir-method-default-engines):
+       * message.el (message-cite-reply-position):
+       * gssapi.el (gssapi-program):
+       * gravatar.el (gravatar):
+       * gnus-sum.el (gnus-refer-thread-use-nnir):
+       * gnus-registry.el (gnus-registry-unfollowed-addresses)
+       (gnus-registry-max-pruned-entries):
+       * gnus-picon.el (gnus-picon-inhibit-top-level-domains):
+       * gnus-int.el (gnus-after-set-mark-hook)
+       (gnus-before-update-mark-hook):
+       * gnus-async.el (gnus-async-post-fetch-function):
+       * auth-source.el (auth-source-cache-expiry):
+       Add missing :version tags to new defcustoms and defgroups.
+
 2012-02-11  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-adjust-marked-articles): Add to

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index de2fecf..3ddbb56 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -94,6 +94,7 @@
   "How many seconds passwords are cached, or nil to disable
 expiring.  Overrides `password-cache-expiry' through a
 let-binding."
+  :version "24.1"
   :group 'auth-source
   :type '(choice (const :tag "Never" nil)
                  (const :tag "All Day" 86400)

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 378b0e0..603952d 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -74,6 +74,7 @@ It should return non-nil if the article is to be prefetched."
   "Function called after an article has been prefetched.
 The function will be called narrowed to the region of the article
 that was fetched."
+  :version "24.1"
   :group 'gnus-asynchronous
   :type 'function)
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 20add47..8dc691f 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -43,11 +43,13 @@
 
 (defcustom gnus-after-set-mark-hook nil
   "Hook called just after marks are set in a group."
+  :version "24.1"
   :group 'gnus-start
   :type 'hook)
 
 (defcustom gnus-before-update-mark-hook nil
   "Hook called just before marks are updated in a group."
+  :version "24.1"
   :group 'gnus-start
   :type 'hook)
 

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 69b65df..2f347ef 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -87,6 +87,7 @@ added right to the textual representation."
 (defcustom gnus-picon-inhibit-top-level-domains t
   "If non-nil, don't piconify top-level domains.
 These are often not very interesting."
+  :version "24.1"
   :type 'boolean
   :group 'gnus-picon)
 

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index eac4ed7..8e83c32 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -142,6 +142,7 @@ display.")
 The addresses are matched, they don't have to be fully qualified.
 In the messages, these addresses can be the sender or the
 recipients."
+  :version "24.1"
   :group 'gnus-registry
   :type '(repeat regexp))
 
@@ -243,6 +244,7 @@ the Bit Bucket."
 
 (defcustom gnus-registry-max-pruned-entries nil
   "Maximum number of pruned entries in the registry, nil for unlimited."
+  :version "24.1"
   :group 'gnus-registry
   :type '(radio (const :format "Unlimited " nil)
                 (integer :format "Maximum number: %v")))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 17bd7e1..566e9df 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -122,6 +122,7 @@ If t, fetch all the available old headers."
   "*Use nnir to search an entire server when referring threads. A
 nil value will only search for thread-related articles in the
 current group."
+  :version "24.1"
   :group 'gnus-thread
   :type 'boolean)
 

diff --git a/lisp/gravatar.el b/lisp/gravatar.el
index 75e7480..a10ea21 100644 (file)
--- a/lisp/gravatar.el
+++ b/lisp/gravatar.el
@@ -29,6 +29,7 @@
 
 (defgroup gravatar nil
   "Gravatar."
+  :version "24.1"
   :group 'comm)
 
 (defcustom gravatar-automatic-caching t

diff --git a/lisp/gssapi.el b/lisp/gssapi.el
index 4bc9392..ab8831d 100644 (file)
--- a/lisp/gssapi.el
+++ b/lisp/gssapi.el
@@ -37,6 +37,7 @@
 and %l with the user name.  The program should accept commands on
 stdin and return responses to stdout.  Each entry in the list is
 tried until a successful connection is made."
+  :version "24.1"
   :group 'network
   :type '(repeat string))
 

diff --git a/lisp/message.el b/lisp/message.el
index abc1f3a..f32981f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1139,6 +1139,7 @@ probably want to set this variable only for specific groups,
 e.g. using `gnus-posting-styles':
 
   (eval (set (make-local-variable 'message-cite-reply-position) 'above))"
+  :version "24.1"
   :type '(choice (const :tag "Reply inline" 'traditional)
                 (const :tag "Reply above" 'above)
                 (const :tag "Reply below" 'below))

diff --git a/lisp/netrc.el b/lisp/netrc.el
index 070b32a..16d9203 100644 (file)
--- a/lisp/netrc.el
+++ b/lisp/netrc.el
@@ -39,6 +39,7 @@
 
 (defcustom netrc-file "~/.authinfo"
   "File where user credentials are stored."
+  :version "24.1"
   :type 'file
   :group 'netrc)
 

diff --git a/lisp/nnir.el b/lisp/nnir.el
index 1d4f1c2..d1ca021 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -310,6 +310,7 @@ is `(valuefunc member)'."
 (defcustom nnir-ignored-newsgroups ""
   "*A regexp to match newsgroups in the active file that should
   be skipped when searching."
+  :version "24.1"
   :type '(regexp)
   :group 'nnir)
 
@@ -324,6 +325,7 @@ with three items unique to nnir summary buffers:
 %g    Article original short group name (string)
 
 If nil this will use `gnus-summary-line-format'."
+  :version "24.1"
   :type '(string)
   :group 'nnir)
 
@@ -335,6 +337,7 @@ retrieved header format.
 
 If this variable is nil, or if the provided function returns nil for a search
 result, `gnus-retrieve-headers' will be called instead."
+  :version "24.1"
   :type '(function)
   :group 'nnir)
 
@@ -342,6 +345,7 @@ result, `gnus-retrieve-headers' will be called instead."
   "*The default IMAP search key for an nnir search. Must be one of
   the keys in `nnir-imap-search-arguments'. To use raw imap queries
   by default set this to \"Imap\"."
+  :version "24.1"
   :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
                           nnir-imap-search-arguments))
   :group 'nnir)
@@ -503,6 +507,7 @@ arrive at the correct group name, \"mail.misc\"."
 
 (defcustom nnir-notmuch-program "notmuch"
   "*Name of notmuch search executable."
+  :version "24.1"
   :type '(string)
   :group 'nnir)
 
@@ -513,6 +518,7 @@ Note that this should be a list.  Ie, do NOT use the following:
     (setq nnir-notmuch-additional-switches \"-i -w\") ; wrong
 Instead, use this:
     (setq nnir-notmuch-additional-switches '(\"-i\" \"-w\"))"
+  :version "24.1"
   :type '(repeat (string))
   :group 'nnir)
 
@@ -523,6 +529,7 @@ regular expression.
 
 This variable is very similar to `nnir-namazu-remove-prefix', except
 that it is for notmuch, not Namazu."
+  :version "24.1"
   :type '(regexp)
   :group 'nnir)
 
@@ -573,6 +580,7 @@ Add an entry here when adding a new search engine.")
   '((nnimap . imap)
     (nntp . gmane))
   "*Alist of default search engines keyed by server method."
+  :version "24.1"
   :type `(repeat (cons (choice (const nnimap) (const nttp) (const nnspool)
                               (const nneething) (const nndir) (const nnmbox)
                               (const nnml) (const nnmh) (const nndraft)

diff --git a/lisp/shr.el b/lisp/shr.el
index 236c198..7815845 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -35,6 +35,7 @@
 
 (defgroup shr nil
   "Simple HTML Renderer"
+  :version "24.1"
   :group 'mail)
 
 (defcustom shr-max-image-proportion 0.9

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 4712cab..74bcbcc 100644 (file)
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -157,6 +157,7 @@ for doing the actual authentication."
 (defcustom sieve-manage-default-stream 'network
   "Default stream type to use for `sieve-manage'.
 Must be a name of a stream in `sieve-manage-stream-alist'."
+  :version "24.1"
   :type 'symbol
   :group 'sieve-manage)