aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1994-03-30 02:24:05 +0000
committerKarl Heuer1994-03-30 02:24:05 +0000
commit9baf79c7953a53a8b233552e25eadf0919ebff2a (patch)
tree7d1d8ad0bf0281bb15a0fb756391d4a5a6e06f49
parent030ecb3c62ee0cc5fd4fec1f0d9663eed6b4b65f (diff)
downloademacs-9baf79c7953a53a8b233552e25eadf0919ebff2a.tar.gz
emacs-9baf79c7953a53a8b233552e25eadf0919ebff2a.zip
(rmail-sort-messages): Use buffer-disable-undo, not buffer-flush-undo.
-rw-r--r--lisp/mail/rmailsort.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index b2b79959cd2..4099c47590d 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -3,7 +3,7 @@
3;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. 3;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
4 4
5;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> 5;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
6;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.18 1994/03/23 21:49:16 kwzh Exp kwzh $ 6;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.19 1994/03/30 02:21:48 kwzh Exp kwzh $
7;; Keywords: mail 7;; Keywords: mail
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
@@ -154,7 +154,7 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
154 (msgnum 1) 154 (msgnum 1)
155 (msginfo nil)) 155 (msginfo nil))
156 ;; There's little hope that we can easily undo after that. 156 ;; There's little hope that we can easily undo after that.
157 (buffer-flush-undo (current-buffer)) 157 (buffer-disable-undo (current-buffer))
158 (goto-char (rmail-msgbeg 1)) 158 (goto-char (rmail-msgbeg 1))
159 ;; To force update of all markers. 159 ;; To force update of all markers.
160 (insert-before-markers ?Z) 160 (insert-before-markers ?Z)