# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764994245 0
# Node ID ec24b7ded9bc52441caa447a3a1a99dd2f690bc7
# Parent  363f38b4648a1ee5f776ed1638b5d81688dfad46
(rmail-sort-messages): Use buffer-disable-undo, not buffer-flush-undo.

diff -r 363f38b4648a -r ec24b7ded9bc lisp/mail/rmailsort.el
--- a/lisp/mail/rmailsort.el	Wed Mar 30 02:21:48 1994 +0000
+++ b/lisp/mail/rmailsort.el	Wed Mar 30 02:24:05 1994 +0000
@@ -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.18 1994/03/23 21:49:16 kwzh Exp kwzh $
+;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.19 1994/03/30 02:21:48 kwzh Exp kwzh $
 ;; Keywords: mail
 
 ;; This file is part of GNU Emacs.
@@ -154,7 +154,7 @@
 	    (msgnum 1)
 	    (msginfo nil))
 	;; There's little hope that we can easily undo after that.
-	(buffer-flush-undo (current-buffer))
+	(buffer-disable-undo (current-buffer))
 	(goto-char (rmail-msgbeg 1))
 	;; To force update of all markers.
 	(insert-before-markers ?Z)