Mercurial > emacs

comparison lisp/mail/rmailsort.el @ 6584:ec24b7ded9bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.