Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 08:49:43 2007 +0200
@@ -224,7 +224,7 @@
   (gnus-server-position-point))
 
 (defun gnus-server-server-name ()
-  (let ((server (get-text-property (point-at-bol) 'gnus-server)))
+  (let ((server (get-text-property (gnus-point-at-bol) 'gnus-server)))
     (and server (symbol-name server))))
 
 (defalias 'gnus-server-position-point 'gnus-goto-colon)
@@ -671,7 +671,7 @@
 (defun gnus-browse-group-name ()
   (save-excursion
     (beginning-of-line)
-    (when (re-search-forward ": \\(.*\\)$" (point-at-eol) t)
+    (when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t)
       (gnus-group-prefixed-name (match-string 1) gnus-browse-current-method))))
 
 (defun gnus-browse-unsubscribe-group ()