Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-picon.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 59463afc5666
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
340 (gnus-picons-prepare-for-annotations 'gnus-group-annotations) 340 (gnus-picons-prepare-for-annotations 'gnus-group-annotations)
341 (if (null gnus-picons-piconsearch-url) 341 (if (null gnus-picons-piconsearch-url)
342 (setq gnus-group-annotations 342 (setq gnus-group-annotations
343 (gnus-picons-display-pairs 343 (gnus-picons-display-pairs
344 (gnus-picons-lookup-pairs (reverse (message-tokenize-header 344 (gnus-picons-lookup-pairs (reverse (message-tokenize-header
345 gnus-newsgroup-name ".")) 345 (gnus-group-real-name gnus-newsgroup-name)
346 "."))
346 gnus-picons-news-directories) 347 gnus-picons-news-directories)
347 t ".")) 348 t "."))
348 (push (list 'gnus-group-annotations 'search nil 349 (push (list 'gnus-group-annotations 'search nil
349 (message-tokenize-header gnus-newsgroup-name ".") 350 (message-tokenize-header
351 (gnus-group-real-name gnus-newsgroup-name) ".")
350 (if (listp gnus-picons-news-directories) 352 (if (listp gnus-picons-news-directories)
351 gnus-picons-news-directories 353 gnus-picons-news-directories
352 (list gnus-picons-news-directories)) 354 (list gnus-picons-news-directories))
353 nil) 355 nil)
354 gnus-picons-jobs-alist) 356 gnus-picons-jobs-alist)