|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Oleg Sheremetinsky 2:5023/34.26 13 Jun 2002 16:02:27
To : Vladimir Mosgalin
Subject : Re: gnus (миграция с slrn ;-)
--------------------------------------------------------------------------------
>>* "VM" == Vladimir Mosgalin <mosgalin@VM10124.spb.edu> writes:
[...skip...]
NK>> 3. Фидошные тирлайны и ориджины. Хочется при чтении выдирать
NK>> содержимое X-FTN-Tearline, etc. и дописывать в конец письма в
NK>> "традиционном" виде. В slrn'е добился этого через
NK>> read_article_hook, а в гнусе как? Сходу немного не понятно..
VM> Было письмо от кого-то в одной из эх ru.linux/ru.unix.linux/ru.gnu, с
VM> текстом вроде "во как меня приплющило... Фидошные ориджины для гнуса!",
VM> но это примерный смысл. Можешь по лисповому коду на гугле поискать. Было
VM> это с пол-года назад примерно.
>----
- RU.LINUX ---------------------------------------------------------------------
From : Andrew Kozin 2:5020/960.14 13 Nov 2001 19:43:32
To : All
Subject : Golded'ообразные tearline и origin для GNUS
--------------------------------------------------------------------------------
.RFC-X-Complaints-To: news@isc.degunino.net
.RFC-NNTP-Posting-Date: 13 Nov 2001 16:43:33 GMT
.RFC-User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (GTK)
Во как меня приплющило :))
Добавить в .emacs
(add-hook 'gnus-article-prepare-hook
'(lambda ()
(let ((buffer-read-only nil) origin-field tearline-field)
(save-excursion
(goto-char (point-min))
(if (string-match "^X-FTN-Origin: " (buffer-string))
(progn
(setq field-start (+ (match-end 0) 1))
(goto-char field-start)
(end-of-line)
(setq origin-field (buffer-substring field-start (point)))
(gnus-delete-line))))
(save-excursion
(goto-char (point-min))
(if (string-match "^X-FTN-Tearline: " (buffer-string))
(progn
(setq field-start (+ (match-end 0) 1))
(goto-char field-start)
(end-of-line)
(setq tearline-field (buffer-substring field-start (point)))
(gnus-delete-line))))
(if tearline-field
(save-excursion
(goto-char (point-max))
(insert (concat "--- " tearline-field "\n"))))
(if origin-field
(save-excursion
(goto-char (point-max))
(insert (concat " * Origin: " origin-field "\n")))))))
естественно в (custom-set-variables ..... )
должно быть
'(gnus-visible-headers (quote ("^From:" "^X-Comment-To:" "^X-FTN-Tearline"
"^Subject:" "^Date:" "^X-FTN-Origin:")))
Для полного счастья
--
With best wishes Stanson
... А ты убил в себе государство?
-+- ifmail v.2.14.os-p7
+ Origin: Illegal Systems Corp. (2:5020/960.14@fidonet)
>----
--
С уважением, Шереметинский Олег.
sheremetinsky@kaluga.ru
--- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Artificial Intelligence)
* Origin: Гусара триппером не запугаешь! (2:5030/1400.34)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
