From 330f707bedf7e7f3f8fdcd7012d0eca4febe2894 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 29 Feb 2008 04:03:49 +0000 Subject: [PATCH] Change defcustom :version from 23.0 to 23.1. --- lisp/gnus/gnus-art.el | 12 ++++++------ lisp/gnus/gnus-bookmark.el | 2 +- lisp/gnus/gnus-dired.el | 2 +- lisp/gnus/gnus-draft.el | 2 +- lisp/gnus/gnus-group.el | 10 +++++----- lisp/gnus/gnus-msg.el | 4 ++-- lisp/gnus/gnus-score.el | 4 ++-- lisp/gnus/gnus-sum.el | 12 ++++++------ lisp/gnus/gnus-util.el | 2 +- lisp/gnus/gnus.el | 2 +- lisp/gnus/mail-source.el | 2 +- lisp/gnus/message.el | 18 +++++++++--------- lisp/gnus/mm-decode.el | 2 +- lisp/gnus/mm-uu.el | 6 +++--- lisp/gnus/mml.el | 4 ++-- lisp/gnus/nnmail.el | 2 +- lisp/gnus/pop3.el | 2 +- lisp/gnus/smiley.el | 2 +- lisp/gnus/smime.el | 2 +- lisp/gnus/spam-report.el | 2 +- 20 files changed, 47 insertions(+), 47 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 071d4674c59..543aabb04d7 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -718,7 +718,7 @@ The following additional specs are available: (defcustom gnus-copy-article-ignored-headers nil "List of headers to be removed when copying an article. Each element is a regular expression." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type '(repeat regexp) :group 'gnus-article-various) @@ -885,7 +885,7 @@ See the manual for the valid properties for various image types. Currently, `pbm' is used for X-Face images and `png' is used for Face images in Emacs. Only the `:face' property is effective on the `xface' image type in XEmacs if it is built with the libcompface library." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article-headers :type '(repeat (cons :format "%v" (symbol :tag "Image type") plist))) @@ -1057,7 +1057,7 @@ used." When 0, point will be placed on the same part as before. When positive (negative), move point forward (backwards) this many parts. When nil, redisplay article." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article-mime :type '(choice (const nil :tag "Redisplay article.") (const 1 :tag "Next part.") @@ -1362,7 +1362,7 @@ If it is a regexp, only long headers matching this regexp are unfolded. If it is t, all long headers are unfolded. This variable has no effect if `gnus-treat-unfold-headers' is nil." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article-treat :type '(choice (const nil) (const :tag "all" t) @@ -2227,7 +2227,7 @@ unfolded." "Value of `truncate-lines' in Gnus Article buffer. Valid values are nil, t, `head', `first', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles'." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article ;; :link '(custom-manual "(gnus)Customizing Articles") :type 'boolean) @@ -2766,7 +2766,7 @@ exit from the summary buffer. If it is the symbol `file', query on each file, if it is `ask' ask once when exiting from the summary buffer." :group 'gnus-article - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type '(choice (const :tag "Don't delete" nil) (const :tag "Don't ask" t) (const :tag "Ask" ask) diff --git a/lisp/gnus/gnus-bookmark.el b/lisp/gnus/gnus-bookmark.el index ddfc559e12e..6b0bfebbabc 100644 --- a/lisp/gnus/gnus-bookmark.el +++ b/lisp/gnus/gnus-bookmark.el @@ -139,7 +139,7 @@ The default value is \(author subject date group annotation\)." (defface gnus-bookmark-menu-heading '((t (:inherit font-lock-type-face))) "Face used to highlight the heading in Gnus bookmark menu buffers." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-bookmark) (defconst gnus-bookmark-end-of-version-stamp-marker diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el index 40be3c94f1d..4f29fe8d280 100644 --- a/lisp/gnus/gnus-dired.el +++ b/lisp/gnus/gnus-dired.el @@ -77,7 +77,7 @@ "Your preference for a mail composition package. See `mail-user-agent' for more information." :group 'mail ;; dired? - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type '(radio (function-item :tag "Default Emacs mail" :format "%t\n" sendmail-user-agent) diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el index e9783a89292..9148ca9036e 100644 --- a/lisp/gnus/gnus-draft.el +++ b/lisp/gnus/gnus-draft.el @@ -244,7 +244,7 @@ Obeys the standard process/prefix convention." (defcustom gnus-draft-setup-hook nil "Hook run after setting up a draft buffer." :group 'gnus-message - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type 'hook) ;;; Utility functions diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index ef64fc81b0a..ae12315172d 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1031,7 +1031,7 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and (const :tag "Retro look" gnus-group-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group) @@ -1074,7 +1074,7 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and See `gmm-tool-bar-from-list' for the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group) @@ -1093,7 +1093,7 @@ See `gmm-tool-bar-from-list' for the format of the list." See `gmm-tool-bar-from-list' for the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group) @@ -1104,7 +1104,7 @@ These items are not displayed in the Gnus group mode tool bar. See `gmm-tool-bar-from-list' for the format of the list." :type 'gmm-tool-bar-zap-list - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-group-tool-bar-update :group 'gnus-group) @@ -2331,7 +2331,7 @@ Return the name of the group if selection was successful." It must contain three \"%s\". They correspond to the group, the minimal and maximal article numbers, respectively." :group 'gnus-group-foreign - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type 'string) (autoload 'url-insert-file-contents "url-handlers") diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 26021e97d35..0a2ee2d09be 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -265,7 +265,7 @@ This can also be a function receiving the group name as the only parameter, which should return non-nil if a confirmation is needed; or a regexp, in which case a confirmation is asked for if the group name matches the regexp." - :version "23.0" ;; No Gnus (default changed) + :version "23.1" ;; No Gnus (default changed) :group 'gnus-message :type '(choice (const :tag "No" nil) (const :tag "Yes" t) @@ -293,7 +293,7 @@ If nil, the address field will always be empty after invoking (defcustom gnus-message-highlight-citation t ;; gnus-treat-highlight-citation ;; gnus-cite dependency "Enable highlighting of different citation levels in message-mode." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-cite :group 'gnus-message :type 'boolean) diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 270eb4b9da1..d79007b92e6 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -326,7 +326,7 @@ If this variable is nil, exact matching will always be used." "If non-nil, adaptive score files fill are pretty printed." :group 'gnus-score-files :group 'gnus-score-adapt - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type 'boolean) (defcustom gnus-score-default-header nil @@ -429,7 +429,7 @@ If a regexp, scoring on headers or body is inhibited if the group matches the regexp. If it is t, scoring on headers or body is inhibited for all groups." :group 'gnus-score-various - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type '(choice (const :tag "All" nil) (const :tag "None" t) regexp)) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 52eab645d4e..9f206803450 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -72,7 +72,7 @@ it will be killed sometime later." See `gnus-group-goto-unread'." :link '(custom-manual "(gnus)Group Maneuvering") :group 'gnus-summary-exit - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type 'boolean) (defcustom gnus-fetch-old-headers nil @@ -398,7 +398,7 @@ Valid values include: If it has any other value or there is no next (unread) article, the article selected before entering to the ephemeral group will appear." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-summary-maneuvering :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (const next) (const next-unread) @@ -2752,7 +2752,7 @@ Pre-defined symbols include `gnus-summary-tool-bar-gnome' and (const :tag "Retro look" gnus-summary-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary) @@ -2803,7 +2803,7 @@ Pre-defined symbols include `gnus-summary-tool-bar-gnome' and See `gmm-tool-bar-from-list' for the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary) @@ -2838,7 +2838,7 @@ See `gmm-tool-bar-from-list' for the format of the list." See `gmm-tool-bar-from-list' for the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary) @@ -2849,7 +2849,7 @@ These items are not displayed in the Gnus summary mode tool bar. See `gmm-tool-bar-from-list' for the format of the list." :type 'gmm-tool-bar-zap-list - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'gnus-summary-tool-bar-update :group 'gnus-summary) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 6a82960973c..66db49d8449 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -521,7 +521,7 @@ If it is `log', add timestamps to only the messages that go into the \"*Messages*\" buffer (in XEmacs, it is the \" *Message-Log*\" buffer). If it is neither nil nor `log', add timestamps not only to log messages but also to the ones displayed in the echo area." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-various :type '(choice :format "%{%t%}:\n %[Value Menu%] %v" (const :tag "Logged messages only" log) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index d32cfb856cc..583588dedff 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1320,7 +1320,7 @@ updated if the value of this variable is nil, even if you change the value of `gnus-message-archive-method' afterward. If you want the saved \"archive\" method to be updated whenever you change the value of `gnus-message-archive-method', set this variable to a non-nil value." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-server :group 'gnus-message :type 'boolean) diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index cfbcc166b50..499d250f4cd 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -67,7 +67,7 @@ This variable is a list of mail source specifiers. See Info node `(gnus)Mail Source Specifiers'." :group 'mail-source - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :link '(custom-manual "(gnus)Mail Source Specifiers") :type `(choice (const :tag "None" nil) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index a25841df32b..32f191d918b 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -476,7 +476,7 @@ function (defcustom message-kill-buffer-query t "*Non-nil means that killing a modified message buffer has to be confirmed. This is used by `message-kill-buffer'." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'message-buffers :type 'boolean) @@ -666,7 +666,7 @@ See also `send-mail-function'." :tag "Use Mailclient package") (function :tag "Other")) :group 'message-sending - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :link '(custom-manual "(message)Mail Variables") :group 'message-mail) @@ -809,7 +809,7 @@ If this is nil, use `user-mail-address'. If it is the symbol (defcustom message-sendmail-extra-arguments nil "Additional arguments to `sendmail-program'." ;; E.g. '("-a" "account") for msmtp - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type '(repeat string) ;; :link '(custom-manual "(message)Mail Variables") :group 'message-sending) @@ -969,7 +969,7 @@ Please also read the note in the documentation of (const :tag "Include date" "On %a, %b %d %Y, %n wrote:") string) :link '(custom-manual "(message)Insertion Variables") - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'message-insertion) (defcustom message-yank-prefix "> " @@ -4038,7 +4038,7 @@ not have PROP." (defcustom message-bogus-address-regexp nil ;; "noreply\\|nospam\\|invalid" "Regexp of potentially bogus mail addresses." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'message-headers :type 'regexp) @@ -7357,7 +7357,7 @@ Pre-defined symbols include `message-tool-bar-gnome' and (const :tag "Retro look" message-tool-bar-retro) (repeat :tag "User defined list" gmm-tool-bar-item) (symbol)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) @@ -7386,7 +7386,7 @@ Pre-defined symbols include `message-tool-bar-gnome' and See `gmm-tool-bar-from-list' for details on the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) @@ -7406,7 +7406,7 @@ See `gmm-tool-bar-from-list' for details on the format of the list." See `gmm-tool-bar-from-list' for details on the format of the list." :type '(repeat gmm-tool-bar-item) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) @@ -7419,7 +7419,7 @@ These items are not displayed on the message mode tool bar. See `gmm-tool-bar-from-list' for the format of the list." :type 'gmm-tool-bar-zap-list - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :initialize 'custom-initialize-default :set 'message-tool-bar-update :group 'message) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index f832a9c28e1..98d444665b2 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -394,7 +394,7 @@ functions), `mm-file-name-delete-whitespace', (repeat :inline t :tag "Function" function))) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'mime-display) diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index 904e69bff35..898be5a5bac 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el @@ -89,7 +89,7 @@ This can be either \"inline\" or \"attachment\".") (defcustom mm-uu-tex-groups-regexp "\\.tex\\>" "*Regexp matching TeX groups." - :version "23.0" + :version "23.1" :type 'regexp :group 'gnus-article-mime) @@ -245,7 +245,7 @@ The value should be nil on displays where the face `mm-uu-extract' isn't distinguishable to the face `default'." :type '(choice (const :tag "Hide" t) (const :tag "Don't hide" nil)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article-mime) (defface mm-uu-extract '(;; Colors from `gnus-cite-3' plus background: @@ -261,7 +261,7 @@ The value should be nil on displays where the face ())) "Face for extracted buffers." ;; See `mm-uu-verbatim-marks-extract'. - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'gnus-article-mime) (defun mm-uu-copy-to-buffer (&optional from to properties) diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 2b5987e5e6e..c703e1365f6 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -97,7 +97,7 @@ type (e.g., text/plain) respectively, and DISPOSITION should be either the string \"attachment\" or the string \"inline\". The value t for SUPERTYPE, SUBTYPE or TYPE matches any of those types. The first match found will be used." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type (let ((dispositions '(radio :format "DISPOSITION: %v" :value "attachment" (const :format "%v " "attachment") @@ -1110,7 +1110,7 @@ See Info node `(emacs-mime)Composing'. "The default directory where mml will find files. If not set, `default-directory' will be used." :type '(choice directory (const :tag "Default" nil)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'message) (defun mml-minibuffer-read-file (prompt) diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 08e4fcf05f6..0cccfa1b036 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1296,7 +1296,7 @@ Return the number of characters in the body." "Header line matching mailer producing bogus References lines. See `nnmail-ignore-broken-references'." :group 'nnmail-prepare - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :type 'regexp) (defun nnmail-ignore-broken-references () diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index f78c8398e23..ad442cfced9 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -213,7 +213,7 @@ SSL/TSL-secured stream) or `starttls' (use the starttls mechanism to turn on TLS security after opening the stream). However, if this is nil, `ssl' is assumed for connexions to port 995 (pop3s)." - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'pop3 :type '(choice (const :tag "Plain" nil) (const :tag "SSL/TLS" ssl) diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el index 755af6e5b13..7937679e111 100644 --- a/lisp/gnus/smiley.el +++ b/lisp/gnus/smiley.el @@ -76,7 +76,7 @@ (setq smiley-data-directory (smiley-directory)) (smiley-update-cache)) :initialize 'custom-initialize-default - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'smiley) ;; For compatibility, honor the variable `smiley-data-directory' if the user diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index e7eece05f24..7a8947383e0 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -245,7 +245,7 @@ If nil, use system defaults." If needed search base, binddn, passwd, etc. for the LDAP host must be set in `ldap-host-parameters-alist'." :type '(repeat (string :tag "Host name")) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'smime) (defvar smime-details-buffer "*OpenSSL output*") diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el index 701682a613c..2f8590ab4b0 100644 --- a/lisp/gnus/spam-report.el +++ b/lisp/gnus/spam-report.el @@ -220,7 +220,7 @@ the function specified by `spam-report-url-ping-function'." This is initialized based on `user-mail-address'." :type '(choice string (const :tag "Don't expose address" nil)) - :version "23.0" ;; No Gnus + :version "23.1" ;; No Gnus :group 'spam-report) (defvar spam-report-user-agent -- 2.39.2