2001-11-28 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-summary-limit-to-author): Missing arguments.
	  Thanks to david.goldberg6@verizon.net (David S. Goldberg)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5dfe707..2ad7d81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-28 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-limit-to-author): Missing arguments.
+         Thanks to david.goldberg6@verizon.net (David S. Goldberg)
+
 2001-11-27 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-topic.el (gnus-topic-mode): Add LOCAL for add-hook.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index dab60c6..1f9a181 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6860,15 +6860,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.