X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-score.el;h=e656b322b7a333c2f6a5565ad8d71580bf6ada2b;hb=29afe7091b059510d5d606316720f175695055c8;hp=6a337ab0198e95358ec21e4cc145b5deba8a2d26;hpb=ffa582faa6501cc6df658db6268ce9791b98f003;p=elisp%2Fgnus.git- diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 6a337ab..e656b32 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -661,7 +661,7 @@ file for the command instead of the current score file." (gnus-score-insert-help "Match permanence" char-to-perm 2))) (gnus-score-kill-help-buffer) - (if mimic (message "%c %c %c" prefix hchar tchar pchar) + (if mimic (message "%c %c %c %c" prefix hchar tchar pchar) (message "")) (unless (setq temporary (cadr (assq pchar char-to-perm))) ;; Deal with der(r)ided superannuated paradigms. @@ -1122,10 +1122,11 @@ EXTRA is the possible non-standard header." 4 (substitute-command-keys "\\\\[gnus-score-edit-exit] to save edits")))) -(defun gnus-score-edit-all-score (file) +(defun gnus-score-edit-all-score () "Edit the all.SCORE file." (interactive) - (find-file (gnus-score-file-name "all"))) + (find-file (gnus-score-file-name "all")) + (gnus-score-mode)) (defun gnus-score-edit-file (file) "Edit a score file."