[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cus.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/gnus-cus.el
diff -c emacs/lisp/gnus/gnus-cus.el:1.11 emacs/lisp/gnus/gnus-cus.el:1.12
*** emacs/lisp/gnus/gnus-cus.el:1.11    Mon May 30 08:20:18 2005
--- emacs/lisp/gnus/gnus-cus.el Thu Jun 16 14:46:53 2005
***************
*** 772,779 ****
  This can be changed using the `\\[gnus-score-change-score-file]' command."
    (interactive (list gnus-current-score-file))
    (unless file
!     (error (format "No score file for %s"
!                  (gnus-group-decoded-name gnus-newsgroup-name))))
    (let ((scores (gnus-score-load file))
        (types (mapcar (lambda (entry)
                         `(group :format "%v%h\n"
--- 772,779 ----
  This can be changed using the `\\[gnus-score-change-score-file]' command."
    (interactive (list gnus-current-score-file))
    (unless file
!     (error "No score file for %s"
!            (gnus-group-decoded-name gnus-newsgroup-name)))
    (let ((scores (gnus-score-load file))
        (types (mapcar (lambda (entry)
                         `(group :format "%v%h\n"
***************
*** 1014,1022 ****
        ;; gnus-agent-cat-prepare-category-field as I don't want the
        ;; group list to appear when customizing a topic.
        (widget-insert "\n")
!       
!       (let ((symb 
!              (set 
                (make-local-variable 'gnus-agent-cat-groups)
                (widget-create
                 `(choice
--- 1014,1022 ----
        ;; gnus-agent-cat-prepare-category-field as I don't want the
        ;; group list to appear when customizing a topic.
        (widget-insert "\n")
! 
!       (let ((symb
!              (set
                (make-local-variable 'gnus-agent-cat-groups)
                (widget-create
                 `(choice