Mercurial > emacs
changeset 16988:18b8f50567b2
(rmail-sort-messages): Preserve point
with respect to the the current message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Feb 1997 00:08:51 +0000 |
| parents | 433d9754cdd5 |
| children | 4e31b0ff76a9 |
| files | lisp/mail/rmailsort.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el Sun Feb 09 23:02:19 1997 +0000 +++ b/lisp/mail/rmailsort.el Mon Feb 10 00:08:51 1997 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/rmailsort.el,v 1.24 1996/01/20 07:41:37 kwzh Exp rms $ +;; Maintainer: FSF ;; Keywords: mail ;; This file is part of GNU Emacs. @@ -154,11 +154,12 @@ "Sort messages of current Rmail file. If 1st argument REVERSE is non-nil, sort them in reverse order. 2nd argument KEYFUN is called with a message number, and should return a key." - (save-excursion + (save-current-buffer ;; If we are in a summary buffer, operate on the Rmail buffer. (if (eq major-mode 'rmail-summary-mode) (set-buffer rmail-buffer)) (let ((buffer-read-only nil) + (point-offset (- (point) (point-min))) (predicate nil) ;< or string-lessp (sort-lists nil)) (message "Finding sort keys...") @@ -217,6 +218,7 @@ (buffer-enable-undo) (rmail-set-message-counters) (rmail-show-message current-message) + (goto-char (+ point-offset (point-min))) (if (rmail-summary-exists) (rmail-select-summary (rmail-update-summary)))))))