summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e6c35a2)
* 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\e,Bm\e(Bk <Pavel@Janik.cz>
12 files changed:
+2001-12-21 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * 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\e,Bm\e(Bk <Pavel@Janik.cz>
+
2001-12-20 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* nnmaildir.el: Copyright changes. Require cl only at compile time.
2001-12-20 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* nnmaildir.el: Copyright changes. Require cl only at compile time.
* message.el (message-setup-1): Really add text property to all of
the header, not just part of it.
* 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.
* gnus-group.el (gnus-group-sort-by-server): Use it.
(defun gnus-article-check-hidden-text (type arg)
"Return nil if hiding is necessary.
(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
means show, 0 means toggle."
(save-excursion
(save-restriction
(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))))
(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)
(defun gnus-sieve-guess-rule-for-article ()
"Guess a sieve rule based on RFC822 article in buffer.
(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")))))
(when (message-fetch-field "sender")
`(sieve address "sender" ,(regexp-quote (message-fetch-field "sender")))))
(unless (eq major-mode 'gnus-summary-mode)
(set-buffer gnus-summary-buffer))
(let ((article (or article (gnus-summary-article-number)))
(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)
gnus-summary-display-article-function)
(and (not pseudo)
(gnus-summary-article-pseudo-p article)
(cons (current-buffer) bar)))))
(defun gnus-xmas-mail-strip-quoted-names (address)
(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
XEmacs compatibility workaround."
(if (null address)
nil
;;
;; addr-adl = nstring
;; ; Holds route from [RFC-822] route-addr if
;;
;; addr-adl = nstring
;; ; Holds route from [RFC-822] route-addr if
;;
;; addr-host = nstring
;;
;; addr-host = nstring
-;; ; NIL indicates [RFC-822] group syntax.
+;; ; nil indicates [RFC-822] group syntax.
;; ; Otherwise, holds [RFC-822] domain name
;;
;; addr-mailbox = nstring
;; ; 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
;; ; [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
;;
;; ; mailbox after removing [RFC-822] quoting
;;
(push (imap-parse-nstring) body) ;; body-fld-desc
(imap-forward)
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
(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)
;; as the standard says.
(push (or (imap-parse-nstring) "7BIT") body) ;; body-fld-enc
(imap-forward)
(defcustom mailcap-download-directory nil
"*Directory to which `mailcap-save-binary-file' downloads files by default.
(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)
:type '(choice (const :tag "Home directory" nil)
directory)
:group 'mailcap)
(defun mm-find-mime-charset-region (b e &optional hack-charsets)
"Return the MIME charsets needed to encode the region between B and E.
(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...
charset, and a longer list means no appropriate charset."
(let (charsets)
;; The return possibilities of this function are a mess...
(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.
(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.
(defvoo nnfolder-nov-is-evil nil
"If non-nil, Gnus will never generate and use nov databases for mail groups.
(defvar nnheader-max-head-length 4096
"*Max length of the head of articles.
(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'.
indefinitely until a complete head is found\; t means always read the
entire file immediately, disregarding `nnheader-head-chop-length'.
\(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
\(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.
otherwise process SPLIT. Multiple RESTRICTs add up, further
restricting the possibility of processing SPLIT.