From: Leo Liu <sdl.web@gmail.com>
Date: Thu, 16 Feb 2012 22:12:52 +0000 (+0000)
Subject: gnus-start.el (gnus-1): Avoid duplicate entries
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=6e248869f1a01abc237d45f2f853f6cef0bcb692

gnus-start.el (gnus-1): Avoid duplicate entries
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 742beea8a..70438d600 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-16  Leo Liu  <sdl.web@gmail.com>
+
+	* gnus-start.el (gnus-1): Avoid duplicate entries.
+
 2012-02-16  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* mm-decode.el (mm-dissect-singlepart): Guess what the type of
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))