diff lisp/gnus/nnoo.el @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 15872534500d
line wrap: on
line diff
--- a/lisp/gnus/nnoo.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/gnus/nnoo.el	Mon Aug 13 09:19:45 2007 +0200
@@ -207,7 +207,7 @@
 	(pop defs))
       (nconc bstate (list (cons current state))))))
 
-(defun nnoo-current-server-p (backend server)
+(defsubst nnoo-current-server-p (backend server)
   (equal (nnoo-current-server backend) server))
 
 (defun nnoo-current-server (backend)