2001-12-21 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / gnus-picon.el

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 856c5f3..db78d90 100644 (file)
--- 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.
 
 (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))))
   (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.
 
 (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)
 none, and whose CDR is the corresponding element of DOMAINS."
   (let (picons)
     (setq directories (if (listp directories)