2005-08-12 Ehud Karni <ehud@unix.mvs.co.il>
+ * mail/rmailsum.el (rmail-summary-end-of-message): New command
+ to go to the bottom of the mail 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.
+
+ * mail/rmail.el (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.
+
* progmodes/compile.el (compilation-start): Add the line
"Compilation started" with compilation start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.
(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)
(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))
(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 ()