From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Ehud Karni" Newsgroups: gmane.emacs.devel Subject: Suggestion: go to bottom of mail message Date: Wed, 19 Nov 2003 13:26:34 +0200 Organization: Mivtach-Simon Insurance agencies Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200311191126.hAJBQY6C008722@beta.mvs.co.il> Reply-To: ehud@unix.mvs.co.il NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-8-i Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1069241293 22955 80.91.224.253 (19 Nov 2003 11:28:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 19 Nov 2003 11:28:13 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Wed Nov 19 12:28:10 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AMQVG-0004NZ-00 for ; Wed, 19 Nov 2003 12:28:10 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1AMQVF-0004NY-00 for ; Wed, 19 Nov 2003 12:28:10 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AMRSJ-0005xg-VC for emacs-devel@quimby.gnus.org; Wed, 19 Nov 2003 07:29:11 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AMRS2-0005u4-5n for emacs-devel@gnu.org; Wed, 19 Nov 2003 07:28:54 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AMRRP-0005X6-NR for emacs-devel@gnu.org; Wed, 19 Nov 2003 07:28:46 -0500 Original-Received: from [192.114.178.12] (helo=unix.mvs.co.il) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AMRRN-0005Qz-Vr for emacs-devel@gnu.org; Wed, 19 Nov 2003 07:28:14 -0500 Original-Received: from beta.mvs.co.il (beta [10.253.0.3]) by unix.mvs.co.il (8.12.10/8.12.10) with ESMTP id hAJBQYqL028335 for ; Wed, 19 Nov 2003 13:26:35 +0200 Original-Received: from beta.mvs.co.il (localhost [127.0.0.1]) by beta.mvs.co.il (8.12.10/8.12.10) with ESMTP id hAJBQYQs008726 for ; Wed, 19 Nov 2003 13:26:34 +0200 Original-Received: (from root@localhost) by beta.mvs.co.il (8.12.10/8.12.10/Submit) id hAJBQY6C008722; Wed, 19 Nov 2003 13:26:34 +0200 Original-To: emacs-devel@gnu.org X-Mailer: Emacs 21.3.1 rmail (send-msg 1.108) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:17911 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:17911 -----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 * 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 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-----