Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents e04119814345
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
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))))
466 460
467 (defun gnus-horizontal-recenter () 461 (defun gnus-horizontal-recenter ()
468 "Recenter the current buffer horizontally." 462 "Recenter the current buffer horizontally."
469 (if (< (current-column) (/ (window-width) 2)) 463 (if (< (current-column) (/ (window-width) 2))
470 (set-window-hscroll (get-buffer-window (current-buffer) t) 0) 464 (set-window-hscroll (get-buffer-window (current-buffer) t) 0)