Re: rmail -- C-M-s not working

[Glenn Morris]

"Alfred M. Szmidt" wrote:

> rmail-summary-by-regexp doesn't work, no match is found no matter what
> one tries.

This should fix it:


*** rmailsum.el 23 Jan 2009 19:20:01 -0000      1.156
--- rmailsum.el 27 Jan 2009 00:37:04 -0000
***************
*** 113,119 ****
                          recipients primary-only))
  
  (defun rmail-message-recipients-p-1 (recipients &optional primary-only)
!   (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
    (or (string-match recipients (or (mail-fetch-field "To") ""))
        (string-match recipients (or (mail-fetch-field "From") ""))
        (if (not primary-only)
--- 113,119 ----
                          recipients primary-only))
  
  (defun rmail-message-recipients-p-1 (recipients &optional primary-only)
!   (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point)))
    (or (string-match recipients (or (mail-fetch-field "To") ""))
        (string-match recipients (or (mail-fetch-field "From") ""))
        (if (not primary-only)
***************
*** 140,146 ****
    (rmail-apply-in-message msg 'rmail-message-regexp-p-1 msg regexp))
  
  (defun rmail-message-regexp-p-1 (msg regexp)
!   (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
    (if rmail-enable-mime
        (funcall rmail-search-mime-header-function msg regexp (point))
      (re-search-forward regexp nil t)))
--- 140,146 ----
    (rmail-apply-in-message msg 'rmail-message-regexp-p-1 msg regexp))
  
  (defun rmail-message-regexp-p-1 (msg regexp)
!   (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point)))
    (if rmail-enable-mime
        (funcall rmail-search-mime-header-function msg regexp (point))
      (re-search-forward regexp nil t)))