From e79f14a42e6914d5ad7d01ab055189dea48bc196 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 8 Sep 2004 18:17:56 +0000 Subject: [PATCH] * 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. --- lisp/gnus/ChangeLog | 16 ++++++++++++++++ lisp/gnus/flow-fill.el | 2 ++ lisp/gnus/gnus.el | 4 ++++ lisp/gnus/mml-sec.el | 1 + lisp/gnus/mml2015.el | 1 + lisp/gnus/nntp.el | 5 +++++ 6 files changed, 29 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 58842d7fa8d..0f0f4697c47 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,19 @@ +2004-09-08 Reiner Steib + + * 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 * 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 c3602cc9b44..9f2ae5c98bd 100644 --- 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 5d09c4b5c3c..eaa77f02e90 100644 --- 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 f726013dc2c..c9f5cb80190 100644 --- 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 995e113e02f..6c89cfbe798 100644 --- 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 6b312de24e4..8a10600fcb8 100644 --- 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" -- 2.39.5