Re: Suggestion: go to bottom of mail message

[Ehud Karni]

My last post had a possible bug. Here is the fixed patch.
I also turned off the GPG signing because it distorts the patches.

Ehud.


2003-11-19  Ehud Karni  <address@hidden>

        * 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 the new
        function and put the point at the beginning of the message BODY.

        * 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): Changed to position point to the
        beginning of the BODY. (rmail-mode): change documentation.


diff -c /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el 
/lnx1/gnu/src/emacs/lisp/mail/rmailsum.el.\~1.131.\~
*** /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el   Wed Nov 19 15:03:15 2003
--- /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el.~1.131.~  Wed Nov 19 12:48:01 2003
***************
*** 890,896 ****
    (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)
--- 890,895 ----
***************
*** 1181,1196 ****
  (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))
--- 1180,1185 ----
***************
*** 1202,1215 ****
        (or (eq buffer (window-buffer (next-window (frame-first-window))))
            (delete-other-windows)))
      (pop-to-buffer rmail-view-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 ()
--- 1191,1197 ----
        (or (eq buffer (window-buffer (next-window (frame-first-window))))
            (delete-other-windows)))
      (pop-to-buffer rmail-view-buffer))
!   (beginning-of-buffer)
    (pop-to-buffer rmail-summary-buffer))

  (defun rmail-summary-bury ()

Diff finished at Wed Nov 19 18:07:29


diff -c /lnx1/gnu/src/emacs/lisp/mail/rmail.el 
/lnx1/gnu/src/emacs/lisp/mail/rmail.el.\~1.376.\~
*** /lnx1/gnu/src/emacs/lisp/mail/rmail.el      Wed Nov 19 18:01:13 2003
--- /lnx1/gnu/src/emacs/lisp/mail/rmail.el.~1.376.~     Wed Nov 19 12:48:00 2003
***************
*** 848,854 ****
    (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)
--- 848,853 ----
***************
*** 993,1000 ****
  All normal editing commands are turned off.
  Instead, these commands are available:

! \\[rmail-beginning-of-message]        Move point to front of this message 
body.
! \\[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.
--- 992,998 ----
  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.
***************
*** 2429,2450 ****
  (defun rmail-beginning-of-message ()
    "Show current message starting from the beginning."
    (interactive)
!   (let ((rmail-show-message-hook
!        (append rmail-show-message-hook
!              (list (function (lambda ()
!                                (goto-char (point-min))
!                                (search-forward "\n\n")))))))
!     (rmail-show-message rmail-current-message)))
!
! (defun rmail-end-of-message ()
!   "Show bottom of current message."
!   (interactive)
!   (let ((rmail-show-message-hook
!        (append rmail-show-message-hook
!              (list (function (lambda ()
!                                (goto-char (point-max))
!                                (recenter (1- (window-height)))))))))
!   (rmail-show-message rmail-current-message)))

  (defun rmail-show-message (&optional n no-summary)
    "Show message number N (prefix argument), counting from start of file.
--- 2427,2433 ----
  (defun rmail-beginning-of-message ()
    "Show current message starting from the beginning."
    (interactive)
!   (rmail-show-message rmail-current-message))

  (defun rmail-show-message (&optional n no-summary)
    "Show message number N (prefix argument), counting from start of file.

Diff finished at Wed Nov 19 18:01:44


--
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry