comparison lisp/mail/rmail.el @ 67469:b845fff9455c

(rmail-next-same-subject): Handle multiple "Re: " strings and long subject lines that were broken into multiple lines at arbitrary places.

67468:4d92860b8e50

	(i rmail-current-message)
	(case-fold-search t)
	search-regexp found)
    (if (string-match "\\`[ \t]+" subject)
	(setq subject (substring subject (match-end 0))))
    (if (string-match "Re:[ \t]*" subject)
	(setq subject (substring subject (match-end 0))))
    (if (string-match "[ \t]+\\'" subject)
	(setq subject (substring subject 0 (match-beginning 0))))
    (setq search-regexp (concat "^Subject: *\\(Re:[ \t]*\\)?"
				(regexp-quote subject)
				"[ \t]*\n"))
    (save-excursion
      (save-restriction
	(widen)
	(while (and (/= n 0)
		    (if forward

67469:b845fff9455c

	(i rmail-current-message)
	(case-fold-search t)
	search-regexp found)
    (if (string-match "\\`[ \t]+" subject)
	(setq subject (substring subject (match-end 0))))
    (if (string-match "\\`\\(Re:[ \t]*\\)+" subject)
	(setq subject (substring subject (match-end 0))))
    (if (string-match "[ \t]+\\'" subject)
	(setq subject (substring subject 0 (match-beginning 0))))
    ;; If Subject is long, mailers will break it into several lines at
    ;; arbitrary places, so replace whitespace with a regexp that will
    ;; match any sequence of spaces, TABs, and newlines.
    (setq subject (regexp-quote subject))
    (setq subject
	  (replace-regexp-in-string "[ \t\n]+" "[ \t\n]+" subject t t))
    (setq search-regexp (concat "^Subject: *\\(Re:[ \t]*\\)*"
				subject "[ \t]*\n"))
    (save-excursion
      (save-restriction
	(widen)
	(while (and (/= n 0)
		    (if forward