* Nil/NIL vs. nil patch
@ 2001-12-21 8:32 Pavel Janík
2001-12-21 13:43 ` ShengHuo ZHU
0 siblings, 1 reply; 2+ messages in thread
From: Pavel Janík @ 2001-12-21 8:32 UTC (permalink / raw)
[-- 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.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2001-12-21 13:43 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-12-21 8:32 Nil/NIL vs. nil patch Pavel Janík
2001-12-21 13:43 ` ShengHuo ZHU
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).