From: Reiner Steib Date: Sun, 19 Sep 2004 20:24:28 +0000 (+0000) Subject: * uudecode.el (uudecode-use-external): Add :version. X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=0fd27ffa960ebecdc1a624050d41021119da8df2;p=gnus * uudecode.el (uudecode-use-external): Add :version. * smime.el (smime-CA-file, smime-encrypt-cipher) (smime-dns-server): Add :version. * smiley.el (gnus-smiley-file-types): Add :version. * sha1.el (sha1-use-external): Add :version. * pgg-def.el (pgg-query-keyserver): Add :version. * nnmail.el (nnmail-fancy-expiry-targets) (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): * nnimap.el (nnimap-split-download-body, nnimap-dont-close) (nnimap-retrieve-groups-asynchronous): Add :version. (nnimap-close-asynchronous): Add :version. Fixed typo in doc string. * mml.el (mml-content-disposition-parameters) (mml-insert-mime-headers-always): Add :version. * mm-util.el (mm-coding-system-priorities): * mm-decode.el (mm-inline-text-html-with-images) (mm-keep-viewer-alive-types, mm-external-terminal-program) (mm-verify-option): Add :version. (mm-text-html-renderer): Change :version. * message.el (message-fcc-externalize-attachments) (message-required-headers, message-draft-headers) (message-subject-trailing-was-query) (message-subject-trailing-was-ask-regexp) (message-subject-trailing-was-regexp, message-mark-insert-begin) (message-mark-insert-end, message-archive-header) (message-archive-note, message-cross-post-default) (message-cross-post-note, message-followup-to-note) (message-cross-post-note-function, message-use-mail-followup-to) (message-subscribed-address-functions) (message-subscribed-address-file, message-subscribed-addresses) (message-subscribed-regexps, message-allow-no-recipients) (message-yank-cited-prefix, message-signature-insert-empty-line) (message-hidden-headers, message-hierarchical-addresses) (message-mail-user-agent, message-use-idna) (message-valid-fqdn-regexp) (message-strip-special-text-properties, message-header-synonyms) (message-beginning-of-line, message-tab-body-function): Add :version. (message-insert-canlock, message-wide-reply-confirm-recipients): Change :version. * mail-source.el (mail-source-ignore-errors): Added :group, :type and :version. (mail-source-delete-old-incoming-confirm) (mail-source-movemail-program): Add :version. * gnus.el (gnus-parameters, gnus-user-agent): Add :version. (gnus-agent-cache, gnus-agent): Change :version. * gnus-util.el (gnus-use-byte-compile): Change :version. * gnus-sum.el (gnus-summary-make-false-root-always) (gnus-summary-default-high-score) (gnus-summary-default-low-score, gnus-auto-goto-ignores) (gnus-forwarded-mark, gnus-unseen-mark, gnus-no-mark) (gnus-read-all-available-headers, gnus-article-emulate-mime) (gnus-sum-thread-tree-root, gnus-sum-thread-tree-false-root) (gnus-sum-thread-tree-single-indent) (gnus-sum-thread-tree-vertical, gnus-sum-thread-tree-indent) (gnus-sum-thread-tree-leaf-with-other) (gnus-sum-thread-tree-single-leaf): Add :version. (gnus-summary-display-arrow, gnus-summary-muttprint-program) (gnus-article-loose-mime): Change :version. * gnus-start.el (gnus-backup-startup-file) (gnus-save-startup-file-via-temp-buffer): Add :version. * gnus-srvr.el (gnus-server-browse-in-group-buffer) (gnus-server-offline-face): Add :version. * gnus-score.el (gnus-adaptive-word-length-limit): * gnus-msg.el (gnus-gcc-externalize-attachments) (gnus-debug-files, gnus-debug-exclude-variables) (gnus-discouraged-post-methods): Change :version. (gnus-confirm-mail-reply-to-news) (gnus-confirm-treat-mail-like-news): Add :version. * gnus-int.el (gnus-server-unopen-status): Add :version. * gnus-group.el (gnus-group-jump-to-group-prompt) (gnus-large-ephemeral-newsgroup) (gnus-fetch-old-ephemeral-headers): Add :version. * gnus-fun.el (gnus-x-face-directory) (gnus-convert-pbm-to-x-face-command) (gnus-convert-image-to-x-face-command) (gnus-convert-image-to-face-command): Add :version. * gnus-delay.el (gnus-delay-default-hour): Add :version. * gnus-cite.el (gnus-cite-blank-line-after-header) (gnus-article-boring-faces): * gnus-art.el (gnus-buttonized-mime-types) (gnus-inhibit-mime-unbuttonizing) (gnus-treat-display-face) (gnus-treat-body-boundary): Change :version. (gnus-body-boundary-delimiter, gnus-picon-databases) (gnus-treat-strip-cr, gnus-treat-leading-whitespace) (gnus-treat-date-english, gnus-treat-fold-headers) (gnus-article-skip-boring, gnus-treat-fold-newsgroups) (gnus-treat-mail-picon, gnus-treat-wash-html) (gnus-article-encrypt-protocol) (gnus-use-idna, gnus-article-over-scroll) (gnus-mime-display-multipart-alternative-as-mixed) (gnus-mime-display-multipart-related-as-mixed) (gnus-button-valid-fqdn-regexp, gnus-button-man-handler) (gnus-ctan-url, gnus-button-ctan-handler) (gnus-button-handle-ctan-bogus-regexp) (gnus-button-ctan-directory-regexp) (gnus-button-mid-or-mail-regexp, gnus-button-prefer-mid-or-mail) (gnus-button-mid-or-mail-heuristic-alist, gnus-button-tex-level) (gnus-button-man-level, gnus-button-emacs-level) (gnus-button-message-level, gnus-button-browse-level): Add :version. * gnus-agent.el (gnus-agent-fetched-hook): Add :version. (gnus-agent-go-online): Change :version. (gnus-agent-expire-unagentized-dirs) (gnus-agent-auto-agentize-methods): Add :version. * flow-fill.el (fill-flowed-display-column) (fill-flowed-encode-column): Add :version. * deuglify.el (gnus-outlook-deuglify-unwrap-min) (gnus-outlook-deuglify-unwrap-max) (gnus-outlook-deuglify-cite-marks) (gnus-outlook-deuglify-unwrap-stop-chars) (gnus-outlook-deuglify-no-wrap-chars) (gnus-outlook-deuglify-attrib-cut-regexp) (gnus-outlook-deuglify-attrib-verb-regexp) (gnus-outlook-deuglify-attrib-end-regexp) (gnus-outlook-display-hook): Add :version. * binhex.el (binhex-use-external): Add :version. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67ca47d8d..718a2e6a2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,149 @@ +2004-09-19 Reiner Steib + + * uudecode.el (uudecode-use-external): Add :version. + + * smime.el (smime-CA-file, smime-encrypt-cipher) + (smime-dns-server): Add :version. + + * smiley.el (gnus-smiley-file-types): Add :version. + + * sha1.el (sha1-use-external): Add :version. + + * pgg-def.el (pgg-query-keyserver): Add :version. + + * nnmail.el (nnmail-fancy-expiry-targets) + (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): + + * nnimap.el (nnimap-split-download-body, nnimap-dont-close) + (nnimap-retrieve-groups-asynchronous): Add :version. + (nnimap-close-asynchronous): Add :version. Fixed typo in doc string. + + * mml.el (mml-content-disposition-parameters) + (mml-insert-mime-headers-always): Add :version. + + * mm-util.el (mm-coding-system-priorities): + + * mm-decode.el (mm-inline-text-html-with-images) + (mm-keep-viewer-alive-types, mm-external-terminal-program) + (mm-verify-option): Add :version. + (mm-text-html-renderer): Change :version. + + * message.el (message-fcc-externalize-attachments) + (message-required-headers, message-draft-headers) + (message-subject-trailing-was-query) + (message-subject-trailing-was-ask-regexp) + (message-subject-trailing-was-regexp, message-mark-insert-begin) + (message-mark-insert-end, message-archive-header) + (message-archive-note, message-cross-post-default) + (message-cross-post-note, message-followup-to-note) + (message-cross-post-note-function, message-use-mail-followup-to) + (message-subscribed-address-functions) + (message-subscribed-address-file, message-subscribed-addresses) + (message-subscribed-regexps, message-allow-no-recipients) + (message-yank-cited-prefix, message-signature-insert-empty-line) + (message-hidden-headers, message-hierarchical-addresses) + (message-mail-user-agent, message-use-idna) + (message-valid-fqdn-regexp) + (message-strip-special-text-properties, message-header-synonyms) + (message-beginning-of-line, message-tab-body-function): Add :version. + (message-insert-canlock, message-wide-reply-confirm-recipients): + Change :version. + + * mail-source.el (mail-source-ignore-errors): Added :group, :type + and :version. + (mail-source-delete-old-incoming-confirm) + (mail-source-movemail-program): Add :version. + + * gnus.el (gnus-parameters, gnus-user-agent): Add :version. + (gnus-agent-cache, gnus-agent): Change :version. + + * gnus-util.el (gnus-use-byte-compile): Change :version. + + * gnus-sum.el (gnus-summary-make-false-root-always) + (gnus-summary-default-high-score) + (gnus-summary-default-low-score, gnus-auto-goto-ignores) + (gnus-forwarded-mark, gnus-unseen-mark, gnus-no-mark) + (gnus-read-all-available-headers, gnus-article-emulate-mime) + (gnus-sum-thread-tree-root, gnus-sum-thread-tree-false-root) + (gnus-sum-thread-tree-single-indent) + (gnus-sum-thread-tree-vertical, gnus-sum-thread-tree-indent) + (gnus-sum-thread-tree-leaf-with-other) + (gnus-sum-thread-tree-single-leaf): Add :version. + (gnus-summary-display-arrow, gnus-summary-muttprint-program) + (gnus-article-loose-mime): Change :version. + + * gnus-start.el (gnus-backup-startup-file) + (gnus-save-startup-file-via-temp-buffer): Add :version. + + * gnus-srvr.el (gnus-server-browse-in-group-buffer) + (gnus-server-offline-face): Add :version. + + * gnus-score.el (gnus-adaptive-word-length-limit): + + * gnus-msg.el (gnus-gcc-externalize-attachments) + (gnus-debug-files, gnus-debug-exclude-variables) + (gnus-discouraged-post-methods): Change :version. + (gnus-confirm-mail-reply-to-news) + (gnus-confirm-treat-mail-like-news): Add :version. + + * gnus-int.el (gnus-server-unopen-status): Add :version. + + * gnus-group.el (gnus-group-jump-to-group-prompt) + (gnus-large-ephemeral-newsgroup) + (gnus-fetch-old-ephemeral-headers): Add :version. + + * gnus-fun.el (gnus-x-face-directory) + (gnus-convert-pbm-to-x-face-command) + (gnus-convert-image-to-x-face-command) + (gnus-convert-image-to-face-command): Add :version. + + * gnus-delay.el (gnus-delay-default-hour): Add :version. + + * gnus-cite.el (gnus-cite-blank-line-after-header) + (gnus-article-boring-faces): + + * gnus-art.el (gnus-buttonized-mime-types) + (gnus-inhibit-mime-unbuttonizing) + (gnus-treat-display-face) + (gnus-treat-body-boundary): Change :version. + (gnus-body-boundary-delimiter, gnus-picon-databases) + (gnus-treat-strip-cr, gnus-treat-leading-whitespace) + (gnus-treat-date-english, gnus-treat-fold-headers) + (gnus-article-skip-boring, gnus-treat-fold-newsgroups) + (gnus-treat-mail-picon, gnus-treat-wash-html) + (gnus-article-encrypt-protocol) + (gnus-use-idna, gnus-article-over-scroll) + (gnus-mime-display-multipart-alternative-as-mixed) + (gnus-mime-display-multipart-related-as-mixed) + (gnus-button-valid-fqdn-regexp, gnus-button-man-handler) + (gnus-ctan-url, gnus-button-ctan-handler) + (gnus-button-handle-ctan-bogus-regexp) + (gnus-button-ctan-directory-regexp) + (gnus-button-mid-or-mail-regexp, gnus-button-prefer-mid-or-mail) + (gnus-button-mid-or-mail-heuristic-alist, gnus-button-tex-level) + (gnus-button-man-level, gnus-button-emacs-level) + (gnus-button-message-level, gnus-button-browse-level): Add :version. + + * gnus-agent.el (gnus-agent-fetched-hook): Add :version. + (gnus-agent-go-online): Change :version. + (gnus-agent-expire-unagentized-dirs) + (gnus-agent-auto-agentize-methods): Add :version. + + * flow-fill.el (fill-flowed-display-column) + (fill-flowed-encode-column): Add :version. + + * deuglify.el (gnus-outlook-deuglify-unwrap-min) + (gnus-outlook-deuglify-unwrap-max) + (gnus-outlook-deuglify-cite-marks) + (gnus-outlook-deuglify-unwrap-stop-chars) + (gnus-outlook-deuglify-no-wrap-chars) + (gnus-outlook-deuglify-attrib-cut-regexp) + (gnus-outlook-deuglify-attrib-verb-regexp) + (gnus-outlook-deuglify-attrib-end-regexp) + (gnus-outlook-display-hook): Add :version. + + * binhex.el (binhex-use-external): Add :version. + 2004-09-16 Reiner Steib * gnus-sum.el (gnus-fetch-old-headers): Added custom choices `t' diff --git a/lisp/binhex.el b/lisp/binhex.el index daef746f9..959fd0d90 100644 --- a/lisp/binhex.el +++ b/lisp/binhex.el @@ -49,6 +49,7 @@ input and write the converted data to its standard output." (defcustom binhex-use-external (executable-find binhex-decoder-program) "*Use external binhex program." + :version "21.4" :group 'gnus-extract :type 'boolean) diff --git a/lisp/deuglify.el b/lisp/deuglify.el index a9e42c427..5f1945aad 100644 --- a/lisp/deuglify.el +++ b/lisp/deuglify.el @@ -235,46 +235,54 @@ ;;;###autoload (defcustom gnus-outlook-deuglify-unwrap-min 45 "Minimum length of the cited line above the (possibly) wrapped line." + :version "21.4" :type 'integer :group 'gnus-outlook-deuglify) ;;;###autoload (defcustom gnus-outlook-deuglify-unwrap-max 95 "Maximum length of the cited line after unwrapping." + :version "21.4" :type 'integer :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-cite-marks ">|#%" "Characters that indicate cited lines." + :version "21.4" :type 'string :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil "Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line." + :version "21.4" :type '(radio (const :format "None " nil) (string :size 0 :value ".?!")) :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-no-wrap-chars "`" "Characters that inhibit unwrapping if they are the first one in the possibly wrapped line." + :version "21.4" :type 'string :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-attrib-cut-regexp "\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " "Regular expression matching the beginning of an attribution line that should be cut off." + :version "21.4" :type 'string :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-attrib-verb-regexp "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" "Regular expression matching the verb used in an attribution line." + :version "21.4" :type 'string :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-attrib-end-regexp ": *\\|\\.\\.\\." "Regular expression matching the end of an attribution line." + :version "21.4" :type 'string :group 'gnus-outlook-deuglify) @@ -282,6 +290,7 @@ (defcustom gnus-outlook-display-hook nil "A hook called after an deuglified article has been prepared. It is run after `gnus-article-prepare-hook'." + :version "21.4" :type 'hook :group 'gnus-outlook-deuglify) diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el index c0398a844..606a77f7b 100644 --- a/lisp/flow-fill.el +++ b/lisp/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." + :version "21.4" :group 'mime-display :type '(choice (const :tag "Standard `fill-column'" fill-column) (const :tag "Fit Window" (- (window-width) 5)) @@ -66,6 +67,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." + :version "21.4" :group 'mime-display :type '(choice (const :tag "Standard fill-column" fill-column) (const :tag "RFC 2646 default (66)" 66) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index a94d8fe1c..a28c4b098 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -60,6 +60,7 @@ (defcustom gnus-agent-fetched-hook nil "Hook run when finished fetching articles." + :version "21.4" :group 'gnus-agent :type 'hook) @@ -125,7 +126,7 @@ If this is `ask' the hook will query the user." (defcustom gnus-agent-go-online 'ask "Indicate if offline servers go online when you plug in. If this is `ask' the hook will query the user." - :version "21.1" + :version "21.3" :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask)) @@ -178,6 +179,7 @@ enable expiration per categories, topics, and groups." Have gnus-agent-expire scan the directories under \(gnus-agent-directory) for groups that are no longer agentized. When found, offer to remove them." + :version "21.4" :type 'boolean :group 'gnus-agent) @@ -185,6 +187,7 @@ When found, offer to remove them." "Initially, all servers from these methods are agentized. The user may remove or add servers using the Server buffer. See Info node `(gnus)Server Buffer'." + :version "21.4" :type '(repeat symbol) :group 'gnus-agent) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index abe618fb6..06c8aed20 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -214,6 +214,7 @@ By default, if you set this t, then Gnus will display citations and signatures, but will never scroll down to show you a page consisting only of boring text. Boring text is controlled by `gnus-article-boring-faces'." + :version "21.4" :type 'boolean :group 'gnus-article-hiding) @@ -745,7 +746,7 @@ If set, this variable overrides `gnus-unbuttonized-mime-types'. To see e.g. security buttons you could set this to `(\"multipart/signed\")'. This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil." - :version "21.1" + :version "21.4" :group 'gnus-article-mime :type '(repeat regexp)) @@ -754,7 +755,7 @@ This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil." When nil (the default value), then some MIME parts do not get buttons, as described by the variables `gnus-buttonized-mime-types' and `gnus-unbuttonized-mime-types'." - :version "21.3" + :version "21.4" :group 'gnus-article-mime :type 'boolean) @@ -762,6 +763,7 @@ as described by the variables `gnus-buttonized-mime-types' and "String used to delimit header and body. This variable is used by `gnus-article-treat-body-boundary' which can be controlled by `gnus-treat-body-boundary'." + :version "21.4" :group 'gnus-article-various :type '(choice (item :tag "None" :value nil) string)) @@ -771,6 +773,7 @@ be controlled by `gnus-treat-body-boundary'." "Defines the location of the faces database. For information on obtaining this database of pretty pictures, please see http://www.cs.indiana.edu/picons/ftp/index.html" + :version "21.4" :type '(repeat directory) :link '(url-link :tag "download" "http://www.cs.indiana.edu/picons/ftp/index.html") @@ -910,6 +913,7 @@ See Info node `(gnus)Customizing Articles' for details." "Remove carriage returns. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) @@ -926,6 +930,7 @@ See Info node `(gnus)Customizing Articles' for details." "Remove leading whitespace in headers. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) @@ -1045,6 +1050,7 @@ See Info node `(gnus)Customizing Articles' for details." "Display the Date in a format that can be read aloud in English. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom) @@ -1128,6 +1134,7 @@ See Info node `(gnus)Customizing Articles' for details." "Fold headers. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) @@ -1136,6 +1143,7 @@ See Info node `(gnus)Customizing Articles' for details." "Fold the Newsgroups and Followup-To headers. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) @@ -1209,7 +1217,7 @@ Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' and Info node `(gnus)X-Face' for details." :group 'gnus-article-treat - :version "21.1" + :version "21.4" :link '(custom-manual "(gnus)Customizing Articles") :link '(custom-manual "(gnus)X-Face") :type gnus-article-treat-head-custom) @@ -1270,6 +1278,7 @@ See Info node `(gnus)Customizing Articles' and Info node Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' and Info node `(gnus)Picons' for details." + :version "21.4" :group 'gnus-article-treat :group 'gnus-picon :link '(custom-manual "(gnus)Customizing Articles") @@ -1285,7 +1294,7 @@ See Info node `(gnus)Customizing Articles' and Info node "Draw a boundary at the end of the headers. Valid values are nil and `head'. See Info node `(gnus)Customizing Articles' for details." - :version "21.1" + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-head-custom) @@ -1303,6 +1312,7 @@ See Info node `(gnus)Customizing Articles' for details." "Format as HTML. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' for details." + :version "21.4" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) @@ -1351,6 +1361,7 @@ See Info node `(gnus)Customizing Articles' for details." (defcustom gnus-article-encrypt-protocol "PGP" "The protocol used for encrypt articles. It is a string, such as \"PGP\". If nil, ask user." + :version "21.4" :type 'string :group 'mime-security) @@ -1362,11 +1373,13 @@ It is a string, such as \"PGP\". If nil, ask user." (executable-find idna-program)) "Whether IDNA decoding of headers is used when viewing messages. This requires GNU Libidn, and by default only enabled if it is found." + :version "21.4" :group 'gnus-article-headers :type 'boolean) (defcustom gnus-article-over-scroll nil "If non-nil, allow scrolling the article buffer even when there no more text." + :version "21.4" :group 'gnus-article :type 'boolean) @@ -4580,6 +4593,7 @@ If t, it overrides nil values of (defcustom gnus-mime-display-multipart-alternative-as-mixed nil "Display \"multipart/alternative\" parts as \"multipart/mixed\"." + :version "21.4" :group 'gnus-article-mime :type 'boolean) @@ -4589,6 +4603,7 @@ If t, it overrides nil values of If displaying \"text/html\" is discouraged \(see `mm-discouraged-alternatives'\) images or other material inside a \"multipart/related\" part might be overlooked when this variable is nil." + :version "21.4" :group 'gnus-article-mime :type 'boolean) @@ -5687,6 +5702,7 @@ groups." (defcustom gnus-button-valid-fqdn-regexp message-valid-fqdn-regexp "Regular expression that matches a valid FQDN." + :version "21.4" :group 'gnus-article-buttons :type 'regexp) @@ -5694,6 +5710,7 @@ groups." "Function to use for displaying man pages. The function must take at least one argument with a string naming the man page." + :version "21.4" :type '(choice (function-item :tag "Man" manual-entry) (function-item :tag "Woman" woman) (function :tag "Other")) @@ -5704,6 +5721,7 @@ man page." If the default site is too slow, try to find a CTAN mirror, see . See also the variable `gnus-button-handle-ctan'." + :version "21.4" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type '(choice (const "http://www.tex.ac.uk/tex-archive/") @@ -5714,12 +5732,14 @@ the variable `gnus-button-handle-ctan'." (defcustom gnus-button-ctan-handler 'browse-url "Function to use for displaying CTAN links. The function must take one argument, the string naming the URL." + :version "21.4" :type '(choice (function-item :tag "Browse Url" browse-url) (function :tag "Other")) :group 'gnus-article-buttons) (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/" "Bogus strings removed from CTAN URLs." + :version "21.4" :group 'gnus-article-buttons :type '(choice (const "^/?tex-archive/\\|/") (regexp :tag "Other"))) @@ -5733,6 +5753,7 @@ The function must take one argument, the string naming the URL." "\\)") "Regular expression for ctan directories. It should match all directories in the top level of `gnus-ctan-url'." + :version "21.4" :group 'gnus-article-buttons :type 'regexp) @@ -5742,6 +5763,7 @@ It should match all directories in the top level of `gnus-ctan-url'." gnus-button-valid-fqdn-regexp ">?\\)\\b") "Regular expression that matches a message ID or a mail address." + :version "21.4" :group 'gnus-article-buttons :type 'regexp) @@ -5753,6 +5775,7 @@ message ID or a mail address, respectively. If this variable is set to the symbol `ask', always query the user what do do. If it is a function, this function will be called with the string as it's only argument. The function must return `mid', `mail', `invalid' or `ask'." + :version "21.4" :group 'gnus-article-buttons :type '(choice (function-item :tag "Heuristic function" gnus-button-mid-or-mail-heuristic) @@ -5816,6 +5839,7 @@ must return `mid', `mail', `invalid' or `ask'." A negative RATE indicates a message IDs, whereas a positive indicates a mail address. The REGEXP is processed with `case-fold-search' set to nil." + :version "21.4" :group 'gnus-article-buttons :type '(repeat (cons (number :tag "Rate") (regexp :tag "Regexp")))) @@ -6000,6 +6024,7 @@ positives are possible. Note that you can set this variable local to specific groups. Setting it higher in TeX groups is probably a good idea. See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on how to set variables in specific groups." + :version "21.4" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer) @@ -6011,6 +6036,7 @@ positives are possible. Note that you can set this variable local to specific groups. Setting it higher in Unix groups is probably a good idea. See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on how to set variables in specific groups." + :version "21.4" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer) @@ -6022,6 +6048,7 @@ positives are possible. Note that you can set this variable local to specific groups. Setting it higher in Emacs or Gnus related groups is probably a good idea. See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on how to set variables in specific groups." + :version "21.4" :group 'gnus-article-buttons :link '(custom-manual "(gnus)Group Parameters") :type 'integer) @@ -6031,6 +6058,7 @@ probably a good idea. See Info node `(gnus)Group Parameters' and the variable The higher the number, the more buttons will appear and the more false positives are possible." ;; mail addresses, MIDs, URLs for news, ... + :version "21.4" :group 'gnus-article-buttons :type 'integer) @@ -6039,6 +6067,7 @@ positives are possible." The higher the number, the more buttons will appear and the more false positives are possible." ;; stuff handled by `browse-url' or `gnus-button-embedded-url' + :version "21.4" :group 'gnus-article-buttons :type 'integer) diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 572327fe7..6d018a091 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -278,6 +278,7 @@ This should make it easier to see who wrote what." (defcustom gnus-cite-blank-line-after-header t "If non-nil, put a blank line between the citation header and the button." + :version "21.4" :group 'gnus-cite :type 'boolean) @@ -289,6 +290,7 @@ This should make it easier to see who wrote what." If an article has more pages below the one you are looking at, but nothing on those pages is a word of at least three letters that is not in a boring face, then the pages will be skipped." + :version "21.4" :type '(repeat face) :group 'gnus-article-hiding) diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el index 7a0fe4343..e8ccba811 100644 --- a/lisp/gnus-delay.el +++ b/lisp/gnus-delay.el @@ -60,6 +60,7 @@ (defcustom gnus-delay-default-hour 8 "*If deadline is given as date, then assume this time of day." + :version "21.4" :type 'integer :group 'gnus-delay) diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index 437248f0b..9140394d8 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -34,11 +34,13 @@ (defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory) "*Directory where X-Face PBM files are stored." + :version "21.4" :group 'gnus-fun :type 'directory) (defcustom gnus-convert-pbm-to-x-face-command "pbmtoxbm %s | compface" "Command for converting a PBM to an X-Face." + :version "21.4" :group 'gnus-fun :type 'string) @@ -46,6 +48,7 @@ "Command for converting an image to an X-Face. By default it takes a GIF filename and output the X-Face header data on stdout." + :version "21.4" :group 'gnus-fun :type 'string) @@ -53,6 +56,7 @@ on stdout." "Command for converting an image to an Face. By default it takes a JPEG filename and output the Face header data on stdout." + :version "21.4" :group 'gnus-fun :type 'string) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 6d98b0fb6..2c4360f36 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -448,6 +448,7 @@ nnml:\" in the minibuffer prompt. If it is an alist, it must consist of \(NUMBER . PROMPT\) pairs, for example: \((1 . \"\") (2 . \"nnfolder+archive:\")). The element with number 0 is used when no prefix argument is given to `gnus-group-jump-to-group'." + :version "21.4" :group 'gnus-group-various :type '(choice (string :tag "Prompt string") (const :tag "Empty" nil) @@ -1989,12 +1990,14 @@ Same as `gnus-large-newsgroup', but only used for ephemeral newsgroups. If the number of articles in a newsgroup is greater than this value, confirmation is required for selecting the newsgroup. If it is nil, no confirmation is required." + :version "21.4" :group 'gnus-group-select :type '(choice (const :tag "No limit" nil) integer)) (defcustom gnus-fetch-old-ephemeral-headers nil "Same as `gnus-fetch-old-headers', but only used for ephemeral newsgroups." + :version "21.4" :group 'gnus-thread :type '(choice (const :tag "off" nil) (const some) diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 5c386ce60..b33418a71 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -47,6 +47,7 @@ If the server is covered by Gnus agent, the possible values are `denied', set the server denied; `offline', set the server offline; nil, ask user. If the server is not covered by Gnus agent, set the server denied." + :version "21.4" :group 'gnus-start :type '(choice (const :tag "Ask" nil) (const :tag "Deny server" denied) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 556bb40e3..76a2f6e31 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -142,7 +142,7 @@ See Info node `(gnus)Posting Styles'." (defcustom gnus-gcc-mark-as-read nil "If non-nil, automatically mark Gcc articles as read." - :version "21.1" + :version "21.4" :group 'gnus-message :type 'boolean) @@ -154,7 +154,7 @@ See Info node `(gnus)Posting Styles'." If it is `all', attach files as external parts; if a regexp and matches the Gcc group name, attach files as external parts; if nil, attach files as normal parts." - :version "21.1" + :version "21.4" :group 'gnus-message :type '(choice (const nil :tag "None") (const all :tag "Any") @@ -212,7 +212,7 @@ List of charsets that are permitted to be unencoded.") "gnus-agent.el" "gnus-cache.el" "gnus-srvr.el" "mm-util.el" "mm-decode.el" "nnmail.el" "message.el") "Files whose variables will be reported in `gnus-bug'." - :version "21.1" + :version "21.4" :group 'gnus-message :type '(repeat (string :tag "File"))) @@ -220,7 +220,7 @@ List of charsets that are permitted to be unencoded.") '(mm-mime-mule-charset-alist nnmail-split-fancy message-minibuffer-local-map) "Variables that should not be reported in `gnus-bug'." - :version "21.1" + :version "21.4" :group 'gnus-message :type '(repeat (symbol :tag "Variable"))) @@ -228,7 +228,7 @@ List of charsets that are permitted to be unencoded.") '(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir) "A list of back ends that are not used in \"real\" newsgroups. This variable is used only when `gnus-post-method' is `current'." - :version "21.3" + :version "21.4" :group 'gnus-group-foreign :type '(repeat (symbol :tag "Back end"))) @@ -260,6 +260,7 @@ This can also be a function receiving the group name as the only parameter which should return non-nil iff a confirmation is needed, or a regexp, in which case a confirmation is asked for iff the group name matches the regexp." + :version "21.4" :group 'gnus-message :type '(choice (const :tag "No" nil) (const :tag "Yes" t) @@ -272,6 +273,7 @@ matches the regexp." when replying by mail. See the `gnus-confirm-mail-reply-to-news' variable for fine-tuning this. If nil, Gnus will never ask for confirmation if replying to mail." + :version "21.4" :group 'gnus-message :type 'boolean) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 3a7965875..e2b33c96f 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -235,6 +235,7 @@ This variable allows the same syntax as `gnus-home-score-file'." (defcustom gnus-adaptive-word-length-limit nil "*Words of a length lesser than this limit will be ignored when doing adaptive scoring." + :version "21.4" :group 'gnus-score-adapt :type '(radio (const :format "Unlimited " nil) (integer :format "Maximum length: %v\n" :size 0))) diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 43a0231b3..869e1f2a1 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -71,6 +71,7 @@ See Info node `(gnus)Formatting Variables'." (defcustom gnus-server-browse-in-group-buffer nil "Whether server browsing should take place in the group buffer. If nil, a faster, but more primitive, buffer is used instead." + :version "21.4" :group 'gnus-server-visual :type 'boolean) @@ -224,6 +225,7 @@ If nil, a faster, but more primitive, buffer is used instead." (defcustom gnus-server-offline-face 'gnus-server-offline-face "Face name to use on OFFLINE servers." + :version "21.4" :group 'gnus-server-visual :type 'face) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 92de2c6dc..a29e0e625 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -54,6 +54,7 @@ "Whether to create backup files. This variable takes the same values as the `version-control' variable." + :version "21.4" :group 'gnus-start :type '(choice (const :tag "Never" never) (const :tag "If existing" nil) @@ -64,6 +65,7 @@ variable." the buffer or write directly to the file. The buffer is faster because all of the contents are written at once. The direct write uses considerably less memory." + :version "21.4" :group 'gnus-start :type '(choice (const :tag "Write via buffer" t) (const :tag "Write directly to file" nil))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 025646949..0ad7eb1c4 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -119,6 +119,7 @@ given by the `gnus-summary-same-subject' variable.)" (defcustom gnus-summary-make-false-root-always nil "Always make a false dummy root." + :version "21.4" :group 'gnus-thread :type 'boolean) @@ -219,6 +220,7 @@ If this variable is nil, scoring will be disabled." "*Default threshold for a high scored article. An article will be highlighted as high scored if its score is greater than this score." + :version "21.4" :group 'gnus-score-default :type 'integer) @@ -226,6 +228,7 @@ than this score." "*Default threshold for a low scored article. An article will be highlighted as low scored if its score is smaller than this score." + :version "21.4" :group 'gnus-score-default :type 'integer) @@ -321,6 +324,7 @@ the first unseen article), 'unseen-or-unread' (place point on the subject line of the first unseen article or, if all article have been seen, on the subject line of the first unread article), or a function to be called to place point on some subject line." + :version "21.4" :group 'gnus-group-select :type '(choice (const best) (const unread) @@ -364,6 +368,7 @@ ignores articles whose headers have not been fetched). NOTE: The list of unfetched articles will always be nil when plugged and, when unplugged, a subset of the undownloaded article list." + :version "21.4" :group 'gnus-summary-maneuvering :type '(choice (const :tag "None" nil) (const :tag "Undownloaded when unplugged" undownloaded) @@ -498,6 +503,7 @@ string with the suggested prefix." (defcustom gnus-forwarded-mark ?F "*Mark used for articles that have been forwarded." + :version "21.4" :group 'gnus-summary-marks :type 'character) @@ -518,11 +524,13 @@ string with the suggested prefix." (defcustom gnus-unseen-mark ?. "*Mark used for articles that haven't been seen." + :version "21.4" :group 'gnus-summary-marks :type 'character) (defcustom gnus-no-mark ? ;Whitespace "*Mark used for articles that have no other secondary mark." + :version "21.4" :group 'gnus-summary-marks :type 'character) @@ -951,7 +959,7 @@ automatically when it is selected." (and (fboundp 'display-graphic-p) (display-graphic-p)) "*If non-nil, display an arrow highlighting the current article." - :version "21.1" + :version "21.4" :group 'gnus-summary :type 'boolean) @@ -1134,7 +1142,7 @@ that were fetched. Say, for nnultimate groups." (defcustom gnus-summary-muttprint-program "muttprint" "Command (and optional arguments) used to run Muttprint." - :version "21.3" + :version "21.4" :group 'gnus-summary :type 'string) @@ -1144,7 +1152,7 @@ Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not supply the MIME-Version header or deliberately strip it from the mail. If non-nil (the default), Gnus will treat some articles as MIME even if the MIME-Version header is missing." - :version "21.3" + :version "21.4" :type 'boolean :group 'gnus-article-mime) @@ -1153,6 +1161,7 @@ even if the MIME-Version header is missing." This means that Gnus will search message bodies for text that look like uuencoded bits, yEncoded bits, and so on, and present that using the normal Gnus MIME machinery." + :version "21.4" :type 'boolean :group 'gnus-article-mime) @@ -4648,32 +4657,39 @@ Unscored articles will be counted as having a score of zero." (defcustom gnus-sum-thread-tree-root "> " "With %B spec, used for the root of a thread. If nil, use subject instead." + :version "21.4" :type '(radio (const :format "%v " nil) (string :size 0)) :group 'gnus-thread) (defcustom gnus-sum-thread-tree-false-root "> " "With %B spec, used for a false root of a thread. If nil, use subject instead." + :version "21.4" :type '(radio (const :format "%v " nil) (string :size 0)) :group 'gnus-thread) (defcustom gnus-sum-thread-tree-single-indent "" "With %B spec, used for a thread with just one message. If nil, use subject instead." + :version "21.4" :type '(radio (const :format "%v " nil) (string :size 0)) :group 'gnus-thread) (defcustom gnus-sum-thread-tree-vertical "| " "With %B spec, used for drawing a vertical line." + :version "21.4" :type 'string :group 'gnus-thread) (defcustom gnus-sum-thread-tree-indent " " "With %B spec, used for indenting." + :version "21.4" :type 'string :group 'gnus-thread) (defcustom gnus-sum-thread-tree-leaf-with-other "+-> " "With %B spec, used for a leaf with brothers." + :version "21.4" :type 'string :group 'gnus-thread) (defcustom gnus-sum-thread-tree-single-leaf "\\-> " "With %B spec, used for a leaf without brothers." + :version "21.4" :type 'string :group 'gnus-thread) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 3b661bd70..d2c0c19b3 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1154,7 +1154,7 @@ Return the modified alist." Setting it to nil has no effect after the first time `gnus-byte-compile' is run." :type 'boolean - :version "21.1" + :version "21.4" :group 'gnus-various) (defun gnus-byte-compile (form) diff --git a/lisp/gnus.el b/lisp/gnus.el index 54a162009..6809c43b8 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -959,6 +959,7 @@ For example: (\"mail\\\\.me\" (gnus-use-scoring t)) (\"list\\\\..*\" (total-expire . t) (broken-reply-to . t)))" + :version "21.4" :group 'gnus-group-various :type '(repeat (cons regexp (repeat sexp)))) @@ -2343,7 +2344,7 @@ face." When set, Gnus will prefer using the locally stored content rather than re-fetching it from the server. You also need to enable `gnus-agent' for this to have any affect." - :version "21.3" + :version "21.4" :group 'gnus-agent :type 'boolean) @@ -2362,7 +2363,7 @@ covered by that variable." You may customize gnus-agent to disable its use. However, some back ends have started to use the agent as a client-side cache. Disabling the agent may result in noticeable loss of performance." - :version "21.3" + :version "21.4" :group 'gnus-agent :type 'boolean) @@ -2394,6 +2395,7 @@ It can be one of the symbols `gnus' \(show only Gnus version\), `emacs-gnus' `emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as `emacs-gnus' plus system type\) or a custom string. If you set it to a string, be sure to use a valid format, see RFC 2616." + :version "21.4" :group 'gnus-message :type '(choice (item :tag "Show Gnus and Emacs versions and system type" diff --git a/lisp/imap.el b/lisp/imap.el index 540d7de87..d6815d681 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -217,7 +217,8 @@ used to communicate with subprocesses. Values are nil to use a pipe, or t or `pty' to use a pty. The value has no effect if the system has no ptys or if all ptys are busy: then a pipe is used in any case. The value takes effect when a IMAP server is -opened, changing it after that has no effect.." +opened, changing it after that has no effect." + :version "21.4" :group 'imap :type 'boolean) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index edd0069b9..b40163c4d 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -234,7 +234,10 @@ See Info node `(gnus)Mail Source Specifiers'." (defcustom mail-source-ignore-errors nil "*Ignore errors when querying mail sources. If nil, the user will be prompted when an error occurs. If non-nil, -the error will be ignored.") +the error will be ignored." + :version "21.4" + :group 'mail-source + :type 'boolean) (defcustom mail-source-primary-source nil "*Primary source for incoming mail. @@ -280,6 +283,7 @@ files older than number of days." "*If non-nil, ask for for confirmation before deleting old incoming files. This variable only applies when `mail-source-delete-incoming' is a positive number." + :version "21.4" :group 'mail-source :type 'boolean) @@ -300,6 +304,7 @@ number." (defcustom mail-source-movemail-program nil "If non-nil, name of program for fetching new mail." + :version "21.4" :group 'mail-source :type '(choice (const nil) string)) diff --git a/lisp/message.el b/lisp/message.el index 1752b9283..faf53e7fa 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -131,6 +131,7 @@ mailbox format." (defcustom message-fcc-externalize-attachments nil "If non-nil, attachments are included as external parts in Fcc copies." + :version "21.4" :type 'boolean :group 'message-sending) @@ -170,7 +171,7 @@ Otherwise, most addresses look like `angles', but they look like (defcustom message-insert-canlock t "Whether to insert a Cancel-Lock header in news postings." - :version "21.3" + :version "21.4" :group 'message-headers :type 'boolean) @@ -199,6 +200,7 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys', "*Headers to be generated or prompted for when sending a message. Also see `message-required-news-headers' and `message-required-mail-headers'." + :version "21.4" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") @@ -206,6 +208,7 @@ Also see `message-required-news-headers' and (defcustom message-draft-headers '(References From) "*Headers to be generated when saving a draft message." + :version "21.4" :group 'message-news :group 'message-headers :link '(custom-manual "(message)Message Headers") @@ -283,6 +286,7 @@ the user what do do. In this case, the subject is matched against `message-subject-trailing-was-query' is t, always strip the trailing old subject. In this case, `message-subject-trailing-was-regexp' is used." + :version "21.4" :type '(choice (const :tag "never" nil) (const :tag "always strip" t) (const ask)) @@ -299,6 +303,7 @@ the variable is t instead of `ask', use `message-subject-trailing-was-regexp' instead. It is okay to create some false positives here, as the user is asked." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) @@ -311,6 +316,7 @@ If `message-subject-trailing-was-query' is set to t, the subject is matched against `message-subject-trailing-was-regexp' in `message-strip-subject-trailing-was'. You should use a regexp creating very few false positives here." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) @@ -323,6 +329,7 @@ few false positives here." (defcustom message-mark-insert-begin "--8<---------------cut here---------------start------------->8---\n" "How to mark the beginning of some inserted text." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) @@ -331,6 +338,7 @@ few false positives here." (defcustom message-mark-insert-end "--8<---------------cut here---------------end--------------->8---\n" "How to mark the end of some inserted text." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-various) @@ -340,6 +348,7 @@ few false positives here." "X-No-Archive: Yes\n" "Header to insert when you don't want your article to be archived. Archives \(such as groups.google.com\) respect this header." + :version "21.4" :type 'string :link '(custom-manual "(message)Header Commands") :group 'message-various) @@ -349,6 +358,7 @@ Archives \(such as groups.google.com\) respect this header." "X-No-Archive: Yes - save http://groups.google.com/" "Note to insert why you wouldn't want this posting archived. If nil, don't insert any text in the body." + :version "21.4" :type '(radio (string :format "%t: %v\n" :size 0) (const nil)) :link '(custom-manual "(message)Header Commands") @@ -368,6 +378,7 @@ If nil, don't insert any text in the body." If nil, `message-cross-post-followup-to' will only do a followup. Note that you can explicitly override this setting by calling `message-cross-post-followup-to' with a prefix." + :version "21.4" :type 'boolean :group 'message-various) @@ -375,6 +386,7 @@ you can explicitly override this setting by calling (defcustom message-cross-post-note "Crosspost & Followup-To: " "Note to insert before signature to notify of cross-post and follow-up." + :version "21.4" :type 'string :group 'message-various) @@ -382,6 +394,7 @@ you can explicitly override this setting by calling (defcustom message-followup-to-note "Followup-To: " "Note to insert before signature to notify of follow-up only." + :version "21.4" :type 'string :group 'message-various) @@ -392,6 +405,7 @@ you can explicitly override this setting by calling The function will be called with four arguments. The function should not only insert a note, but also ensure old notes are deleted. See the documentation for `message-cross-post-insert-note'." + :version "21.4" :type 'function :group 'message-various) @@ -632,6 +646,7 @@ always query the user whether to use the value. If it is the symbol If nil, always ignore the header. If it is the symbol `ask', always query the user whether to use the value. If it is the symbol `use', always use the value." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(choice (const :tag "ignore" nil) @@ -645,6 +660,7 @@ If non-nil, this variable contains a list of functions which return regular expressions to match lists. These functions can be used in conjunction with `message-subscribed-regexps' and `message-subscribed-addresses'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat sexp)) @@ -653,6 +669,7 @@ conjunction with `message-subscribed-regexps' and "*A file containing addresses the user is subscribed to. If nil, do not look at any files to determine list subscriptions. If non-nil, each line of this file should be a mailing list address." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(radio (file :format "%t: %v\n" :size 0) @@ -663,6 +680,7 @@ non-nil, each line of this file should be a mailing list address." If nil, do not use any predefined list subscriptions. This list of addresses can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-regexps'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat string)) @@ -672,6 +690,7 @@ addresses can be used in conjunction with If nil, do not use any predefined list subscriptions. This list of regular expressions can be used in conjunction with `message-subscribed-address-functions' and `message-subscribed-addresses'." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Mailing Lists") :type '(repeat regexp)) @@ -681,6 +700,7 @@ regular expressions can be used in conjunction with If it is the symbol `always', the posting is allowed. If it is the symbol `never', the posting is not allowed. If it is the symbol `ask', you are prompted." + :version "21.4" :group 'message-interface :link '(custom-manual "(message)Message Headers") :type '(choice (const always) @@ -832,6 +852,7 @@ See also `message-yank-cited-prefix'." "*Prefix inserted on cited or empty lines of yanked messages. Fix `message-cite-prefix-regexp' if it is set to an abnormal value. See also `message-yank-prefix'." + :version "21.4" :type 'string :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) @@ -888,6 +909,7 @@ If nil, don't insert a signature." ;;;###autoload (defcustom message-signature-insert-empty-line t "*If non-nil, insert an empty line before the signature separator." + :version "21.4" :type 'boolean :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) @@ -1068,6 +1090,7 @@ candidates: "Regexp of headers to be hidden when composing new messages. This can also be a list of regexps to match headers. Or a list starting with `not' and followed by regexps." + :version "21.4" :group 'message :link '(custom-manual "(message)Message Headers") :type '(repeat regexp)) @@ -1348,6 +1371,7 @@ subaddresses. So if the first address appears in the recipient list for a message, the subaddresses will be removed (if present) before the mail is sent. All addresses in this structure should be downcased." + :version "21.4" :group 'message-headers :type '(repeat (repeat string))) @@ -1355,6 +1379,7 @@ downcased." "Like `mail-user-agent'. Except if it is nil, use Gnus native MUA; if it is t, use `mail-user-agent'." + :version "21.4" :type '(radio (const :tag "Gnus native" :format "%t\n" nil) @@ -1378,7 +1403,7 @@ If this variable is non-nil, pose the question \"Reply to all recipients?\" before a wide reply to multiple recipients. If the user answers yes, reply to all recipients as usual. If the user answers no, only reply back to the author." - :version "21.3" + :version "21.4" :group 'message-headers :link '(custom-manual "(message)Wide Reply") :type 'boolean) @@ -1396,6 +1421,7 @@ no, only reply back to the author." (executable-find idna-program) 'ask) "Whether to encode non-ASCII in domain names into ASCII according to IDNA." + :version "21.4" :group 'message-headers :link '(custom-manual "(message)IDNA") :type '(choice (const :tag "Ask" ask) @@ -1527,6 +1553,7 @@ no, only reply back to the author." "\\)") "Regular expression that matches a valid FQDN." ;; see also: gnus-button-valid-fqdn-regexp + :version "21.4" :group 'message-headers :type 'regexp) @@ -2344,6 +2371,7 @@ these properties from the message composition buffer. However, some packages requires these properties to be present in order to work. If you use one of these packages, turn this option off, and hope the message composition doesn't break too bad." + :version "21.4" :group 'message-various :link '(custom-manual "(message)Various Message Variables") :type 'boolean) @@ -2687,6 +2715,7 @@ prefix FORCE is given." E.g., if this list contains a member list with elements `Cc' and `To', then `message-carefully-insert-headers' will not insert a `To' header when the message is already `Cc'ed to the recipient." + :version "21.4" :group 'message-headers :link '(custom-manual "(message)Message Headers") :type '(repeat sexp)) @@ -5270,6 +5299,7 @@ they are." (defcustom message-beginning-of-line t "Whether \\\\[message-beginning-of-line]\ goes to beginning of header values." + :version "21.4" :group 'message-buffers :link '(custom-manual "(message)Movement") :type 'boolean) @@ -6589,6 +6619,7 @@ Each element is a symbol and can be `bbdb' or `eudc'." (defcustom message-tab-body-function nil "*Function to execute when `message-tab' (TAB) is executed in the body. If nil, the function bound in `text-mode-map' or `global-map' is executed." + :version "21.4" :group 'message :link '(custom-manual "(message)Various Commands") :type 'function) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 967a92d69..b46c660f9 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -114,6 +114,7 @@ The defined renderer types are: `lynx' : use lynx; `html2text' : use html2text; nil : use external viewer." + :version "21.4" :type '(choice (const w3) (const w3m) (const w3m-standalone) @@ -122,7 +123,6 @@ nil : use external viewer." (const html2text) (const nil) (function)) - :version "21.3" :group 'mime-display) (defvar mm-inline-text-html-renderer nil @@ -133,6 +133,7 @@ It is suggested to customize `mm-text-html-renderer' instead.") "If non-nil, Gnus will allow retrieving images in HTML contents with the tags. It has no effect on Emacs/w3. See also the documentation for the `mm-w3m-safe-url-regexp' variable." + :version "21.4" :type 'boolean :group 'mime-display) @@ -280,6 +281,7 @@ type inline." "application/pdf" "application/x-dvi") "List of media types for which the external viewer will not be killed when selecting a different article." + :version "21.4" :type '(repeat string) :group 'mime-display) @@ -381,6 +383,7 @@ If not set, `default-directory' will be used." (defcustom mm-external-terminal-program "xterm" "The program to start an external terminal." + :version "21.4" :type 'string :group 'mime-display) @@ -413,6 +416,7 @@ If not set, `default-directory' will be used." "Option of verifying signed parts. `never', not verify; `always', always verify; `known', only verify known protocols. Otherwise, ask user." + :version "21.4" :type '(choice (item always) (item never) (item :tag "only known protocols" known) diff --git a/lisp/mm-util.el b/lisp/mm-util.el index 1b3d88181..55c9a346d 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -346,6 +346,7 @@ More than one suitable coding system may be found for some text. By default, the coding system with the highest priority is used to encode outgoing messages (see `sort-coding-systems'). If this variable is set, it overrides the default priority." + :version "21.2" :type '(repeat (symbol :tag "Coding system")) :group 'mime) diff --git a/lisp/mml.el b/lisp/mml.el index 6c73223e7..35b9d6058 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -45,6 +45,7 @@ '(name access-type expiration size permission format) "*A list of acceptable parameters in MML tag. These parameters are generated in Content-Type header if exists." + :version "21.4" :type '(repeat (symbol :tag "Parameter")) :group 'message) @@ -52,12 +53,14 @@ These parameters are generated in Content-Type header if exists." '(filename creation-date modification-date read-date) "*A list of acceptable parameters in MML tag. These parameters are generated in Content-Disposition header if exists." + :version "21.4" :type '(repeat (symbol :tag "Parameter")) :group 'message) (defcustom mml-insert-mime-headers-always nil "If non-nil, always put Content-Type: text/plain at top of empty parts. It is necessary to work against a bug in certain clients." + :version "21.4" :type 'boolean :group 'message) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index efffa920b..6bf8468d3 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -211,6 +211,7 @@ variable is the symbol `default' the default behaviour is used (which currently is nil, unless you use a statistical spam.el test); if this variable is another non-nil value bodies will be downloaded." + :version "21.4" :group 'nnimap :type '(choice (const :tag "Let system decide" deault) boolean)) @@ -219,9 +220,10 @@ will be downloaded." (defcustom nnimap-close-asynchronous t "Close mailboxes asynchronously in `nnimap-close-group'. -This means that errors cought by nnimap when closing the mailbox will +This means that errors caught by nnimap when closing the mailbox will not prevent Gnus from updating the group status, which may be harmful. However, it increases speed." + :version "21.4" :type 'boolean :group 'nnimap) @@ -230,6 +232,7 @@ However, it increases speed." This increases the speed of closing mailboxes (quiting group) but may decrease the speed of selecting another mailbox later. Re-selecting the same mailbox will be faster though." + :version "21.4" :type 'boolean :group 'nnimap) @@ -242,6 +245,7 @@ more carefully for new mail. In summary, the default is O((1-p)*k+p*n) and changing it to nil makes it O(n). If p is small, then the default is probably faster." + :version "21.4" :type 'boolean :group 'nnimap) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 2cab38c12..9295b0c24 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -223,6 +223,7 @@ From header will be expired to the group \"nnfolder:Work\"; articles containing the sting \"IMPORTANT\" in the Subject header will be expired to the group \"nnfolder:IMPORTANT.YYYY.MMM\"; and everything else will be expired to \"nnfolder:Archive-YYYY\"." + :version "21.4" :group 'nnmail-expire :type '(repeat (list (choice :tag "Match against" (string :tag "Header") @@ -557,11 +558,13 @@ parameter. It should return nil, `warn' or `delete'." (defcustom nnmail-mail-splitting-charset nil "Default charset to be used when splitting incoming mail." + :version "21.4" :group 'nnmail :type 'symbol) (defcustom nnmail-mail-splitting-decodes nil "Whether the nnmail splitting functionality should MIME decode headers." + :version "21.4" :group 'nnmail :type 'boolean) diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el index b97956838..5ec53adbc 100644 --- a/lisp/pgg-def.el +++ b/lisp/pgg-def.el @@ -48,6 +48,7 @@ (defcustom pgg-query-keyserver nil "Whether PGG queries keyservers for missing keys when verifying messages." + :version "21.4" :group 'pgg :type 'boolean) diff --git a/lisp/sha1.el b/lisp/sha1.el index c71a135c5..a9b68805d 100644 --- a/lisp/sha1.el +++ b/lisp/sha1.el @@ -82,6 +82,7 @@ It must be a string \(program name\) or list of strings \(name and its args\)." (error)) "*Use external SHA1 program. If this variable is set to nil, use internal function only." + :version "21.4" :type 'boolean :group 'sha1) diff --git a/lisp/smiley.el b/lisp/smiley.el index d41aea1d4..4564db294 100644 --- a/lisp/smiley.el +++ b/lisp/smiley.el @@ -78,6 +78,7 @@ regexp to replace with IMAGE. IMAGE is the name of a PBM file in (push "xpm" types)) types) "*List of suffixes on picon file names to try." + :version "21.4" :type '(repeat string) :group 'smiley) diff --git a/lisp/smime.el b/lisp/smime.el index 259ec3c28..320b9e223 100644 --- a/lisp/smime.el +++ b/lisp/smime.el @@ -150,6 +150,7 @@ certificate." (defcustom smime-CA-file nil "*Files containing certificates for CAs you trust. File should contain certificates in PEM format." + :version "21.4" :type '(choice (const :tag "none" nil) file) :group 'smime) @@ -177,6 +178,7 @@ and the files themself should be in PEM format." (defcustom smime-encrypt-cipher "-des3" "*Cipher algorithm used for encryption." + :version "21.4" :type '(choice (const :tag "Triple DES" "-des3") (const :tag "DES" "-des") (const :tag "RC2 40 bits" "-rc2-40") @@ -208,6 +210,7 @@ At least OpenSSL version 0.9.7 is required for this to work." (defcustom smime-dns-server nil "*DNS server to query certificates from. If nil, use system defaults." + :version "21.4" :type '(choice (const :tag "System defaults") string) :group 'smime) diff --git a/lisp/uudecode.el b/lisp/uudecode.el index d1c45fb5c..0e9ac10e0 100644 --- a/lisp/uudecode.el +++ b/lisp/uudecode.el @@ -50,6 +50,7 @@ input and write the converted data to its standard output." (defcustom uudecode-use-external (executable-find uudecode-decoder-program) "*Use external uudecode program." + :version "21.4" :group 'gnus-extract :type 'boolean)