projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200402090253.
[elisp/gnus.git-]
/
lisp
/
gnus-score.el
diff --git
a/lisp/gnus-score.el
b/lisp/gnus-score.el
index
6a337ab
..
e656b32
100644
(file)
--- 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)
(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.
(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-mode-map>\\[gnus-score-edit-exit] to save edits"))))
4 (substitute-command-keys
"\\<gnus-score-mode-map>\\[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)
"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."
(defun gnus-score-edit-file (file)
"Edit a score file."