It works!

Sorry, but no explanations right now -- I'll better have some sleep...

Anyway, the picture is nice, isn't it? :)

* * *

Update: the description of above screenshot.

(defadvice jabber-process-subscription-request (around jabber-ignore-12111
                                                       (jc from presence-status)
                                                       activate)
  "Process an incoming subscription request, ignoring the 12111 ICQ user.

icq.com:
  As part of the process of upgrading ICQ users to our newest, most
  advanced version, ICQ6, we have added a new user name to your
  contact list ''ICQ System''. The newly added user is intended to
  improve ICQ's line of communication with our users and assure you
  continue to enjoy talking to everybody, everywhere.
jabber.el:
  Go subscribe yourself."
  (unless (string-match "^12111@icq\\." from) ad-do-it))

Вы знаете, я теперь с нетерпением жду очередного бреда из корпоративной спам-рассылки.

Как только он приходит, викинги поют веселую песенку из оригинального монти пайтоновского скетча. Достигается добавлением в ~/.gnus.el следующих строчек:

(defun split-with-osd (split)
  (osd "Mail")
  split)

(defun split-with-vikings (split)
  (start-process "vikings" nil "play" "-q" "/home/vvv/downloads/spam-song.wav")
  split)

(setq nnmail-split-methods 'nnmail-split-fancy
      nnmail-split-fancy
      '(| (from "\\(recruitment\\|fooincbreak\\)@fooinc.com.ua"
                (: split-with-vikings "mail.spam"))
          (to "broadcast@fooinc.com.ua" (: split-with-vikings "mail.spam"))
          (from "servicedesk@fooinc.com.ua" (: split-with-osd "mail.sdesk"))
          (: split-with-osd "mail.misc")))

Ссылки:

• песенка викингов (текст + .wav файл)
• функция `osd'