Mercurial > emacs
changeset 6490:8c6205143fb1
(rmail-sort-by-subject): Fix `Re:' regexp.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 21:49:16 +0000 |
| parents | 6c138b61c8b4 |
| children | 21d52b9fd783 |
| files | lisp/mail/rmailsort.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el Wed Mar 23 21:42:12 1994 +0000 +++ b/lisp/mail/rmailsort.el Wed Mar 23 21:49:16 1994 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; 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 @@ (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.