mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
message.  Added to `rmail-summary-mode-map' with key "/".
(rmail-summary-show-message): New (internal) function for use by both
`rmail-summary-beginning/end-of-message'.
(rmail-summary-beginning-of-message): Changed to use
rmail-summary-show-message.
This commit is contained in:
Eli Zaretskii 2005-08-12 10:28:48 +00:00
parent 3deac4a169
commit 234d828a06
2 changed files with 32 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/mail/rmailsum.el
View file

@ -898,6 +898,7 @@ Search, the `unseen' attribute is restored.")
(define-key rmail-summary-mode-map "x" 'rmail-summary-expunge)
(define-key rmail-summary-mode-map "w" 'rmail-summary-output-body)
(define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message)
(define-key rmail-summary-mode-map "/" 'rmail-summary-end-of-message)
(define-key rmail-summary-mode-map "<" 'rmail-summary-first-message)
(define-key rmail-summary-mode-map ">" 'rmail-summary-last-message)
(define-key rmail-summary-mode-map " " 'rmail-summary-scroll-msg-up)
@ -1185,6 +1186,16 @@ move to the previous message."
(defun rmail-summary-beginning-of-message ()
"Show current message from the beginning."
(interactive)
(rmail-summary-show-message 'BEG))
(defun rmail-summary-end-of-message ()
"Show bottom of current message."
(interactive)
(rmail-summary-show-message 'END))
(defun rmail-summary-show-message (where)
"Show current mail message.
Position it according to WHERE which can be BEG or END"
(if (and (one-window-p) (not pop-up-frames))
;; If there is just one window, put the summary on the top.
(let ((buffer rmail-view-buffer))
@ -1196,8 +1207,14 @@ move to the previous message."
(or (eq buffer (window-buffer (next-window (frame-first-window))))
(delete-other-windows)))
(pop-to-buffer rmail-view-buffer))
(with-no-warnings
(beginning-of-buffer))
(cond
((eq where 'BEG)
(goto-char (point-min))
(search-forward "\n\n"))
((eq where 'END)
(goto-char (point-max))
(recenter (1- (window-height))))
)
(pop-to-buffer rmail-summary-buffer))
(defun rmail-summary-bury ()