Mercurial > emacs

comparison lisp/mail/rmailsort.el @ 6583:363f38b4648a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-sort-messages): Update summary buffer.
author Karl Heuer <kwzh@gnu.org>
date Wed, 30 Mar 1994 02:21:48 +0000
parents 8c6205143fb1
children ec24b7ded9bc
comparison
equal deleted inserted replaced
6582:bac8e17d51b3 6583:363f38b4648a
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.17 1994/03/12 04:53:41 kwzh Exp kwzh $ 6 ;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.18 1994/03/23 21:49:16 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
176 ;; Delete the garbage inserted before. 176 ;; Delete the garbage inserted before.
177 (delete-char 1) 177 (delete-char 1)
178 (setq quit-flag nil) 178 (setq quit-flag nil)
179 (buffer-enable-undo) 179 (buffer-enable-undo)
180 (rmail-set-message-counters) 180 (rmail-set-message-counters)
181 (rmail-show-message current-message))))) 181 (rmail-show-message current-message)
182 (if (rmail-summary-exists)
183 (rmail-select-summary
184 (rmail-update-summary)))))))
182 185
183 (defun rmail-fetch-field (msg field) 186 (defun rmail-fetch-field (msg field)
184 "Return the value of the header FIELD of MSG. 187 "Return the value of the header FIELD of MSG.
185 Arguments are MSG and FIELD." 188 Arguments are MSG and FIELD."
186 (save-restriction 189 (save-restriction