procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change defcustom :version from 23.0 to 23.1.

Browse source
This commit is contained in:
Glenn Morris 2008-02-29 04:03:49 +00:00
parent ab74c815cf
commit 330f707bed
20 changed files with 47 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/gnus-art.el
View file

@ -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)

2
lisp/gnus/gnus-bookmark.el
View file

@ -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

2
lisp/gnus/gnus-dired.el
View file

@ -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)

2
lisp/gnus/gnus-draft.el
View file

@ -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

10
lisp/gnus/gnus-group.el
View file

@ -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")

4
lisp/gnus/gnus-msg.el
View file

@ -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)

4
lisp/gnus/gnus-score.el
View file

@ -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))

12
lisp/gnus/gnus-sum.el
View file

@ -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)

2
lisp/gnus/gnus-util.el
View file

@ -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)

2
lisp/gnus/gnus.el
View file

@ -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)

2
lisp/gnus/mail-source.el
View file

@ -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)

18
lisp/gnus/message.el
View file

@ -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)

2
lisp/gnus/mm-decode.el
View file

@ -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)

6
lisp/gnus/mm-uu.el
View file

@ -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)

4
lisp/gnus/mml.el
View file

@ -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)

2
lisp/gnus/nnmail.el
View file

@ -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 ()

2
lisp/gnus/pop3.el
View file

@ -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)

2
lisp/gnus/smiley.el
View file

@ -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

2
lisp/gnus/smime.el
View file

@ -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*")

2
lisp/gnus/spam-report.el
View file

@ -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