[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el |
Date: |
Fri, 12 Aug 2005 06:28:03 -0400 |
Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.136 emacs/lisp/mail/rmailsum.el:1.137
*** emacs/lisp/mail/rmailsum.el:1.136 Sat Aug 6 18:54:05 2005
--- emacs/lisp/mail/rmailsum.el Fri Aug 12 10:28:02 2005
***************
*** 898,903 ****
--- 898,904 ----
(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)
***************
*** 1185,1190 ****
--- 1186,1201 ----
(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))
***************
*** 1196,1203 ****
(or (eq buffer (window-buffer (next-window (frame-first-window))))
(delete-other-windows)))
(pop-to-buffer rmail-view-buffer))
! (with-no-warnings
! (beginning-of-buffer))
(pop-to-buffer rmail-summary-buffer))
(defun rmail-summary-bury ()
--- 1207,1220 ----
(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 ()