From 689421a9696767055deef191a6e8da493bce8561 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Thu, 6 Feb 2003 22:02:35 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 7 +++++++ lisp/mail/rmailsum.el | 16 +++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ba002010aea..172c806fba9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-02-06 John Paul Wallington + + * mail/rmailsum.el (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. + 2003-02-06 Francesco Potort,Al(B * language/european.el ("Italian"): New. diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 6431180845f..8e55901f3c0 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -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 @@ messages, or backward if NUMBER is negative." 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 @@ With prefix argument N moves forward N messages with these labels." (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 @@ Completion is performed over known labels when reading." ;;;; *** 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 @@ see the documentation of `rmail-resend'." (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))) -- 2.39.2