X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=c4603b5897d48ab2018f637c407bbc8d45ca4421;hp=428c213c4e2625a077cd6d9f9f676193bd0b04b3;hb=6e248869f1a01abc237d45f2f853f6cef0bcb692;hpb=4d23aeda8e05857c6f22e4672b998b769ffe4f77

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 428c213c4..c4603b589 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -763,8 +763,8 @@ prompt the user for the name of an NNTP server to use."
     ;; Add "native" to gnus-predefined-server-alist just to have a
     ;; name for the native select method.
     (when gnus-select-method
-      (push (cons "native" gnus-select-method)
-	    gnus-predefined-server-alist))
+      (add-to-list 'gnus-predefined-server-alist
+		   (cons "native" gnus-select-method)))
 
     (if gnus-agent
 	(gnus-agentize))