From 66ca5b2fb92d94fa127d8d8700c3c02b99c2fd6f Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sun, 2 Sep 2001 09:50:40 +0000 Subject: [PATCH] 2001-09-02 Simon Josefsson Suggested by Dan Christensen * nnfolder.el (nnfolder-request-update-info): Fix message. * nnml.el (nnml-request-update-info): Ditto. --- lisp/ChangeLog | 7 +++++++ lisp/nnfolder.el | 3 ++- lisp/nnml.el | 3 ++- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85a0ed161..c3108c841 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-09-02 Simon Josefsson + Suggested by Dan Christensen + + * nnfolder.el (nnfolder-request-update-info): Fix message. + + * nnml.el (nnml-request-update-info): Ditto. + 2001-09-01 Simon Josefsson * nnml.el (nnml-request-expire-articles): Also bind diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 286377604..9a30f30ea 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -1187,7 +1187,8 @@ This command does not work if you use short group names." (if (and (integerp (car seen)) (null (cdr seen))) (list (cons (car seen) (car seen))) - seen)))) + seen))) + (nnheader-message 8 "Updating marks for %s...done" group)) info) (defun nnfolder-group-marks-pathname (group) diff --git a/lisp/nnml.el b/lisp/nnml.el index 97e32ac71..97fab81d7 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -953,7 +953,8 @@ Use the nov database for that directory if available." (if (and (integerp (car seen)) (null (cdr seen))) (list (cons (car seen) (car seen))) - seen)))) + seen))) + (nnheader-message 8 "Updating marks for %s...done" group)) info) (defun nnml-save-marks (group server) -- 2.25.1