Hi, I use the following lisp function to insert a random face header pic in my
posts.
,----
| (defun random-face-header-insert ()
| (let* ((faces (directory-files "~/News/xfaces" t "\\.png\\(\\.0\\)?$"))
| (face (nth (random (length faces)) faces)))
| (save-excursion
| (goto-char (point-min))
| (insert "Face: " (gnus-convert-png-to-face face) "\n")
| (when (string-match "0$" face)
| (insert "Face: "
| (gnus-convert-png-to-face (replace-match face "0$" "1"))
| "\n")))))
|
| (add-hook 'message-send-hook 'random-face-header-insert)
`----
Though it doesn't check if a such header is already inserted in case it
prevents to insert it again. How can I do it?
Thanks in advance.
--
Daniele Giglio Dona i tuoi cicli di clock alla ricerca!
http://boinc.berkeley.edu/
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
