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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
