mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(rmail-end-of-message): New command to go to the

Browse Source 
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.
This commit is contained in:
Eli Zaretskii 2005-08-12 10:26:59 +00:00
parent a67e5425b3
commit 3deac4a169
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/mail/rmail.el
View File

@ -952,6 +952,7 @@ Note: it means the file has no messages in it.\n\^_")))
(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 @@ Note: it means the file has no messages in it.\n\^_")))
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 @@ change the invisible header text."
(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.