# HG changeset patch # User Karl Heuer <kwzh@gnu.org> # Date 764459356 0 # Node ID 8c6205143fb1d059fcefd5d7cc71d448265de639 # Parent 6c138b61c8b46e13bdf9939e1774206f9578d705 (rmail-sort-by-subject): Fix `Re:' regexp. diff -r 6c138b61c8b4 -r 8c6205143fb1 lisp/mail/rmailsort.el --- 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.