Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 41630:b24292e7f5ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2001-11-28 ShengHuo ZHU <zsh@cs.rochester.edu> * gnus-sum.el (gnus-summary-limit-to-author): The number of arguments.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Wed, 28 Nov 2001 16:34:15 +0000
parents 933ab100fb4a
children b4833df45a4c
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Wed Nov 28 13:08:40 2001 +0000
+++ b/lisp/gnus/gnus-sum.el	Wed Nov 28 16:34:15 2001 +0000
@@ -6413,15 +6413,15 @@
 	  (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.