Mercurial > emacs

comparison lisp/mail/rmailsort.el @ 6315:f6a596a8a248

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-sort-by-lines): msgnum variable should be msg.
author Karl Heuer <kwzh@gnu.org>
date Sat, 12 Mar 1994 04:53:41 +0000
parents 484e65abfdea
children 8c6205143fb1
comparison
equal deleted inserted replaced
6314:9fd25ec7204b 6315:f6a596a8a248
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: /home/fsf/rms/e19/lisp/RCS/rmailsort.el,v 1.15 1993/06/22 05:55:41 rms Exp rms $ 6 ;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.16 1993/11/24 08:08:56 rms 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
104 If prefix argument REVERSE is non-nil, sort them in reverse order." 104 If prefix argument REVERSE is non-nil, sort them in reverse order."
105 (interactive "P") 105 (interactive "P")
106 (rmail-sort-messages reverse 106 (rmail-sort-messages reverse
107 (function 107 (function
108 (lambda (msg) 108 (lambda (msg)
109 (count-lines (rmail-msgbeg msgnum) 109 (count-lines (rmail-msgbeg msg)
110 (rmail-msgend msgnum)))))) 110 (rmail-msgend msg))))))
111 111
112 ;; Basic functions 112 ;; Basic functions
113 113
114 (defun rmail-sort-messages (reverse keyfun) 114 (defun rmail-sort-messages (reverse keyfun)
115 "Sort messages of current Rmail file. 115 "Sort messages of current Rmail file.