From 6b348790202cea0a707afb1325ff79a4330f0e57 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 20 Feb 2005 11:43:55 +0000 Subject: [PATCH] Synch to No Gnus 200502201142. --- lisp/ChangeLog | 5 +++++ lisp/nnrss.el | 24 ++++++++++++++++-------- 2 files changed, 21 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9c9da2f..1a87387 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-02-19 Mark Plaksin (tiny change) + + * nnrss.el (nnrss-verbose): New variable. + (nnrss-request-group): Make it say nnrss is requesting a group. + 2005-02-19 Katsumi Yamaoka * gnus-msg.el (gnus-copy-article-buffer): Quote decoded words diff --git a/lisp/nnrss.el b/lisp/nnrss.el index f1c2150..7c87c2b 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -72,6 +72,9 @@ (defvar nnrss-use-local nil) +(defvar nnrss-verbose t + "Write messages when requesting group.") + (defvar nnrss-description-field 'X-Gnus-Description "Field name used for DESCRIPTION. To use the description in headers, put this name into `nnmail-extra-headers'.") @@ -151,16 +154,21 @@ ARTICLE is the article number of the current headline.") 'nov) (deffoo nnrss-request-group (group &optional server dont-check) + (if nnrss-verbose + (message (concat "nnrss requesting " group "..."))) (setq group (nnrss-decode-group-name group)) (nnrss-possibly-change-group group server) - (if dont-check - t - (nnrss-check-group group server) - (nnheader-report 'nnrss "Opened group %s" group) - (nnheader-insert - "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max - (prin1-to-string group) - t))) + (prog1 + (if dont-check + t + (nnrss-check-group group server) + (nnheader-report 'nnrss "Opened group %s" group) + (nnheader-insert + "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max + (prin1-to-string group) + t)) + (when nnrss-verbose + (message (concat "nnrss done with " group "."))))) (deffoo nnrss-close-group (group &optional server) t) -- 1.7.10.4