Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Mon Aug 13 08:54:52 2007 +0200
+++ b/lisp/gnus/gnus-util.el	Mon Aug 13 08:55:10 2007 +0200
@@ -458,6 +458,12 @@
     (let ((ids (inline (gnus-split-references references))))
       (car (last ids (or n 1))))))
 
+(defsubst gnus-buffer-live-p (buffer)
+  "Say whether BUFFER is alive or not."
+  (and buffer
+       (get-buffer buffer)
+       (buffer-name (get-buffer buffer))))
+
 (defun gnus-horizontal-recenter ()
   "Recenter the current buffer horizontally."
   (if (< (current-column) (/ (window-width) 2))