diff options
| author | Leo Liu <sdl.web@gmail.com> | 2012-02-16 22:33:58 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2012-02-16 22:33:58 +0800 |
| commit | 74db95ca362801386ca2ecd4cc9fc0d30a6d6b8f (patch) | |
| tree | eb770f6350977318c318a547e62b4d239e84cc46 /lisp/gnus | |
| parent | d1354af0f367540d23b83d58e002b41302ad295e (diff) | |
| download | emacs-74db95ca362801386ca2ecd4cc9fc0d30a6d6b8f.tar.gz | |
Use add-to-list instead of push in gnus-1
to avoid duplicate entries.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9ac21e5a33e..61f6ff9a3d3 100644 --- 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 9b1d5681e6c..bb7dd76d590 100644 --- 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)) |