Re: scanning for new mail with demon-handler

[Philipp Haselwarter <philipp.haselwarter@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 1090 bytes --]

On 2011-06-17 20:34 UT, lee  <lee@yun.yagibdah.de> wrote:

l> asjo@koldfront.dk (Adam Sjøgren) writes:

>> On Fri, 17 Jun 2011 21:05:06 +0200, lee wrote:
>> 
>>> Yes, it does more, that´s why I like gnus-demon-scan-mail :)
>>> Gnus-demon-scan-news also scans for new news, creating unneccessary
>>> network traffic and load on the news servers.
>> 
>> If you put your mail groups on a different level than your
>> newsgroups, maybe you can use a customized version of
>> gnus-demon-scan-news to do what you want.

l> Hm, I´ve read a post saying that you could set newsgroups to a higher
l> level for them not to be included when checking for new messages.I
l> tried that, found that it didn´t work and learned that the levels are
l> also used to distinguish between unsubscribed and zomie groups.So I
l> decided to better not play with group levels until I know better what
l> I´m doing.

l> Unfortunately, I don´t know yet how to make a customized function
l> like that ...There´s so much to learn when you start using gnus that
l> it´ll take a while.

I'd suggest something like


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1567 bytes --]

	Modified   lisp/gnus-demon.el
diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index 419346b..6146b53 100644
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -191,15 +191,34 @@ minutes, the connection is closed."
   "Add daemonic scanning of new articles from all backends."
   (gnus-demon-add-handler 'gnus-demon-scan-news 120 60))
 
-(defun gnus-demon-scan-news ()
+(defun gnus-demon-scan-news (&optional arg)
   (let ((win (current-window-configuration)))
     (unwind-protect
 	(save-window-excursion
 	  (when (gnus-alive-p)
 	    (with-current-buffer gnus-group-buffer
-	      (gnus-group-get-new-news))))
+	      (gnus-group-get-new-news arg))))
       (set-window-configuration win))))
 
+(fset 'gnus-demon-scan-news-1
+  (apply-partially 'gnus-demon-scan-news 1))
+(fset 'gnus-demon-scan-news-2
+  (apply-partially 'gnus-demon-scan-news 2))
+(fset 'gnus-demon-scan-news-3
+  (apply-partially 'gnus-demon-scan-news 3))
+(fset 'gnus-demon-scan-news-4
+  (apply-partially 'gnus-demon-scan-news 4))
+(fset 'gnus-demon-scan-news-5
+  (apply-partially 'gnus-demon-scan-news 5))
+(fset 'gnus-demon-scan-news-6
+  (apply-partially 'gnus-demon-scan-news 6))
+(fset 'gnus-demon-scan-news-7
+  (apply-partially 'gnus-demon-scan-news 7))
+(fset 'gnus-demon-scan-news-8
+  (apply-partially 'gnus-demon-scan-news 8))
+(fset 'gnus-demon-scan-news-9
+  (apply-partially 'gnus-demon-scan-news 9))
+
 (defun gnus-demon-add-scan-timestamps ()
   "Add daemonic updating of timestamps in empty newgroups."
   (gnus-demon-add-handler 'gnus-demon-scan-timestamps nil 30))

[-- Attachment #3: Type: text/plain, Size: 416 bytes --]


For example, I keep local mail on level 1, external mail on 3, nntp on 4
and nnrss on level 5 and fetch them accordingly:

#+begin_src emacs-lisp
  (gnus-demon-add-handler 'gnus-demon-scan-news-1 121 10)
  (gnus-demon-add-handler 'gnus-demon-scan-news-3 240 10)
  (gnus-demon-add-handler 'gnus-demon-scan-news-4 601 10)
  (gnus-demon-add-handler 'gnus-demon-scan-news-5 7201 10)
#+end_src


-- 
Philipp Haselwarter