Use add-to-list instead of push in gnus-1

to avoid duplicate entries.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9ac21e5a33e98d441d27d41efe2a1eb1235a9140..61f6ff9a3d3ba8e099141c26c20806f909d25c3e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-16  Leo Liu  <sdl.web@gmail.com>
+
+       * gnus-start.el (gnus-1): Avoid duplicate entries.
+
 2012-02-15  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-remove-trailing-whitespace): Really delete the padding on

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 9b1d5681e6ce9ed4f3156cd4b200ecea469c7315..bb7dd76d590ad039baa43a0554d5638a8eab6af9 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/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))