diff options
| author | Karl Heuer | 1999-04-26 19:12:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-04-26 19:12:44 +0000 |
| commit | 805297bbc0263b06fd373a400b44488385d9e02c (patch) | |
| tree | 590849f22966de9420c7bc242c3a1979720ecae5 | |
| parent | 53ca46578b937174a94accd543f33c794d9e4949 (diff) | |
| download | emacs-805297bbc0263b06fd373a400b44488385d9e02c.tar.gz emacs-805297bbc0263b06fd373a400b44488385d9e02c.zip | |
(rmail-next-same-subject): When searching, ignore
the same whitespace that was ignored in choosing the subject string.
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 03cc374d6bb..56a4eb6b568 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -2504,9 +2504,9 @@ If N is negative, go backwards instead." | |||
| 2504 | (setq subject (substring subject (match-end 0)))) | 2504 | (setq subject (substring subject (match-end 0)))) |
| 2505 | (if (string-match "[ \t]+\\'" subject) | 2505 | (if (string-match "[ \t]+\\'" subject) |
| 2506 | (setq subject (substring subject 0 (match-beginning 0)))) | 2506 | (setq subject (substring subject 0 (match-beginning 0)))) |
| 2507 | (setq search-regexp (concat "^Subject: *\\(Re: *\\)?" | 2507 | (setq search-regexp (concat "^Subject: *\\(Re:[ \t]*\\)?" |
| 2508 | (regexp-quote subject) | 2508 | (regexp-quote subject) |
| 2509 | "\n")) | 2509 | "[ \t]*\n")) |
| 2510 | (save-excursion | 2510 | (save-excursion |
| 2511 | (save-restriction | 2511 | (save-restriction |
| 2512 | (widen) | 2512 | (widen) |