diff options
author | ShengHuo ZHU <[email protected]> | 2001-11-28 16:34:15 +0000 |
---|---|---|
committer | ShengHuo ZHU <[email protected]> | 2001-11-28 16:34:15 +0000 |
commit | ef6e0ec76c1ccfb9e9e0a2494c0d717c62af8368 (patch) | |
tree | 552e831f17e58b5a138673759c22fc2e413e77c1 /lisp | |
parent | bca3a805d5579581e24112b2ad58cd82a7fdc3a7 (diff) |
2001-11-28 ShengHuo ZHU <[email protected]>
* gnus-sum.el (gnus-summary-limit-to-author): The number of arguments.
Diffstat (limited to 'lisp')
-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. |