diff options
-rw-r--r-- | lisp/mail/rmailsort.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 00b8dd2a2b..0d399d8288 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <[email protected]> -;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.16 1993/11/24 08:08:56 rms Exp kwzh $ +;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.17 1994/03/12 04:53:41 kwzh Exp kwzh $ ;; Keywords: mail ;; This file is part of GNU Emacs. @@ -50,8 +50,9 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (let ((key (or (rmail-fetch-field msg "Subject") "")) (case-fold-search t)) ;; Remove `Re:' - (if (string-match "^\\(re:[ \t]+\\)*" key) - (substring key (match-end 0)) key)))))) + (if (string-match "^\\(re:[ \t]*\\)*" key) + (substring key (match-end 0)) + key)))))) (defun rmail-sort-by-author (reverse) "Sort messages of current Rmail file by author. |