From f97a2c94c13a9f937a8e7698e0e0b34efd55b47c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 3 Feb 2003 22:35:57 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 29 +++++++++++++++++++++++++++++ lisp/dgnushack.el | 2 +- lisp/gnus-art.el | 2 +- lisp/gnus-cus.el | 12 ++++++------ lisp/gnus-int.el | 2 +- lisp/gnus-score.el | 2 +- lisp/gnus-start.el | 2 +- lisp/gnus-util.el | 2 +- lisp/gnus.el | 10 +++++----- lisp/messcompat.el | 2 +- lisp/mm-decode.el | 2 +- lisp/spam.el | 6 +++--- 12 files changed, 51 insertions(+), 22 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 854ccd8..c5a4251 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,32 @@ +2003-02-03 Jesper Harder + + * spam.el (spam-list-of-checks): Don't quote nil and t in + docstrings. From the elisp manual: + + When a documentation string refers to a Lisp symbol, write + it [..] with single-quotes around it. [..] There are two + exceptions: write t and nil without single-quotes. + + * messcompat.el (message-from-style): do. + + * message.el (message-send-mail): do. + + * gnus-util.el (gnus-use-byte-compile): do. + + * gnus-score.el (gnus-score-lower-thread): do. + + * gnus-int.el (gnus-server-unopen-status): do. + + * gnus.el (gnus-define-group-parameter, gnus-large-newsgroup) + (large-newsgroup-initial, gnus-install-group-spam-parameters): do. + + * gnus-cus.el (gnus-group-customize, gnus-score-parameters) + (gnus-group-parameters): do. + + * gnus-art.el (gnus-article-mime-match-handle-function): do. + + * mm-decode.el (mm-text-html-renderer): do. + 2003-02-02 Katsumi Yamaoka * nnheader.el (nnheader-directory-separator-character): Change the diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 67f7510..17227e4 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -131,7 +131,7 @@ to the specified name LIBRARY (a la calling `load' instead of `load-library')." (byte-optimize-form '(and (< 0 1) - (message "The subform `(< 0 1)' should be optimized to `t'")) + (message "The subform `(< 0 1)' should be optimized to t")) 'for-effect)) '(< 0 1)) (defadvice byte-optimize-form-code-walker diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 4570864..041f418 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -839,7 +839,7 @@ This is meant for people who want to view first matched part. For `undisplayed-alternative' (default), the first undisplayed part or alternative part is used. For `undisplayed', the first undisplayed part is used. For a function, the first part which -the function return `t' is used. For `nil', the first part is +the function return t is used. For nil, the first part is used." :version "21.1" :group 'gnus-article-mime diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index 3eebcd2..1849e14 100644 --- a/lisp/gnus-cus.el +++ b/lisp/gnus-cus.el @@ -130,7 +130,7 @@ All posts will be sent to the specified group.") (string :format "%v" :hide-front-space t)) "\ Specify default value for GCC header. -If this symbol is present in the group parameter list and set to `t', +If this symbol is present in the group parameter list and set to t, new composed messages will be `Gcc''d to the current group. If it is present and set to `none', no `Gcc:' header will be generated, if it is present and a string, this string will be inserted literally as a @@ -339,7 +339,7 @@ Set variables local to the group you are entering. If you want to turn threading off in `news.answers', you could put `(gnus-show-threads nil)' in the group parameters of that group. `gnus-show-threads' will be made into a local variable in the summary -buffer you enter, and the form `nil' will be `eval'ed there. +buffer you enter, and the form nil will be `eval'ed there. This can also be used as a group-specific hook function, if you'd like. If you want to hear a beep when you enter a group, you could @@ -452,15 +452,15 @@ by ordinary scoring rules.") (sexp :format "%v" :hide-front-space t)) "\ This entry controls the adaptive scoring. -If it is `t', the default adaptive scoring rules will be used. If it +If it is t, the default adaptive scoring rules will be used. If it is `ignore', no adaptive scoring will be performed on this group. If it is a list, this list will be used as the adaptive scoring rules. -If it isn't present, or is something other than `t' or `ignore', the +If it isn't present, or is something other than t or `ignore', the default adaptive scoring rules will be used. If you want to use adaptive scoring on most groups, you'd set `gnus-use-adaptive-scoring' -to `t', and insert an `(adapt ignore)' in the groups where you do not +to t, and insert an `(adapt ignore)' in the groups where you do not want adaptive scoring. If you only want adaptive scoring in a few -groups, you'd set `gnus-use-adaptive-scoring' to `nil', and insert +groups, you'd set `gnus-use-adaptive-scoring' to nil, and insert `(adapt t)' in the score files of the groups where you want it.") (adapt-file (file :tag "Adapt-file") "\ diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 5b1af45..10188a7 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -45,7 +45,7 @@ "The default status if the server is not able to open. 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 +nil, ask user. If the server is not covered by Gnus agent, set the server denied." :group 'gnus-start :type '(choice (const :tag "Ask" nil) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 10833ee..abb791e 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -1544,7 +1544,7 @@ EXTRA is the possible non-standard header." "Lower the score on THREAD with SCORE-ADJUST. THREAD is expected to contain a list of the form `(PARENT [CHILD1 CHILD2 ...])' where PARENT is a header array and each CHILD is a list -of the same form as THREAD. The empty list `nil' is valid. For each +of the same form as THREAD. The empty list nil is valid. For each article in the tree, the score of the corresponding entry in `gnus-newsgroup-scored' is adjusted by SCORE-ADJUST." (while thread diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index f8b4b5a..d007b35 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -2205,7 +2205,7 @@ If FORCE is non-nil, the .newsrc file is read." (setq list (cdr list)))))) ;;(defun gnus-re-read-newsrc-el-file (file) -;; "Attempt to re-read .newsrc.eld file. Returns `nil' if successful. +;; "Attempt to re-read .newsrc.eld file. Returns nil if successful. ;;The backup file \".newsrc.eld_\" will be created before re-reading." ;; (message "Error in %s; retrying..." file) ;; (if (and diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 72afa28..fa38685 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1118,7 +1118,7 @@ Return the modified alist." (defcustom gnus-use-byte-compile t "If non-nil, byte-compile crucial run-time codes. -Setting it to `nil' has no effect after first time running +Setting it to nil has no effect after first time running `gnus-byte-compile'." :type 'boolean :version "21.1" diff --git a/lisp/gnus.el b/lisp/gnus.el index 6787076..0f3ecf1 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -994,7 +994,7 @@ defaults to a proper value only if this file is byte-compiled by make.") (defmacro gnus-define-group-parameter (param &rest rest) "Define a group parameter PARAM. REST is a plist of following: -:type One of `bool', `list' or `nil'. +:type One of `bool', `list' or nil. :function The name of the function. :function-document The documentation of the function. :parameter-type The type for customizing the parameter. @@ -1369,7 +1369,7 @@ newsgroups." "*The number of articles which indicates a large newsgroup. 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." +If it is nil, no confirmation is required." :group 'gnus-group-select :type '(choice (const :tag "No limit" nil) integer)) @@ -1775,7 +1775,7 @@ posting an article." This number will be prompted as the initial value of the number of articles to list when the group is a large newsgroup (see -`gnus-large-newsgroup'). If it is `nil', the default value is the +`gnus-large-newsgroup'). If it is nil, the default value is the total number of articles in the group.") ;; group parameters for spam processing added by Ted Zlatanov @@ -1925,7 +1925,7 @@ for mail groups." another group, or expire them (the default). If non-nil, this should be a list of group name regexps that should match all groups in which to do spam-processed article moving, associated with the destination -group or `nil' for explicit expiration. This only makes sense for +group or nil for explicit expiration. This only makes sense for mail groups." :variable-group spam :variable-type '(repeat @@ -1954,7 +1954,7 @@ mail groups." another group, or do nothing (the default). If non-nil, this should be a list of group name regexps that should match all groups in which to do ham article moving, associated with the destination -group or `nil' for explicit ignoring. This only makes sense for +group or nil for explicit ignoring. This only makes sense for mail groups, and only works in spam groups." :variable-group spam :variable-type '(repeat diff --git a/lisp/messcompat.el b/lisp/messcompat.el index fc3d52c..4cad66a 100644 --- a/lisp/messcompat.el +++ b/lisp/messcompat.el @@ -40,7 +40,7 @@ (defvar message-from-style mail-from-style "*Specifies how \"From\" headers look. -If `nil', they contain just the return address like: +If nil, they contain just the return address like: king@grassland.com If `parens', they look like: king@grassland.com (Elvis Parsley) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index b8471c4..ca90f53 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -110,7 +110,7 @@ The defined renderer types are: `links': using links; `lynx' : using lynx; `html2text' : using html2text; -`nil' : using external viewer." +nil : using external viewer." :type '(choice (const w3) (const w3m) (const links) diff --git a/lisp/spam.el b/lisp/spam.el index 96896e8..32b1a6b 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -511,9 +511,9 @@ your main source of newsgroup names." "The spam-list-of-checks list contains pairs associating a parameter variable with a spam checking function. If the parameter variable is true, then the checking function is called, and its value decides what -happens. Each individual check may return `nil', `t', or a mailgroup -name. The value `nil' means that the check does not yield a decision, -and so, that further checks are needed. The value `t' means that the +happens. Each individual check may return nil, t, or a mailgroup +name. The value nil means that the check does not yield a decision, +and so, that further checks are needed. The value t means that the message is definitely not spam, and that further spam checks should be inhibited. Otherwise, a mailgroup name is returned where the mail should go, and further checks are also inhibited. The usual mailgroup -- 1.7.10.4