Mercurial > emacs
changeset 88183:4016b676ab1e
Removed some mbox-ready comments.
| author | Alex Schroeder <alex@gnu.org> |
|---|---|
| date | Tue, 17 Jan 2006 09:33:35 +0000 |
| parents | 68fb0731dff0 |
| children | c727bbb95be3 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 0 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Jan 17 06:32:32 2006 +0000 +++ b/lisp/mail/rmail.el Tue Jan 17 09:33:35 2006 +0000 @@ -2446,7 +2446,6 @@ (search-forward "\n\n" end) ; error if we don't find it (narrow-to-region start (point))))) -;;; mbox: ready (defun rmail-message-recipients-p (msg recipients &optional primary-only) (save-restriction (or (string-match recipients (or (mail-fetch-field "To") "")) @@ -2454,7 +2453,6 @@ (if (not primary-only) (string-match recipients (or (mail-fetch-field "Cc") "")))))) -;;; mbox: ready (defun rmail-message-regexp-p (msg regexp) "Return t, if for message number MSG, regexp REGEXP matches in the header." (save-excursion @@ -2462,7 +2460,6 @@ (rmail-narrow-to-header msg) (re-search-forward regexp nil t)))) -;;; mbox: ready (defun rmail-search-message (msg regexp) "Return non-nil, if for message number MSG, regexp REGEXP matches." (goto-char (rmail-desc-get-start msg)) @@ -2470,7 +2467,6 @@ (funcall rmail-search-mime-message-function msg regexp) (re-search-forward regexp (rmail-desc-get-end msg) t))) -;;; mbox: ready (defvar rmail-search-last-regexp nil) (defun rmail-search (regexp &optional n) "Show message containing next match for REGEXP (but not the current msg).