diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-30 02:21:48 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-30 02:21:48 +0000 |
| commit | 8d1f9702c4b6a9584a78327dfc11c348f1fe8bc4 (patch) | |
| tree | 3560e2c75f7467800f2d08c9b079fd0ce6a0552b | |
| parent | 231efee6df55c0eac76cf902cb97a0328a402159 (diff) | |
| download | emacs-8d1f9702c4b6a9584a78327dfc11c348f1fe8bc4.tar.gz | |
(rmail-sort-messages): Update summary buffer.
| -rw-r--r-- | lisp/mail/rmailsort.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 0d399d8288e..b2b79959cd2 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.17 1994/03/12 04:53:41 kwzh Exp kwzh $ +;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.18 1994/03/23 21:49:16 kwzh Exp kwzh $ ;; Keywords: mail ;; This file is part of GNU Emacs. @@ -178,7 +178,10 @@ If 1st argument REVERSE is non-nil, sort them in reverse order. (setq quit-flag nil) (buffer-enable-undo) (rmail-set-message-counters) - (rmail-show-message current-message))))) + (rmail-show-message current-message) + (if (rmail-summary-exists) + (rmail-select-summary + (rmail-update-summary))))))) (defun rmail-fetch-field (msg field) "Return the value of the header FIELD of MSG. |