Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
455 "Return the last Message-ID in REFERENCES. 455 "Return the last Message-ID in REFERENCES.
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
461 (defsubst gnus-buffer-live-p (buffer)
462 "Say whether BUFFER is alive or not."
463 (and buffer
464 (get-buffer buffer)
465 (buffer-name (get-buffer buffer))))
460 466
461 (defun gnus-horizontal-recenter () 467 (defun gnus-horizontal-recenter ()
462 "Recenter the current buffer horizontally." 468 "Recenter the current buffer horizontally."
463 (if (< (current-column) (/ (window-width) 2)) 469 (if (< (current-column) (/ (window-width) 2))
464 (set-window-hscroll (get-buffer-window (current-buffer) t) 0) 470 (set-window-hscroll (get-buffer-window (current-buffer) t) 0)