/[emacs]/emacs/lisp/gnus/gnus-cus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by miles, Mon May 30 08:20:18 2005 UTC revision 1.12 by lektu, Thu Jun 16 14:46:53 2005 UTC
# Line 772  When called interactively, FILE defaults Line 772  When called interactively, FILE defaults
772  This can be changed using the `\\[gnus-score-change-score-file]' command."  This can be changed using the `\\[gnus-score-change-score-file]' command."
773    (interactive (list gnus-current-score-file))    (interactive (list gnus-current-score-file))
774    (unless file    (unless file
775      (error (format "No score file for %s"      (error "No score file for %s"
776                     (gnus-group-decoded-name gnus-newsgroup-name))))             (gnus-group-decoded-name gnus-newsgroup-name)))
777    (let ((scores (gnus-score-load file))    (let ((scores (gnus-score-load file))
778          (types (mapcar (lambda (entry)          (types (mapcar (lambda (entry)
779                           `(group :format "%v%h\n"                           `(group :format "%v%h\n"
# Line 1014  articles in the thread. Line 1014  articles in the thread.
1014        ;; gnus-agent-cat-prepare-category-field as I don't want the        ;; gnus-agent-cat-prepare-category-field as I don't want the
1015        ;; group list to appear when customizing a topic.        ;; group list to appear when customizing a topic.
1016        (widget-insert "\n")        (widget-insert "\n")
1017          
1018        (let ((symb        (let ((symb
1019               (set               (set
1020                (make-local-variable 'gnus-agent-cat-groups)                (make-local-variable 'gnus-agent-cat-groups)
1021                (widget-create                (widget-create
1022                 `(choice                 `(choice

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26