Mercurial > emacs

comparison lisp/gnus/gnus-soup.el @ 85712:a3c27999decb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
author Miles Bader <miles@gnu.org>
date Sun, 28 Oct 2007 09:18:39 +0000
parents 24202b793a08
children 107ccd98fa12 880960b70474
comparison
equal deleted inserted replaced
85711:b6f5dc84b2e1 85712:a3c27999decb
304 (defun gnus-soup-group-brew (group &optional not-all) 304 (defun gnus-soup-group-brew (group &optional not-all)
305 "Enter GROUP and add all articles to a SOUP package. 305 "Enter GROUP and add all articles to a SOUP package.
306 If NOT-ALL, don't pack ticked articles." 306 If NOT-ALL, don't pack ticked articles."
307 (let ((gnus-expert-user t) 307 (let ((gnus-expert-user t)
308 (gnus-large-newsgroup nil) 308 (gnus-large-newsgroup nil)
309 (entry (gnus-gethash group gnus-newsrc-hashtb))) 309 (entry (gnus-group-entry group)))
310 (when (or (null entry) 310 (when (or (null entry)
311 (eq (car entry) t) 311 (eq (car entry) t)
312 (and (car entry) 312 (and (car entry)
313 (> (car entry) 0)) 313 (> (car entry) 0))
314 (and (not not-all) 314 (and (not not-all)