Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.123
diff -u -r6.123 gnus-sum.el
--- lisp/gnus-sum.el    2001/11/25 14:57:22     6.123
+++ lisp/gnus-sum.el    2001/11/28 16:06:22
@@ -6860,7 +6860,7 @@
          (gnus-summary-limit articles))
       (gnus-summary-position-point))))
 
-(defun gnus-summary-limit-to-author (from)
+(defun gnus-summary-limit-to-author (from &optional header 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 
@@ -6868,7 +6868,7 @@
                          "Exclude author (regexp): "
                        "Limit to author (regexp): ")) 
         nil current-prefix-arg))
-  (gnus-summary-limit-to-subject from "from"))
+  (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.