mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(rmail-sort-by-subject): Fix `Re:' regexp.

Browse Source
This commit is contained in:
Karl Heuer 1994-03-23 21:49:16 +00:00
parent a6b0031852
commit b0304aef81
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmailsort.el
View File

@ -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 @@ 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.