Mercurial > emacs
comparison lisp/mail/rmailsort.el @ 6584:ec24b7ded9bc
(rmail-sort-messages): Use buffer-disable-undo, not buffer-flush-undo.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 30 Mar 1994 02:24:05 +0000 |
parents | 363f38b4648a |
children | c13953896b24 |
comparison
equal
deleted
inserted
replaced
6583:363f38b4648a | 6584:ec24b7ded9bc |
---|---|
1 ;;; rmailsort.el --- Rmail: sort messages. | 1 ;;; rmailsort.el --- Rmail: sort messages. |
2 | 2 |
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. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
152 (let ((inhibit-quit t) ;Inhibit quit | 152 (let ((inhibit-quit t) ;Inhibit quit |
153 (current-message nil) | 153 (current-message nil) |
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) |
161 (backward-char 1) | 161 (backward-char 1) |
162 ;; Now reorder messages. | 162 ;; Now reorder messages. |