Hello, [email protected]Доброе утро, Анатолий
> Здравствуйте.
>
> Использую для цитирования в gnus пакет tc.
>
> Подскажите как в этом пакете можно запретить отображение адреса цитируемого
> письма в заголовке?
По жизни пользуюсь таким кодом для формирования приветствия в
цитировании. Это можно положить в ~/.emacs.
(defun cut-email-address (orig)
(if (string-match " <" orig)
(substring orig 0 (match-beginning 0))
(if (string-match "<" orig)
(substring orig 0 (match-beginning 0))
orig
) ))
(defun message-insert-citation-line-without-address ()
"Insert a citation line without e-mail address."
(when message-reply-headers
(setq message-reply-to-name (cut-email-address (mail-header-from
message-reply-headers)))
(insert "Hello")
(if (> (length message-reply-to-name) 0)
(insert ", "))
(setq message-reply-to-name-items (string-split "\\\""
message-reply-to-name))
(while message-reply-to-name-items
(insert (car message-reply-to-name-items))
(setq message-reply-to-name-items (cdr message-reply-to-name-items))
)
(insert "!")
(newline)
(newline)))
(require 'message)
(setq message-citation-line-function
'message-insert-citation-line-without-address)
--
Michael Pozhidaev. E-mail: [email protected].
Tomsk State University. http://www.csd.tsu.ru
ALT Linux Team. http://www.altlinux.org
--
Blinux-rus mailing list
[email protected]
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus
