diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 15c5139185..b98df260be 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2001-11-28 ShengHuo ZHU <[email protected]> + + * gnus-sum.el (gnus-summary-limit-to-author): The number of arguments. + 2001-11-25 Stefan Monnier <[email protected]> * imap.el (imap-interactive-login, imap-open, imap-authenticate): diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 470c7a9aa8..86e7d31b71 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6413,15 +6413,15 @@ If NOT-MATCHING, excluding articles that have subjects that match a regexp." (gnus-summary-limit articles)) (gnus-summary-position-point)))) -(defun gnus-summary-limit-to-author (from) +(defun gnus-summary-limit-to-author (from &optional not-matching) "Limit the summary buffer to articles that have authors that match a regexp. If NOT-MATCHING, excluding articles that have authors that match a regexp." (interactive (list (read-string (if current-prefix-arg "Exclude author (regexp): " "Limit to author (regexp): ")) - nil current-prefix-arg)) - (gnus-summary-limit-to-subject from "from")) + current-prefix-arg)) + (gnus-summary-limit-to-subject from "from" not-matching)) (defun gnus-summary-limit-to-age (age &optional younger-p) "Limit the summary buffer to articles that are older than (or equal) AGE days. |