6413 |
(gnus-summary-limit articles)) |
(gnus-summary-limit articles)) |
6414 |
(gnus-summary-position-point)))) |
(gnus-summary-position-point)))) |
6415 |
|
|
6416 |
(defun gnus-summary-limit-to-author (from) |
(defun gnus-summary-limit-to-author (from &optional not-matching) |
6417 |
"Limit the summary buffer to articles that have authors that match a regexp. |
"Limit the summary buffer to articles that have authors that match a regexp. |
6418 |
If NOT-MATCHING, excluding articles that have authors that match a regexp." |
If NOT-MATCHING, excluding articles that have authors that match a regexp." |
6419 |
(interactive |
(interactive |
6420 |
(list (read-string (if current-prefix-arg |
(list (read-string (if current-prefix-arg |
6421 |
"Exclude author (regexp): " |
"Exclude author (regexp): " |
6422 |
"Limit to author (regexp): ")) |
"Limit to author (regexp): ")) |
6423 |
nil current-prefix-arg)) |
current-prefix-arg)) |
6424 |
(gnus-summary-limit-to-subject from "from")) |
(gnus-summary-limit-to-subject from "from" not-matching)) |
6425 |
|
|
6426 |
(defun gnus-summary-limit-to-age (age &optional younger-p) |
(defun gnus-summary-limit-to-age (age &optional younger-p) |
6427 |
"Limit the summary buffer to articles that are older than (or equal) AGE days. |
"Limit the summary buffer to articles that are older than (or equal) AGE days. |