Gnus development mailing list
 help / color / mirror / Atom feed
From: Mark Plaksin <happy@usg.edu>
Subject: Patch: Allow nnrss to be verbose
Date: Sat, 19 Feb 2005 13:23:12 -0500	[thread overview]
Message-ID: <m3y8dko1db.fsf@water.tss.usg.edu> (raw)

This patch adds nnrss-verbose.  When t, nnrss writes to the minibuffer when
it requests a feed.

Sometimes fetching an RSS feed takes too long and I want to interrupt it.
Without this patch, I can't tell which feed it's trying to fetch.  I also
can't tell that Gnus is trying to fetch an RSS feed--it just looks stuck
and I wonder what I'm interrupting when I hit C-g :)

--- nnrss.el	2005-01-30 08:16:34.000000000 -0500
+++ ../../gnus/lisp/nnrss.el	2005-02-19 13:17:00.000000000 -0500
@@ -66,6 +66,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'.")
@@ -145,6 +148,8 @@
   '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
@@ -154,7 +159,10 @@
     (nnheader-insert
      "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max
      (prin1-to-string group)
-     t)))
+     t))
+  (if nnrss-verbose
+      (message (concat "nnrss done with " group "."))
+    t))
 
 (deffoo nnrss-close-group (group &optional server)
   t)




             reply	other threads:[~2005-02-19 18:23 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2005-02-19 18:23 Mark Plaksin [this message]
2005-02-20  0:47 ` Katsumi Yamaoka
2005-02-20 10:42   ` Mark Plaksin
2005-02-20 11:43     ` Katsumi Yamaoka
2005-02-21 13:51 ` Arne Jørgensen
2005-02-21 14:34   ` Reiner Steib
2005-02-21 14:42     ` Arne Jørgensen
2005-02-21 14:54       ` Arne Jørgensen
2005-02-21 16:05         ` Reiner Steib
2005-02-21 22:52           ` Katsumi Yamaoka
2005-02-21 23:25             ` Katsumi Yamaoka
2005-03-02 16:48             ` Fixes for nnrss.el (and rfc2047.el) in the v5-10 branch (was: Patch: Allow nnrss to be verbose) Reiner Steib
2005-04-05  0:43               ` Fixes for nnrss.el (and rfc2047.el) in the v5-10 branch Katsumi Yamaoka
2005-04-06  8:37                 ` Katsumi Yamaoka

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m3y8dko1db.fsf@water.tss.usg.edu \
    --to=happy@usg.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).