Подскажите, как это можно сделать в gnus - при отсутствии хеддера
X-Comment-to или, если проще реализуемо, при постинге по "a" вставлять
body "Hello, All". Желательно сделать в gnus-posting-styles, так как
нужно это делать не для всех групп. Или подскажите идею как можно
подобное сделать по другому.
--
Don't worry.
Andrey Slusar.
Show replies by thread
On Fri, 27 Jun 2003 18:36:37 +0300,
Andrey Slusar(AS) wrote to Russian XEmacs Users:
AS> Подскажите, как это можно сделать в gnus - при отсутствии хеддера
AS> X-Comment-to или, если проще реализуемо, при постинге по "a" вставлять
AS> body "Hello, All". Желательно сделать в gnus-posting-styles, так как
AS> нужно это делать не для всех групп. Или подскажите идею как можно
AS> подобное сделать по другому.
у меня сделано через sc-rewrite-header-list, но для всех групп одинаково.
--
Denis.
Любить - значит перестать сравнивать. (с) Б Грассе; А если из микропроцессора
убрать инструкцию CMP, то он сможет любить?
Привет, Denis!
On Sat, 28 Jun 2003 09:49:06 +0400 Denis Dzyubenko wrote:
AS>> Подскажите, как это можно сделать в gnus - при отсутствии хеддера
AS>> X-Comment-to или, если проще реализуемо, при постинге по "a"
вставлять
AS>> body "Hello, All". Желательно сделать в gnus-posting-styles, так как
AS>> нужно это делать не для всех групп. Или подскажите идею как можно
AS>> подобное сделать по другому.
DD> у меня сделано через sc-rewrite-header-list, но для всех групп одинаково.
Можете этот хук показать?
DD> Denis.
--
Don't worry.
Andrey Slusar.
On Sat, 28 Jun 2003 18:18:06 +0300,
Andrey Slusar(AS) wrote to Russian XEmacs Users:
DD>> у меня сделано через sc-rewrite-header-list, но для всех групп одинаково.
AS> Можете этот хук показать?
вот он:
=+==
(add-to-list 'sc-rewrite-header-list '(my-hello-attribute-write))
(defun my-hello-attribute-write ()
(let ((sc-mumble "??")
(to-addr (sc-mail-field "to"))
(to-name (my-get-name-from-address (sc-mail-field "to")))
(from-name (my-get-name-from-address (sc-mail-field "from")))
(from-attrib (eval '(sc-hdr "(" (sc-mail-field "sc-attribution")
")"))))
(insert
"On " (sc-mail-field "date") ",\n " from-name
from-attrib " wrote"
(if to-name
(if (or (string= user-full-name to-name)
(string-match "shad(a)mail.kubtelecom.ru" to-addr))
" to me"
(concat " to " to-name))
"")
":\n")
)
)
=+==
--
Denis.
- А хак это сделать?
- A HREF его знает...