# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1044568883 0
# Node ID 32bf542aaf1c937ffea5f1064175cd67830b0d0f
# Parent  63b470751ea7ac7425b24f9821c1c521e64540e2
(rmail-summary-previous-msg): Add docstring.
(rmail-summary-line-count-flag, rmail-summary-previous-labeled-message)
(rmail-summary-next-labeled-message, rmail-summary-resend)
(rmail-summary-override-mail-send-and-exit): Doc fixes.

diff -r 63b470751ea7 -r 32bf542aaf1c lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Thu Feb 06 21:45:20 2003 +0000
+++ b/lisp/mail/rmailsum.el	Thu Feb 06 22:01:23 2003 +0000
@@ -42,7 +42,7 @@
 
 ;;;###autoload
 (defcustom rmail-summary-line-count-flag t
-  "*Non-nil if Rmail summary should show the number of lines in each message."
+  "*Non-nil means Rmail summary should show the number of lines in each message."
   :type 'boolean
   :group 'rmail-summary)
 
@@ -513,15 +513,17 @@
 				      non-del-msg-found)))
       (setq count (1- count))))
   (beginning-of-line)
-  (display-buffer rmail-view-buffer)
-  )
+  (display-buffer rmail-view-buffer))
 
 (defun rmail-summary-previous-msg (&optional number)
+  "Display previous non-deleted msg from rmail file.
+With optional prefix argument NUMBER, moves backward this number of
+non-deleted messages."
   (interactive "p")
   (rmail-summary-next-msg (- (if number number 1))))
 
 (defun rmail-summary-next-labeled-message (n labels)
-  "Show next message with LABEL.  Defaults to last labels used.
+  "Show next message with LABELS.  Defaults to last labels used.
 With prefix argument N moves forward N messages with these labels."
   (interactive "p\nsMove to next msg with labels: ")
   (let (msg)
@@ -532,7 +534,7 @@
     (rmail-summary-goto-msg msg)))
 
 (defun rmail-summary-previous-labeled-message (n labels)
-  "Show previous message with LABEL.  Defaults to last labels used.
+  "Show previous message with LABELS.  Defaults to last labels used.
 With prefix argument N moves backward N messages with these labels."
   (interactive "p\nsMove to previous msg with labels: ")
   (let (msg)
@@ -1405,7 +1407,7 @@
 ;;;; *** Rmail Summary Mailing Commands ***
 
 (defun rmail-summary-override-mail-send-and-exit ()
-  "Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit"
+  "Replace bindings to `mail-send-and-exit' with `rmail-summary-send-and-exit'."
   (use-local-map (copy-keymap (current-local-map)))
   (dolist (key (where-is-internal 'mail-send-and-exit))
     (define-key (current-local-map) key 'rmail-summary-send-and-exit)))
@@ -1475,7 +1477,7 @@
     (rmail-summary-override-mail-send-and-exit)))
 
 (defun rmail-summary-resend ()
-  "Resend current message using 'rmail-resend'."
+  "Resend current message using `rmail-resend'."
   (interactive)
   (save-excursion
     (let ((window (get-buffer-window rmail-buffer)))