From d9dfa9384e316caeea28a44d55f8e7421a4a6065 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 11 Feb 2012 23:42:06 +0000
Subject: [PATCH] Add missing :version tags to new defcustoms and defgroups

---
 lisp/ChangeLog        | 22 ++++++++++++++++++++++
 lisp/auth-source.el   |  1 +
 lisp/gnus-async.el    |  1 +
 lisp/gnus-int.el      |  2 ++
 lisp/gnus-picon.el    |  1 +
 lisp/gnus-registry.el |  2 ++
 lisp/gnus-sum.el      |  1 +
 lisp/gravatar.el      |  1 +
 lisp/gssapi.el        |  1 +
 lisp/message.el       |  1 +
 lisp/netrc.el         |  1 +
 lisp/nnir.el          |  8 ++++++++
 lisp/shr.el           |  1 +
 lisp/sieve-manage.el  |  1 +
 14 files changed, 44 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4455f780d..1395d7a1c 100644
--- 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-10  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* message.el (message-default-send-mail-function): Made into own
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index de2fecf44..3ddbb5679 100644
--- 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 378b0e063..603952dd1 100644
--- 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 20add470a..8dc691ffe 100644
--- 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 69b65dfcb..2f347efe5 100644
--- 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 9df6dc4ab..f1618b376 100644
--- 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 63482eea1..4316eface 100644
--- 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 75e748037..a10ea21b9 100644
--- 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 4bc939247..ab8831dc4 100644
--- 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 2a9751a92..416a4c8c3 100644
--- 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 070b32a63..16d9203ba 100644
--- 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 1d4f1c25a..d1ca0213e 100644
--- 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 386c9c62b..a8bbc77a4 100644
--- 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 4712cab6b..74bcbcc78 100644
--- 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)
 
-- 
2.25.1