From: ShengHuo ZHU Date: Fri, 21 Dec 2001 13:55:48 +0000 (+0000) Subject: 2001-12-21 08:00:00 ShengHuo ZHU X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=f6059964525ddd9f9bbdb1da7b73034af70e07cb;hp=e6c35a20a80021260e2ba160c594b6ce35953238 2001-12-21 08:00:00 ShengHuo ZHU * gnus-art.el, gnus-picon.el, gnus-sieve.el, gnus-sum.el: * gnus-xmas.el, imap.el, mailcap.el, mm-util.el, nnfolder.el: * nnheader.el, nnmail.el: Nil/NIL vs. nil. From Pavel Jan,Bm(Bk --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9126bd0a3..bb6bc8466 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-12-21 08:00:00 ShengHuo ZHU + + * gnus-art.el, gnus-picon.el, gnus-sieve.el, gnus-sum.el: + * gnus-xmas.el, imap.el, mailcap.el, mm-util.el, nnfolder.el: + * nnheader.el, nnmail.el: Nil/NIL vs. nil. + From Pavel Jan,Bm(Bk + 2001-12-20 15:00:00 ShengHuo ZHU * nnmaildir.el: Copyright changes. Require cl only at compile time. @@ -1106,7 +1113,7 @@ * message.el (message-setup-1): Really add text property to all of the header, not just part of it. -2001-09-04 21:42:23 Lars Magne Ingebrigtsen +2001-09-04 Lars Magne Ingebrigtsen * gnus-group.el (gnus-group-sort-by-server): Use it. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 77a13100b..696ff2f9f 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2173,7 +2173,7 @@ Put point at the beginning of the signature separator." (defun gnus-article-check-hidden-text (type arg) "Return nil if hiding is necessary. -Arg can be nil or a number. Nil and positive means hide, negative +Arg can be nil or a number. nil and positive means hide, negative means show, 0 means toggle." (save-excursion (save-restriction diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 856c5f39b..db78d9050 100644 --- a/lisp/gnus-picon.el +++ b/lisp/gnus-picon.el @@ -351,7 +351,7 @@ arguments necessary for the job.") (defun gnus-picons-lookup (addrs dirs) "Lookup the picon for ADDRS in databases DIRS. -Returns the picon filename or NIL if none found." +Returns the picon filename or nil if none found." (let (result) (while (and dirs (null result)) (setq result (gnus-picons-lookup-internal addrs (pop dirs)))) @@ -381,7 +381,7 @@ DOMAINS is a list of strings from the fully qualified domain name." (defun gnus-picons-lookup-pairs (domains directories) "Lookup picons for DOMAINS and all its parents in DIRECTORIES. -Returns a list of PAIRS whose CAR is the picon filename or NIL if +Returns a list of PAIRS whose CAR is the picon filename or nil if none, and whose CDR is the corresponding element of DOMAINS." (let (picons) (setq directories (if (listp directories) diff --git a/lisp/gnus-sieve.el b/lisp/gnus-sieve.el index 2553358f8..36c99d076 100644 --- a/lisp/gnus-sieve.el +++ b/lisp/gnus-sieve.el @@ -116,7 +116,7 @@ See the documentation for these variables and functions for details." (defun gnus-sieve-guess-rule-for-article () "Guess a sieve rule based on RFC822 article in buffer. -Return NIL if no rule could be guessed." +Return nil if no rule could be guessed." (when (message-fetch-field "sender") `(sieve address "sender" ,(regexp-quote (message-fetch-field "sender"))))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 88e7462b6..505befae0 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6422,7 +6422,7 @@ be displayed." (unless (eq major-mode 'gnus-summary-mode) (set-buffer gnus-summary-buffer)) (let ((article (or article (gnus-summary-article-number))) - (all-headers (not (not all-headers))) ;Must be T or NIL. + (all-headers (not (not all-headers))) ;Must be t or nil. gnus-summary-display-article-function) (and (not pseudo) (gnus-summary-article-pseudo-p article) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 9e1ff246d..b5e725daa 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -661,7 +661,7 @@ If it is non-nil, it must be a toolbar. The five valid values are (cons (current-buffer) bar))))) (defun gnus-xmas-mail-strip-quoted-names (address) - "Protect mail-strip-quoted-names from NIL input. + "Protect mail-strip-quoted-names from nil input. XEmacs compatibility workaround." (if (null address) nil diff --git a/lisp/imap.el b/lisp/imap.el index a728a65c4..3f29cc947 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1836,21 +1836,21 @@ Return nil if no complete line has arrived." ;; ;; addr-adl = nstring ;; ; Holds route from [RFC-822] route-addr if -;; ; non-NIL +;; ; non-nil ;; ;; addr-host = nstring -;; ; NIL indicates [RFC-822] group syntax. +;; ; nil indicates [RFC-822] group syntax. ;; ; Otherwise, holds [RFC-822] domain name ;; ;; addr-mailbox = nstring -;; ; NIL indicates end of [RFC-822] group; if -;; ; non-NIL and addr-host is NIL, holds +;; ; nil indicates end of [RFC-822] group; if +;; ; non-nil and addr-host is nil, holds ;; ; [RFC-822] group name. ;; ; Otherwise, holds [RFC-822] local-part ;; ; after removing [RFC-822] quoting ;; ;; addr-name = nstring -;; ; If non-NIL, holds phrase from [RFC-822] +;; ; If non-nil, holds phrase from [RFC-822] ;; ; mailbox after removing [RFC-822] quoting ;; @@ -2551,7 +2551,7 @@ Return nil if no complete line has arrived." (push (imap-parse-nstring) body) ;; body-fld-desc (imap-forward) ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a - ;; nstring and return NIL instead of defaulting back to 7BIT + ;; nstring and return nil instead of defaulting back to 7BIT ;; as the standard says. (push (or (imap-parse-nstring) "7BIT") body) ;; body-fld-enc (imap-forward) diff --git a/lisp/mailcap.el b/lisp/mailcap.el index aaa8104b9..b61a2f1cc 100644 --- a/lisp/mailcap.el +++ b/lisp/mailcap.el @@ -282,7 +282,7 @@ to return a true or false shell value for the validity.") (defcustom mailcap-download-directory nil "*Directory to which `mailcap-save-binary-file' downloads files by default. -Nil means your home directory." +nil means your home directory." :type '(choice (const :tag "Home directory" nil) directory) :group 'mailcap) diff --git a/lisp/mm-util.el b/lisp/mm-util.el index afe9f6cdb..e752bf7ee 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -491,7 +491,7 @@ If the charset is `composition', return the actual one." (defun mm-find-mime-charset-region (b e &optional hack-charsets) "Return the MIME charsets needed to encode the region between B and E. -Nil means ASCII, a single-element list represents an appropriate MIME +nil means ASCII, a single-element list represents an appropriate MIME charset, and a longer list means no appropriate charset." (let (charsets) ;; The return possibilities of this function are a mess... diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index da17dee15..25613f60d 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -116,7 +116,7 @@ message, a huge time saver for large mailboxes.") (defvoo nnfolder-file-coding-system mm-text-coding-system) (defvoo nnfolder-file-coding-system-for-write nnheader-file-coding-system "Coding system for save nnfolder file. -If NIL, NNFOLDER-FILE-CODING-SYSTEM is used.") +if nil, `nnfolder-file-coding-system' is used.") ; FIXME: fill-in the doc-string of this variable (defvoo nnfolder-nov-is-evil nil "If non-nil, Gnus will never generate and use nov databases for mail groups. diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 8cc91732b..ec17496ec 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -59,7 +59,7 @@ they will keep on jabbering all the time." (defvar nnheader-max-head-length 4096 "*Max length of the head of articles. -Value is an integer, nil, or t. Nil means read in chunks of a file +Value is an integer, nil, or t. nil means read in chunks of a file indefinitely until a complete head is found\; t means always read the entire file immediately, disregarding `nnheader-head-chop-length'. diff --git a/lisp/nnmail.el b/lisp/nnmail.el index a3554f3e2..8ced7d914 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -361,7 +361,7 @@ GROUP: Mail will be stored in GROUP (a string). \(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message field FIELD (a regexp) contains VALUE (a regexp), store the messages as specified by SPLIT. If RESTRICT (a regexp) matches some string - after FIELD and before the end of the matched VALUE, return NIL, + after FIELD and before the end of the matched VALUE, return nil, otherwise process SPLIT. Multiple RESTRICTs add up, further restricting the possibility of processing SPLIT.