2001-02-09 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-cus.el (gnus-score-customize): Error on no score file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cfd7a3..e7dc396 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-09 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-cus.el (gnus-score-customize): Error on no score file.
+
 2001-02-09 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-decode.el (mm-merge-handles): New function.

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 444ff9a..5916bae 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -684,6 +684,9 @@ eh?")))
 (defun gnus-score-customize (file)
   "Customize score file FILE."
   (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"