Mercurial > emacs
changeset 57015:6d1f39d4f8e6
* 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.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Wed, 08 Sep 2004 18:17:56 +0000 |
| parents | f59e8f975f70 |
| children | eda556d106c6 |
| files | lisp/gnus/ChangeLog lisp/gnus/flow-fill.el lisp/gnus/gnus.el lisp/gnus/mml-sec.el lisp/gnus/mml2015.el lisp/gnus/nntp.el |
| diffstat | 6 files changed, 29 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/ChangeLog Wed Sep 08 18:17:56 2004 +0000 @@ -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):
--- a/lisp/gnus/flow-fill.el Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/flow-fill.el Wed Sep 08 18:17:56 2004 +0000 @@ -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 @@ "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)
--- a/lisp/gnus/gnus.el Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/gnus.el Wed Sep 08 18:17:56 2004 +0000 @@ -1599,6 +1599,7 @@ "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 @@ "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 @@ "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 @@ "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))
--- a/lisp/gnus/mml-sec.el Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/mml-sec.el Wed Sep 08 18:17:56 2004 +0000 @@ -83,6 +83,7 @@ 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")
--- a/lisp/gnus/mml2015.el Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/mml2015.el Wed Sep 08 18:17:56 2004 +0000 @@ -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"))))
--- a/lisp/gnus/nntp.el Wed Sep 08 16:31:35 2004 +0000 +++ b/lisp/gnus/nntp.el Wed Sep 08 18:17:56 2004 +0000 @@ -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 @@ (defcustom nntp-authinfo-file "~/.authinfo" ".netrc-like file that holds nntp authinfo passwords." + :group 'nntp :type '(choice file (repeat :tag "Entries"