Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-picon.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents cca96a509cfe
children 585fb297b004
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
368 nil nil nil rightp) 368 nil nil nil rightp)
369 picons)) 369 picons))
370 picons))) 370 picons)))
371 (when domainp 371 (when domainp
372 (setq picons 372 (setq picons
373 (nconc (list (make-annotation 373 (nconc
374 (if first (concat (if (not rightp) ".") cur 374 (list (make-annotation
375 (if rightp ".")) cur) 375 (if first (concat (if (not rightp) ".") cur
376 (point) 'text nil nil nil rightp)) 376 (if rightp ".")) cur)
377 picons)))) 377 (point) 'text nil nil nil rightp))
378 picons))))
378 (when (and bar (or domainp found)) 379 (when (and bar (or domainp found))
379 (setq bar-ann (gnus-picons-try-to-find-face 380 (setq bar-ann (gnus-picons-try-to-find-face
380 (concat gnus-xmas-glyph-directory "bar.xbm") 381 (concat gnus-xmas-glyph-directory "bar.xbm")
381 nil nil t)) 382 nil nil t))
382 (when bar-ann 383 (when bar-ann
383 (setq picons (nconc picons bar-ann)) 384 (setq picons (nconc picons bar-ann))
384 (setq bar nil))) 385 (setq bar nil)))
385 (setq first t)) 386 (setq first t))
386 (when (and addrs domainp) 387 (when (and addrs domainp)
387 (let ((it (mapconcat 'downcase (nreverse addrs) "."))) 388 (let ((it (mapconcat 'downcase (nreverse addrs) ".")))
388 (make-annotation 389 (setq picons
389 (if first (concat (if (not rightp) ".") it (if rightp ".")) it) 390 (nconc picons (list (make-annotation
390 (point) 'text nil nil nil rightp))) 391 (if first
392 (concat (if (not rightp) ".")
393 it (if rightp "."))
394 it)
395 (point) 'text
396 nil nil nil rightp))))))
391 picons)) 397 picons))
392 398
393 (defvar gnus-picons-glyph-alist nil) 399 (defvar gnus-picons-glyph-alist nil)
394 400
395 (defun gnus-picons-try-to-find-face (path &optional xface-p part rightp) 401 (defun gnus-picons-try-to-find-face (path &optional xface-p part rightp)