From feea75cc577e8d1390958703b48274df7bc4106d Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 21 Sep 2000 21:16:35 +0000 Subject: [PATCH] * nnkiboze.el (nnkiboze-request-article): Use gnus-cache-request-article. * gnus-group.el (gnus-group-make-kiboze-group): Fix prompt. --- lisp/ChangeLog | 4 ++++ lisp/gnus-group.el | 2 +- lisp/nnkiboze.el | 11 +++++++---- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9dc8db7c0..65856f1ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,10 @@ (nnkiboze-generate-groups): List groups. * gnus-group.el (gnus-group-make-kiboze-group): Use nnkiboze-score-file. + + * nnkiboze.el (nnkiboze-request-article): Use + gnus-cache-request-article. + * gnus-group.el (gnus-group-make-kiboze-group): Fix prompt. 2000-07-16 Dmitry Bely diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 84ca7426d..7f973fd88 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2331,7 +2331,7 @@ score file entries for articles to include in the group." "Match on header: " headers nil t)))) (setq regexps nil) (while (not (equal "" (setq regexp (read-string - (format "Match on %s (string): " + (format "Match on %s (regexp): " header))))) (push (list regexp nil nil 'r) regexps)) (push (cons header regexps) scores)) diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el index fb826da25..d961f84ad 100644 --- a/lisp/nnkiboze.el +++ b/lisp/nnkiboze.el @@ -98,14 +98,17 @@ ;; article fetching by message-id at all. (nntp-request-article article newsgroup gnus-nntp-server buffer) (let* ((header (gnus-summary-article-header article)) - (xref (mail-header-xref header))) + (xref (mail-header-xref header)) + num group) (unless xref (error "nnkiboze: No xref")) (unless (string-match " \\([^ ]+\\):\\([0-9]+\\)" xref) (error "nnkiboze: Malformed xref")) - (gnus-request-article (string-to-int (match-string 2 xref)) - (match-string 1 xref) - buffer)))) + (setq num (string-to-int (match-string 2 xref)) + group (match-string 1 xref)) + (or (with-current-buffer buffer + (gnus-cache-request-article num group)) + (gnus-request-article num group buffer))))) (deffoo nnkiboze-request-scan (&optional group server) (nnkiboze-generate-group (concat "nnkiboze:" group))) -- 2.34.1