>>>> "VS" == Valery Shishkov writes:
VS> Subject: Дополнительные заголовки в Gnus'е для некоторых групп
VS> Шалом, аксакалы!
VS> Никак не могу сообразить, как встремить в ~/.gnus кусок кода для
VS> такой ситуации: у меня на локальном ньюс-сервере есть иерархия
VS> ftn.*, которую я сам гейтую из FIDO (но разговор не о ней) и
VS> несколько групп иерархии fido7.*, которые я беру с ньюс-сервера
VS> провайдера -- вот о них разговор. Как известно, для постинга в
VS> fido7.* надо указывать ключевое слово. Я предпочитаю это делать
VS> через 'Keywords:', но руками встремлять надоело, а как заставить
VS> Gnus делать это _ТОЛЬКО_ для fido7.* -- не соображу. :( У
VS> кого-нибудь схожая ситуация есть? Кто как выкручивается?
Есть такая удобная штука, как header-action.el. Берется, IIRC, отсюда:
<
http://www.coling.uni-freiburg.de/~schauer/emacs.html>.
Мои сеттинги выглядят где-то так:
(require 'header-action)
(add-hook 'message-send-hook 'header-action)
(setq header-action-list
'(
("Newsgroups:"
("fido7\\..*"
(lambda ()
(save-excursion
(mail-position-on-field "Keywords")
(insert "твой пароль"))
(require 'supercite)
(let ((whofrom (sc-whofrom)))
(if whofrom
(save-excursion
(mail-position-on-field "X-Comment-To")
(insert (cdr (assoc "sc-author" sc-mail-info))))))
)))))
--
With respect, Vasily Korytov
PGP key fingerprint: A4FE 4665 A720 687F 4ECC 1474 7C16 C498 BAAB C999