mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-sort-messages): Give up right away if not Rmail mode.

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-18 19:10:56 +00:00
parent a2a05344be
commit d0c9169e2b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/rmailsort.el
View file

@ -116,6 +116,8 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
"Sort messages of current Rmail file.
1st argument REVERSE is non-nil, sort them in reverse order.
2nd argument KEYFUNC is called with message number, and should return a key."
(or (eq major-mode 'rmail-mode)
(error "Current buffer not in Rmail mode"))
(let ((buffer-read-only nil)
(sort-lists nil))
(message "Finding sort keys...")