Suggestion: go to bottom of mail message

[Ehud Karni]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I recently noticed that I frequently need to go to the end of a mail
message, so I wrote `rmail-summary-end-of-message' and assigned it
to ";" in `rmail-summary-mode-map'. In the process I noticed that
`rmail-summary-beginning-of-message' uses (beginning-of-buffer) so I
changed it to (goto-char (point-min)).

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-beginning-of-message) minor improvement.



cd /lnx1/gnu/src/emacs/lisp/mail/
diff -c /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el_org 
/lnx1/gnu/src/emacs/lisp/mail/rmailsum.el
*** /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el_org       Wed Nov 19 12:48:01 2003
- --- /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el Wed Nov 19 12:59:36 2003
***************
*** 890,895 ****
- --- 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)
***************
*** 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 ()
- --- 1192,1216 ----
        (or (eq buffer (window-buffer (next-window (frame-first-window))))
            (delete-other-windows)))
      (pop-to-buffer rmail-view-buffer))
!   (goto-char (point-min))
!   (pop-to-buffer rmail-summary-buffer))
!
! (defun rmail-summary-end-of-message ()
!   "Show bottom of current message."
!   (interactive)
!   (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))
!       (split-window (selected-window) rmail-summary-window-size)
!       (select-window (frame-first-window))
!       (pop-to-buffer rmail-view-buffer)
!       ;; If pop-to-buffer did not use that window, delete that
!       ;; window.  (This can happen if it uses another frame.)
!       (or (eq buffer (window-buffer (next-window (frame-first-window))))
!           (delete-other-windows)))
!     (pop-to-buffer rmail-view-buffer))
!   (goto-char (point-max))
!   (recenter (window-height))
    (pop-to-buffer rmail-summary-buffer))

  (defun rmail-summary-bury ()

Diff finished at Wed Nov 19 13:00:29


- --
 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
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQE/u1NoLFvTvpjqOY0RAvkuAKCDSRKPm8TtoNmRUVjG4aL/BRVi3wCePjc7
8MJQX1Hkwmlp8hCxdP44Cyo=
=e2hi
-----END PGP SIGNATURE-----