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

1992-10-18 19:10:56 +00:00
parent a2a05344be
commit d0c9169e2b
1 changed files with 2 additions and 0 deletions
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -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...")