Mercurial > emacs
changeset 64928:555661181471
(rmail-end-of-message): New command to go to the
end of the current message. Added to `rmail-mode-map' with key "/".
(rmail-beginning-of-message): Fixed to work as documented.
(rmail-mode): Change documentation.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 12 Aug 2005 10:26:59 +0000 |
| parents | 43a3190bc8ba |
| children | 196e55109345 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 16 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Aug 12 10:18:02 2005 +0000 +++ b/lisp/mail/rmail.el Fri Aug 12 10:26:59 2005 +0000 @@ -952,6 +952,7 @@ (define-key rmail-mode-map "w" 'rmail-output-body-to-file) (define-key rmail-mode-map "x" 'rmail-expunge) (define-key rmail-mode-map "." 'rmail-beginning-of-message) + (define-key rmail-mode-map "/" 'rmail-end-of-message) (define-key rmail-mode-map "<" 'rmail-first-message) (define-key rmail-mode-map ">" 'rmail-last-message) (define-key rmail-mode-map " " 'scroll-up) @@ -1096,7 +1097,8 @@ All normal editing commands are turned off. Instead, these commands are available: -\\[rmail-beginning-of-message] Move point to front of this message (same as \\[beginning-of-buffer]). +\\[rmail-beginning-of-message] Move point to front of this message. +\\[rmail-end-of-message] Move point to bottom of this message. \\[scroll-up] Scroll to next screen of this message. \\[scroll-down] Scroll to previous screen of this message. \\[rmail-next-undeleted-message] Move to Next non-deleted message. @@ -2604,7 +2606,19 @@ (defun rmail-beginning-of-message () "Show current message starting from the beginning." (interactive) - (rmail-show-message rmail-current-message)) + (let ((rmail-show-message-hook + (list (function (lambda () + (goto-char (point-min))))))) + (rmail-show-message rmail-current-message))) + +(defun rmail-end-of-message () + "Show bottom of current message." + (interactive) + (let ((rmail-show-message-hook + (list (function (lambda () + (goto-char (point-max)) + (recenter (1- (window-height)))))))) + (rmail-show-message rmail-current-message))) (defun rmail-unknown-mail-followup-to () "Handle a \"Mail-Followup-To\" header field with an unknown mailing list.