[Emacs-diffs] /srv/bzr/emacs/trunk r107305: Use add-to-list instead of push in gnus-1

[Leo Liu]

------------------------------------------------------------
revno: 107305
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Thu 2012-02-16 22:33:58 +0800
message:
  Use add-to-list instead of push in gnus-1
  
  to avoid duplicate entries.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-start.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-02-15 09:36:28 +0000
+++ b/lisp/gnus/ChangeLog       2012-02-16 14:33:58 +0000
@@ -1,3 +1,7 @@
+2012-02-16  Leo Liu  <address@hidden>
+
+       * gnus-start.el (gnus-1): Avoid duplicate entries.
+
 2012-02-15  Lars Ingebrigtsen  <address@hidden>
 
        * shr.el (shr-remove-trailing-whitespace): Really delete the padding on

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2012-01-27 14:32:25 +0000
+++ b/lisp/gnus/gnus-start.el   2012-02-16 14:33:58 +0000
@@ -763,8 +763,8 @@
     ;; 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))