Commit d0c9169e authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent a2a05344
......@@ -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...")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment