From ef6e0ec76c1ccfb9e9e0a2494c0d717c62af8368 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 28 Nov 2001 16:34:15 +0000 Subject: 2001-11-28 ShengHuo ZHU * gnus-sum.el (gnus-summary-limit-to-author): The number of arguments. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-sum.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) (limited to 'lisp') 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 + + * gnus-sum.el (gnus-summary-limit-to-author): The number of arguments. + 2001-11-25 Stefan Monnier * 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. -- cgit v1.2.3