* nntp.el (nntp): New customization group.

(nntp-authinfo-file): Added customization group.

* mml2015.el (mml2015-unabbrev-trust-alist): Added customization
group.

* mml-sec.el (mml-signencrypt-style-alist): Ditto.

* gnus.el (to-address, to-list, subscribed)
(large-newsgroup-initial): Ditto.

* flow-fill.el (fill-flowed-display-column)
(fill-flowed-encode-column): Ditto.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 58842d7fa8dd691acf04fd1a605914e91b6e4f37..0f0f4697c477c9e0c6f6ba2d5b3f1c3bea35d6da 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,19 @@
+2004-09-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nntp.el (nntp): New customization group.
+       (nntp-authinfo-file): Added customization group.
+
+       * mml2015.el (mml2015-unabbrev-trust-alist): Added customization
+       group.
+
+       * mml-sec.el (mml-signencrypt-style-alist): Ditto.
+
+       * gnus.el (to-address, to-list, subscribed)
+       (large-newsgroup-initial): Ditto.
+
+       * flow-fill.el (fill-flowed-display-column)
+       (fill-flowed-encode-column): Ditto.
+
 2004-09-06  Stefan  <monnier@iro.umontreal.ca>
 
        * message.el (message-tokenize-header, message-send-mail-with-qmail):

diff --git a/lisp/gnus/flow-fill.el b/lisp/gnus/flow-fill.el
index c3602cc9b4414c8cdf1f5f9595c6eb585ea279da..9f2ae5c98bdd317f269c57b6a7618b52c7a4117b 100644 (file)
--- a/lisp/gnus/flow-fill.el
+++ b/lisp/gnus/flow-fill.el
@@ -56,6 +56,7 @@
 (defcustom fill-flowed-display-column 'fill-column
   "Column beyond which format=flowed lines are wrapped, when displayed.
 This can be a Lisp expression or an integer."
+  :group 'mime-display
   :type '(choice (const :tag "Standard `fill-column'" fill-column)
                 (const :tag "Fit Window" (- (window-width) 5))
                 (sexp)
@@ -65,6 +66,7 @@ This can be a Lisp expression or an integer."
   "Column beyond which format=flowed lines are wrapped, in outgoing messages.
 This can be a Lisp expression or an integer.
 RFC 2646 suggests 66 characters for readability."
+  :group 'mime-display
   :type '(choice (const :tag "Standard fill-column" fill-column)
                 (const :tag "RFC 2646 default (66)" 66)
                 (sexp)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 5d09c4b5c3ca547baca849e8edc06387b03dac8a..eaa77f02e900c5a8e5237d073559a5536cce1331 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1599,6 +1599,7 @@ to be desirable; see the manual for further details."
  "Return GROUP's to-address."
  :variable-document
  "*Alist of group regexps and correspondent to-addresses."
+ :variable-group gnus-group-parameter
  :parameter-type '(gnus-email-address :tag "To Address")
  :parameter-document "\
 This will be used when doing followups and posts.
@@ -1625,6 +1626,7 @@ address was listed in gnus-group-split Addresses (see below).")
  "Return GROUP's to-list."
  :variable-document
  "*Alist of group regexps and correspondent to-lists."
+ :variable-group gnus-group-parameter
  :parameter-type '(gnus-email-address :tag "To List")
  :parameter-document "\
 This address will be used when doing a `a' in the group.
@@ -1643,6 +1645,7 @@ address was listed in gnus-group-split Addresses (see below).")
  "Return GROUP's subscription status."
  :variable-document
  "*Groups which are automatically considered subscribed."
+ :variable-group gnus-group-parameter
  :parameter-type '(const :tag "Subscribed" t)
  :parameter-document "\
 Gnus assumed that you are subscribed to the To/List address.
@@ -1749,6 +1752,7 @@ posting an article."
  "Return GROUP's initial input of the number of articles."
  :variable-document
  "*Alist of group regexps and its initial input of the number of articles."
+ :variable-group gnus-group-parameter
  :parameter-type '(choice :tag "Initial Input for Large Newsgroup"
                          (const :tag "All" nil)
                          (integer))

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index f726013dc2c75f219a53023a89a5b5a47726db6a..c9f5cb80190a0f35c17e4430ae190cf45c9365f2 100644 (file)
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -83,6 +83,7 @@ Note that the output generated by using a `combined' mode is NOT
 understood by all PGP implementations, in particular PGP version
 2 does not support it!  See Info node `(message)Security' for
 details."
+  :group 'message
   :type '(repeat (list (choice (const :tag "S/MIME" "smime")
                               (const :tag "PGP" "pgp")
                               (const :tag "PGP/MIME" "pgpmime")

diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index 995e113e02f5f795bac3b7df7251a6ae627d230f..6c89cfbe7987720b15ca7434abbe3f7e8c85333e 100644 (file)
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -83,6 +83,7 @@
     ("TRUST_FULLY"     . t)
     ("TRUST_ULTIMATE"  . t))
   "Map GnuPG trust output values to a boolean saying if you trust the key."
+  :group 'mime-security
   :type '(repeat (cons (regexp :tag "GnuPG output regexp")
                       (boolean :tag "Trust key"))))
 

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 6b312de24e49f0b3a30c4f92ba2f1d178a67fc19..8a10600fcb845b236fe9640090b6b016d909147f 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -34,6 +34,10 @@
 
 (eval-when-compile (require 'cl))
 
+(defgroup nntp nil
+  "NNTP access for Gnus."
+  :group 'gnus)
+
 (defvoo nntp-address nil
   "Address of the physical nntp server.")
 
@@ -182,6 +186,7 @@ server there that you can connect to.  See also
 
 (defcustom nntp-authinfo-file "~/.authinfo"
   ".netrc-like file that holds nntp authinfo passwords."
+  :group 'nntp
   :type
   '(choice file
           (repeat :tag "Entries"