From 6c9372c7295e74afef0491452dca26700a4f36e4 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Mon, 9 Feb 2004 01:20:12 +0000 Subject: [PATCH] * imap.el (imap-parse-flag-list, imap-parse-body-extension) (imap-parse-body): Fix format string mismatch. * gnus-score.el (gnus-summary-increase-score): do. --- lisp/ChangeLog | 9 +++++++-- lisp/gnus-score.el | 2 +- lisp/imap.el | 10 +++++----- 3 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e3ac29f5..f22597950 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-02-09 Jesper Harder + * imap.el (imap-parse-flag-list, imap-parse-body-extension) + (imap-parse-body): Fix format string mismatch. + + * gnus-score.el (gnus-summary-increase-score): do. + * nnrss.el (nnrss-close): New function. 2004-02-08 Jesper Harder @@ -24,10 +29,10 @@ * message.el (message-generate-headers-first): Don't quote nil and t in docstrings. - * imap.el (imap-id): do. + * imap.el (imap-id): do. * gnus-agent.el (gnus-agent-consider-all-articles) - (gnus-agent-queue-mail): do. + (gnus-agent-queue-mail): do. 2004-02-05 Reiner Steib diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index dac4d0df8..b1280b62f 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -627,7 +627,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. diff --git a/lisp/imap.el b/lisp/imap.el index 7c1664a63..364da316b 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -2437,7 +2437,7 @@ Return nil if no complete line has arrived." (defun imap-parse-flag-list () (let (flag-list start) - (assert (eq (char-after) ?\() t "In imap-parse-flag-list") + (assert (eq (char-after) ?\() nil "In imap-parse-flag-list") (while (and (not (eq (char-after) ?\))) (setq start (progn (imap-forward) @@ -2446,7 +2446,7 @@ Return nil if no complete line has arrived." (point))) (> (skip-chars-forward "^ )" (point-at-eol)) 0)) (push (buffer-substring start (point)) flag-list)) - (assert (eq (char-after) ?\)) t "In imap-parse-flag-list") + (assert (eq (char-after) ?\)) nil "In imap-parse-flag-list") (imap-forward) (nreverse flag-list))) @@ -2531,7 +2531,7 @@ Return nil if no complete line has arrived." (while (eq (char-after) ?\ ) (imap-forward) (push (imap-parse-body-extension) b-e)) - (assert (eq (char-after) ?\)) t "In imap-parse-body-extension") + (assert (eq (char-after) ?\)) nil "In imap-parse-body-extension") (imap-forward) (nreverse b-e)) (or (imap-parse-number) @@ -2655,7 +2655,7 @@ Return nil if no complete line has arrived." (push (and (imap-parse-nil) nil) body)) (setq body (append (imap-parse-body-ext) body))) ;; body-ext-... - (assert (eq (char-after) ?\)) t "In imap-parse-body") + (assert (eq (char-after) ?\)) nil "In imap-parse-body") (imap-forward) (nreverse body)) @@ -2715,7 +2715,7 @@ Return nil if no complete line has arrived." (push (imap-parse-nstring) body) ;; body-fld-md5 (setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part.. - (assert (eq (char-after) ?\)) t "In imap-parse-body 2") + (assert (eq (char-after) ?\)) nil "In imap-parse-body 2") (imap-forward) (nreverse body))))) -- 2.34.1