gnus-cache-request-article.
* gnus-group.el (gnus-group-make-kiboze-group): Fix prompt.
(nnkiboze-generate-groups): List groups.
* gnus-group.el (gnus-group-make-kiboze-group): Use
nnkiboze-score-file.
(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 <dbely@mail.ru>
2000-07-16 Dmitry Bely <dbely@mail.ru>
"Match on header: " headers nil t))))
(setq regexps nil)
(while (not (equal "" (setq regexp (read-string
"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))
header)))))
(push (list regexp nil nil 'r) regexps))
(push (cons header regexps) scores))
;; article fetching by message-id at all.
(nntp-request-article article newsgroup gnus-nntp-server buffer)
(let* ((header (gnus-summary-article-header article))
;; 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"))
(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)))
(deffoo nnkiboze-request-scan (&optional group server)
(nnkiboze-generate-group (concat "nnkiboze:" group)))