From: "Ehud Karni" <ehud@unix.mvs.co.il>
Cc: handa@m17n.org, emacs-devel@gnu.org, storm@cua.dk
Subject: Re: Suggestion: go to bottom of mail message
Date: Fri, 21 Nov 2003 09:17:11 +0200 [thread overview]
Message-ID: <200311210717.hAL7HBKi011648@beta.mvs.co.il> (raw)
In-Reply-To: <E1AN2bA-0006RN-EY@fencepost.gnu.org> (message from Richard Stallman on Thu, 20 Nov 2003 23:08:48 -0500)
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Thu, 20 Nov 2003 23:08:48 -0500, Richard Stallman <rms@gnu.org> wrote:
>
> (rmail-beginning-of-message): Changed to position point to the
> beginning of the BODY.
>
> I don't think I want that change.
Restored original behavior.
> (rmail-beginning-of-message): Changed to position point to the
> beginning of the BODY. (rmail-mode): change documentation.
>
> Be careful, this change log is not formatted right!
Fixed.
2003-11-21 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 the new
function.
* 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 a minor bug, disregard
positioning by `rmail-show-message-hook'.
(rmail-mode): `rmail-end-of-message' added to the documentation
diff -c /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el.\~1.131.\~ /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el
*** /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el.~1.131.~ Wed Nov 19 12:48:01 2003
- --- /lnx1/gnu/src/emacs/lisp/mail/rmailsum.el Fri Nov 21 08:51:50 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)
***************
*** 1180,1185 ****
- --- 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))
***************
*** 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 ()
- --- 1202,1214 ----
(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)))
! ((eq where 'END)
! (goto-char (point-max))
! (recenter (1- (window-height))))
! )
(pop-to-buffer rmail-summary-buffer))
(defun rmail-summary-bury ()
Diff finished at Fri Nov 21 09:08:03
diff -c /lnx1/gnu/src/emacs/lisp/mail/rmail.el.\~1.376.\~ /lnx1/gnu/src/emacs/lisp/mail/rmail.el
*** /lnx1/gnu/src/emacs/lisp/mail/rmail.el.~1.376.~ Wed Nov 19 12:48:00 2003
- --- /lnx1/gnu/src/emacs/lisp/mail/rmail.el Fri Nov 21 09:00:12 2003
***************
*** 848,853 ****
- --- 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)
***************
*** 993,998 ****
- --- 994,1000 ----
Instead, these commands are available:
\\[rmail-beginning-of-message] Move point to front of this message (same as \\[beginning-of-buffer]).
+ \\[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.
***************
*** 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.
- --- 2429,2449 ----
(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))))))))
! (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.
Diff finished at Fri Nov 21 09:09:12
- --
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/vbv1LFvTvpjqOY0RAt54AJ0TbeDMc5FL+gjlKEXXkdZNyl/1RwCdEEGj
0chb3qO2whhUDXJ4ZlZ1PBw=
=Yv96
-----END PGP SIGNATURE-----
next prev parent reply other threads:[~2003-11-21 7:17 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-11-19 11:26 Suggestion: go to bottom of mail message Ehud Karni
2003-11-19 11:55 ` Kenichi Handa
2003-11-19 14:19 ` Kim F. Storm
2003-11-19 15:18 ` Juri Linkov
2003-11-21 1:04 ` Kenichi Handa
2003-11-19 15:26 ` Ehud Karni
2003-11-19 16:10 ` Ehud Karni
2003-11-21 4:08 ` Richard Stallman
2003-11-21 7:17 ` Ehud Karni [this message]
2003-11-20 4:06 ` Richard Stallman
2003-11-20 8:04 ` Kenichi Handa
-- strict thread matches above, loose matches on Subject: below --
2005-08-06 10:48 Ehud Karni
2005-08-06 13:59 Ehud Karni
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200311210717.hAL7HBKi011648@beta.mvs.co.il \
--to=ehud@unix.mvs.co.il \
--cc=emacs-devel@gnu.org \
--cc=handa@m17n.org \
--cc=storm@cua.dk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).