From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 28 Nov 2001 16:34:15 +0000 (+0000)
Subject: 2001-11-28  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Tag: ttn-vms-21-2-B4~18072
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef6e0ec76c1ccfb9e9e0a2494c0d717c62af8368;p=emacs.git

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

	* gnus-sum.el (gnus-summary-limit-to-author): The number of arguments.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 15c51391858..b98df260be4 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-28  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-sum.el (gnus-summary-limit-to-author): The number of arguments.
+
 2001-11-25  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* imap.el (imap-interactive-login, imap-open, imap-authenticate):
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 470c7a9aa88..86e7d31b713 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.