Re: X-Face insertion

[Matt Pharr <mmp@graphics.stanford.edu>]

james@eecs.ukans.edu (Jerry James) writes:
> My old .gnus.el had this for inserting an X-Face header into outgoing
> news articles and mail messages, lifted directly from a sample .gnus.el
> on gnus.org:
> 
> (defun xface-insert ()
>   (nnheader-temp-write nil
>     (insert-file-contents "~/.xface")
>     (buffer-string)))
> 
> I then added (X-Face . xface-insert) to message-required-news-headers
> and message-required-mail-headers.  However, as the Changelog shows,
> nnheader-temp-write has been gone since pGnus 0.4.  What is The Right
> Way of doing this now?

I'm not sure what the proper way is, but I've been using the following for
some time, and it works great.  I'm not sure where this came from
originally; presumably one of the prolific contributors to this list.
Another option is to use gnus-posting-styles, IIRC.

It is probably a bug that this isn't covered in the documentation.  I'd
submit a doc patch, but am not confident enough that this is the most
elegant way to do it.

(defun message-insert-x-face ()
  (save-excursion
    (goto-char (point-min))
    (search-forward mail-header-separator)
    (beginning-of-line nil)
    (insert "X-Face: ")
    (insert-file (expand-file-name "/u/mmp/.xface"))))
(add-hook 'message-send-hook 'message-insert-x-face)

-matt 
-- 
Matt Pharr                                   mmp@graphics.stanford.edu
<URL:http://graphics.stanford.edu/~mmp>