[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Eli Zaretskii]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.409 emacs/lisp/mail/rmail.el:1.410
*** emacs/lisp/mail/rmail.el:1.409      Wed Aug 10 19:40:05 2005
--- emacs/lisp/mail/rmail.el    Fri Aug 12 10:26:59 2005
***************
*** 952,957 ****
--- 952,958 ----
    (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,1102 ****
  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]).
  \\[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.
--- 1097,1104 ----
  All normal editing commands are turned off.
  Instead, these commands are available:
  
! \\[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,2610 ****
  (defun rmail-beginning-of-message ()
    "Show current message starting from the beginning."
    (interactive)
!   (rmail-show-message rmail-current-message))
  
  (defun rmail-unknown-mail-followup-to ()
    "Handle a \"Mail-Followup-To\" header field with an unknown mailing list.
--- 2606,2624 ----
  (defun rmail-beginning-of-message ()
    "Show current message starting from the beginning."
    (interactive)
!   (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.