Doc fixes.

4 files changed, 18 insertions, 18 deletions

diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index a10751b10cf..8cf12b82262 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -513,7 +513,7 @@ styles."
 
 (defun Footnote-text-under-cursor ()
   "Return the number of footnote if in footnote text.
-Nil is returned if the cursor is not positioned over the text of
+Return nil if the cursor is not positioned over the text of
 a footnote."
   (when (and (let ((old-point (point)))
 	       (save-excursion
@@ -536,7 +536,7 @@ a footnote."
 
 (defun Footnote-under-cursor ()
   "Return the number of the footnote underneath the cursor.
-Nil is returned if the cursor is not over a footnote."
+Return nil if the cursor is not over a footnote."
   (or (get-text-property (point) 'footnote-number)
       (Footnote-text-under-cursor)))
 
diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el
index 817cfeb0003..bc6556cc31b 100644
--- a/lisp/mail/mh-comp.el
+++ b/lisp/mail/mh-comp.el
@@ -1,5 +1,5 @@
 ;;; mh-comp.el --- mh-e functions for composing messages
-;; Time-stamp: <2001-07-15 09:36:30 pavel>
+;; Time-stamp: <2001-12-20 18:55:07 pavel>
 
 ;; Copyright (C) 1993,1995,1997,2000  Free Software Foundation, Inc.
 
@@ -30,7 +30,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-comp.el,v 1.21 2001/02/08 00:01:35 fx Exp $
+;; $Id: mh-comp.el,v 1.22 2001/07/15 19:53:53 pj Exp $
 
 ;;; Code:
 
@@ -540,7 +540,7 @@ See also documentation for `\\[mh-send]' function."
 (defun mh-read-draft (use initial-contents delete-contents-file)
   ;; Read draft file into a draft buffer and make that buffer the current one.
   ;; USE is a message used for prompting about the intended use of the message.
-  ;; INITIAL-CONTENTS is filename that is read into an empty buffer, or NIL
+  ;; INITIAL-CONTENTS is filename that is read into an empty buffer, or nil
   ;; if buffer should not be modified.  Delete the initial-contents file if
   ;; DELETE-CONTENTS-FILE flag is set.
   ;; Returns the draft folder's name.
@@ -651,7 +651,7 @@ See also documentation for `\\[mh-send]' function."
 (defun mh-goto-header-field (field)
   ;; Move to FIELD in the message header.
   ;; Move to the end of the FIELD name, which should end in a colon.
-  ;; Returns T if found, NIL if not.
+  ;; Returns t if found, nil if not.
   (goto-char (point-min))
   (let ((case-fold-search t)
 	(headers-end (save-excursion
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el
index 0925798f483..386a9acf996 100644
--- a/lisp/mail/mh-e.el
+++ b/lisp/mail/mh-e.el
@@ -60,7 +60,7 @@
 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;; Modified by Stephen Gildea 1988.  gildea@stop.mail-abuse.org
-(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.28 2001/07/15 19:53:53 pj Exp $")
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.30 2001/09/23 17:38:22 eliz Exp $")
 
 ;;; Code:
 
@@ -203,7 +203,7 @@ A directory name string, or nil to use current directory."
 
 (defvar mh-partial-folder-mode-line-annotation "select"
   "Annotation when displaying part of a folder.
-The string is displayed after the folder's name.  NIL for no annotation.")
+The string is displayed after the folder's name.  nil for no annotation.")
 
 
 ;;; Internal variables:
@@ -779,8 +779,8 @@ Variables controlling mh-e operation are (defaults in parentheses):
 
  `mhl-formfile' (nil)
     Name of format file to be used by mhl to show messages.
-    A value of T means use the default format file.
-    Nil means don't use mhl to format messages.
+    A value of t means use the default format file.
+    nil means don't use mhl to format messages.
 
  `mh-lpr-command-format' (\"lpr -p -J '%s'\")
     Format for command used to print a message on a system printer.
@@ -1080,7 +1080,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
 
 (defun mh-update-unseen ()
   ;; Flush updates to the Unseen sequence out to MH.
-  ;; Return non-NIL iff set the MH folder.
+  ;; Return non-nil iff set the MH folder.
   (if mh-seen-list
       (let* ((unseen-seq (mh-find-seq mh-unseen-seq))
 	     (unseen-msgs (mh-seq-msgs unseen-seq)))
@@ -1211,7 +1211,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
 
 
 (defun mh-internal-seq (name)
-  ;; Return non-NIL if NAME is the name of an internal mh-e sequence.
+  ;; Return non-nil if NAME is the name of an internal mh-e sequence.
   (or (memq name '(answered cur deleted forwarded printed))
       (eq name mh-unseen-seq)
       (eq name mh-previous-seq)
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index be0f52ee36f..9e079656c40 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -116,8 +116,8 @@ The desired message's number will be an argument to format.")
 
 (defcustom mhl-formfile nil
   "*Name of format file to be used by mhl to show and print messages.
-A value of T means use the default format file.
-Nil means don't use mhl to format messages when showing; mhl is still used,
+A value of t means use the default format file.
+nil means don't use mhl to format messages when showing; mhl is still used,
 with the default format file, to format messages when printing them.
 The format used should specify a non-zero value for overflowoffset so
 the message continues to conform to RFC 822 and mh-e can parse the headers."
@@ -133,7 +133,7 @@ prompting the user for a folder.  The function is called from within a
 save-excursion, with point at the start of the message.  It should
 return the folder to offer as the refile or Fcc folder, as a string
 with a leading `+' sign.  It can also return an empty string to use no
-default, or NIL to calculate the default the usual way.
+default, or nil to calculate the default the usual way.
 NOTE: This variable is not an ordinary hook;
 It may not be a list of functions.")
 
@@ -162,7 +162,7 @@ First argument is folder name.  Second is message number.")
 ;; Cached value of the `Path:' component in the user's MH profile.
 (defvar mh-user-path nil)		;User's mail folder directory.
 
-;; An mh-draft-folder of NIL means do not use a draft folder.
+;; An mh-draft-folder of nil means do not use a draft folder.
 ;; Cached value of the `Draft-Folder:' component in the user's MH profile.
 (defvar mh-draft-folder nil)		;Name of folder containing draft messages.
 
@@ -529,7 +529,7 @@ Non-nil third argument means not to show the message."
 
 (defun mh-get-profile-field (field)
   ;; Find and return the value of FIELD in the current buffer.
-  ;; Returns NIL if the field is not in the buffer.
+  ;; Returns nil if the field is not in the buffer.
   (let ((case-fold-search t))
     (goto-char (point-min))
     (cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
@@ -848,7 +848,7 @@ directory names."
 
 
 (defun mh-folder-name-p (name)
-  ;; Return non-NIL if NAME is possibly the name of a folder.
+  ;; Return non-nil if NAME is possibly the name of a folder.
   ;; A name (a string or symbol) can be a folder name if it begins with "+".
   (if (symbolp name)
       (eq (aref (symbol-name name) 0) ?+)