(Info-directory-list): If path-separator isn't available, bind it here.

[bpt/emacs.git] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 847665d..f9e1f73 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -5317,7 +5317,7 @@ Timezone package is used."
                        (progn (search-forward "\n\n" nil 'move) (point)))
       (mail-fetch-field field))))
 
-(fset 'gnus-expunge 'gnus-summary-delete-marked-with)
+(defalias 'gnus-expunge 'gnus-summary-delete-marked-with)
 
 (defun gnus-kill (field regexp &optional command all)
   "If FIELD of an article matches REGEXP, execute COMMAND.
@@ -7047,7 +7047,7 @@ If optional 2nd argument NEXT is non-nil, inserted before it."
   (insert ";; GNUS internal format of .newsrc.\n")
   (insert ";; Touch .newsrc instead if you think to remove this file.\n")
   (let ((variable nil)
-       (variables (cons 'gnus-newsgroups-alist gnus-variable-list))
+       (variables gnus-variable-list)
        ;; Temporary rebind to make changes
        ;; gnus-check-killed-newsgroups in invisible.
        (gnus-killed-assoc gnus-killed-assoc)