Nil/NIL vs. nil patch

Nil/NIL vs. nil patch

[Pavel Janík]

[-- Attachment #1: Type: text/plain, Size: 205 bytes --]

Hi,

please consider applying appended cleaning patch.
-- 
Pavel Janík

Looks like a vbs virus to me.  Thankfully, we all run linux here...sucker.
                  -- Bob McElrath in lkml about VBS virus

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus.diff --]
[-- Type: text/x-patch, Size: 9373 bytes --]

Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 6.928
diff -u -r6.928 ChangeLog
--- lisp/ChangeLog	2001/12/20 20:40:32	6.928
+++ lisp/ChangeLog	2001/12/21 08:37:20
@@ -1106,7 +1106,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  <larsi@gnus.org>
+2001-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-group.el (gnus-group-sort-by-server): Use it.
 
Index: lisp/gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.124
diff -u -r6.124 gnus-art.el
--- lisp/gnus-art.el	2001/12/19 05:52:11	6.124
+++ lisp/gnus-art.el	2001/12/21 08:37:23
@@ -2173,7 +2173,7 @@
 
 (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
Index: lisp/gnus-picon.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-picon.el,v
retrieving revision 6.1
diff -u -r6.1 gnus-picon.el
--- lisp/gnus-picon.el	2000/12/31 15:28:35	6.1
+++ lisp/gnus-picon.el	2001/12/21 08:37:24
@@ -351,7 +351,7 @@
 
 (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 @@
 
 (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)
Index: lisp/gnus-sieve.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sieve.el,v
retrieving revision 6.4
diff -u -r6.4 gnus-sieve.el
--- lisp/gnus-sieve.el	2001/12/12 20:32:41	6.4
+++ lisp/gnus-sieve.el	2001/12/21 08:37:24
@@ -116,7 +116,7 @@
 
 (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")))))
 
Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.131
diff -u -r6.131 gnus-sum.el
--- lisp/gnus-sum.el	2001/12/16 18:10:48	6.131
+++ lisp/gnus-sum.el	2001/12/21 08:37:30
@@ -6422,7 +6422,7 @@
   (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)
Index: lisp/gnus-xmas.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-xmas.el,v
retrieving revision 6.11
diff -u -r6.11 gnus-xmas.el
--- lisp/gnus-xmas.el	2001/09/28 11:22:41	6.11
+++ lisp/gnus-xmas.el	2001/12/21 08:37:33
@@ -661,7 +661,7 @@
 			(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
Index: lisp/imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 6.24
diff -u -r6.24 imap.el
--- lisp/imap.el	2001/12/12 20:32:41	6.24
+++ lisp/imap.el	2001/12/21 08:37:35
@@ -1836,21 +1836,21 @@
 ;;
 ;;   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 @@
 	(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)
Index: lisp/mailcap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mailcap.el,v
retrieving revision 6.7
diff -u -r6.7 mailcap.el
--- lisp/mailcap.el	2001/07/26 22:35:42	6.7
+++ lisp/mailcap.el	2001/12/21 08:37:35
@@ -282,7 +282,7 @@
 
 (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)
Index: lisp/mm-util.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mm-util.el,v
retrieving revision 6.34
diff -u -r6.34 mm-util.el
--- lisp/mm-util.el	2001/11/25 20:57:52	6.34
+++ lisp/mm-util.el	2001/12/21 08:37:36
@@ -491,7 +491,7 @@
 
 (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...
Index: lisp/nnfolder.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnfolder.el,v
retrieving revision 6.31
diff -u -r6.31 nnfolder.el
--- lisp/nnfolder.el	2001/12/12 20:32:41	6.31
+++ lisp/nnfolder.el	2001/12/21 08:37:36
@@ -116,7 +116,7 @@
 (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.
Index: lisp/nnheader.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnheader.el,v
retrieving revision 6.15
diff -u -r6.15 nnheader.el
--- lisp/nnheader.el	2001/11/28 17:06:12	6.15
+++ lisp/nnheader.el	2001/12/21 08:37:37
@@ -59,7 +59,7 @@
 (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'.
 
Index: lisp/nnmail.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnmail.el,v
retrieving revision 6.28
diff -u -r6.28 nnmail.el
--- lisp/nnmail.el	2001/12/09 00:33:13	6.28
+++ lisp/nnmail.el	2001/12/21 08:37:38
@@ -361,7 +361,7 @@
 \(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.
 

Re: Nil/NIL vs. nil patch

[ShengHuo ZHU]

Pavel@Janik.cz (Pavel Janík) writes:

> please consider applying appended cleaning patch.

Done. 

ShengHuo