diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-02-10 00:08:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-02-10 00:08:51 +0000 |
| commit | 1884e32542ed6d4aa6bcde0b4b49685355e83961 (patch) | |
| tree | 863dedf2c0106f8240d24a2cd120cbec9b2066c7 /lisp/mail/rmailsort.el | |
| parent | 5ff083afb4c48a45d091a70fd9d260d5456aa7f6 (diff) | |
| download | emacs-1884e32542ed6d4aa6bcde0b4b49685355e83961.tar.gz | |
(rmail-sort-messages): Preserve point
with respect to the the current message.
Diffstat (limited to 'lisp/mail/rmailsort.el')
| -rw-r--r-- | lisp/mail/rmailsort.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 4066890fea9..316e833a76d 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -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 @@ KEYWORDS is a comma-separated list of labels." "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 @@ If 1st argument REVERSE is non-nil, sort them in reverse order. (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))))))) |