Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
456 If N, return the Nth ancestor instead." 456 If N, return the Nth ancestor instead."
457 (when references 457 (when references
458 (let ((ids (inline (gnus-split-references references)))) 458 (let ((ids (inline (gnus-split-references references))))
459 (car (last ids (or n 1)))))) 459 (car (last ids (or n 1))))))
460 460
461 (defun gnus-buffer-live-p (buffer) 461 (defsubst gnus-buffer-live-p (buffer)
462 "Say whether BUFFER is alive or not." 462 "Say whether BUFFER is alive or not."
463 (and buffer 463 (and buffer
464 (get-buffer buffer) 464 (get-buffer buffer)
465 (buffer-name (get-buffer buffer)))) 465 (buffer-name (get-buffer buffer))))
466 466