diff options
| author | Karl Heuer | 1994-03-30 02:24:05 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-30 02:24:05 +0000 |
| commit | 9baf79c7953a53a8b233552e25eadf0919ebff2a (patch) | |
| tree | 7d1d8ad0bf0281bb15a0fb756391d4a5a6e06f49 | |
| parent | 030ecb3c62ee0cc5fd4fec1f0d9663eed6b4b65f (diff) | |
| download | emacs-9baf79c7953a53a8b233552e25eadf0919ebff2a.tar.gz emacs-9baf79c7953a53a8b233552e25eadf0919ebff2a.zip | |
(rmail-sort-messages): Use buffer-disable-undo, not buffer-flush-undo.
| -rw-r--r-- | lisp/mail/rmailsort.el | 4 |
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) |