Mercurial > emacs

diff lisp/gnus/gnus.el @ 57243:c5e16264557d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-575 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-34 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-35 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-36 Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 27 Sep 2004 07:44:44 +0000
parents 497f0d2ca551
children b73fb1c2fd4c
line wrap: on
line diff
--- a/lisp/gnus/gnus.el	Mon Sep 27 04:29:08 2004 +0000
+++ b/lisp/gnus/gnus.el	Mon Sep 27 07:44:44 2004 +0000
@@ -1104,9 +1104,8 @@
       (and (file-readable-p gnus-nntpserver-file)
 	   (with-temp-buffer
 	     (insert-file-contents gnus-nntpserver-file)
-	     (let ((name (buffer-string)))
-	       (unless (string-match "\\`[ \t\n]*$" name)
-		 name))))))
+	     (when (re-search-forward "[^ \t\n\r]+" nil t)
+	       (match-string 0))))))
 
 (defcustom gnus-select-method
   (condition-case nil