|
ru.unix
- RU.UNIX ----------------------------------------------------------------------
From : Yura Bilik 2:463/617.4 14 Sep 2000 23:01:23
To : Denis Shaposhnikov
Subject : Re: Gnus 5.8.7: charset
--------------------------------------------------------------------------------
Hi Denis!
On Mon, 11 Sep 00 17:22:56 +0200 "DS" wrote:
DS> 2All: А у кого какие методы используются для генеpации
DS> X-Comment-To, кpоме того, что имени Боpиса Тоботpаса?
У меня так:
(defun Get-Name (from)
(if (string-match "^.*?[ .,_%@]" from)
(substring from 0 (- (match-end 0) 1 ))
)
)
(defun mine ()
(insert (concat (concat " Hi " (Get-Name (sc-mail-field
"sc-author"))) "!\n On ")
(sc-mail-field "date") " \"" (sc-mail-field "sc-attribution") "\"
wrote:\n")
(goto-char 0)
(insert (concat "X-Comment-To: " (sc-mail-field "sc-author") "\n"))
(string-match "wrote:\n" (buffer-string))
(goto-char (+(match-end 0) 1))
)
(setq sc-rewrite-header-list (cons '(mine) sc-rewrite-header-list))
(setq sc-preferred-header-style 0)
--
Yura Bilik "[Просто Мария fc]"
In 1962, you could buy a pair of SHARKSKIN SLACKS, with a "Continental
Belt," for $10.99!!
--- Pygate ver 0.1.0
* Origin: Gnus/5.0807 (Gnus v5.8.7) XEmacs/21.1 (Carlsbad Caverns)(2:463/617.4)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
