no face

no face

[Phil Humpherys]

I moved stuff over to a new machine and rebuilt xemacs and all that, but I kept my entire environment...  I can see other peoples' faces, but I can't generate an X-Face header of my own.  Here's my .emacs code:

(setq gnus-use-picons t)
(add-hook 'gnus-article-display-hook
          'gnus-article-display-picons t)
(add-hook 'gnus-article-display-hook
          'gnus-picons-article-display-x-face)
(setq gnus-picons-display-where t)
(defun xface-insert ()
  (nnheader-temp-write nil
    (insert-file-contents "~/.xface")
    (buffer-string)))
(require 'message)
(setq message-required-news-headers
      (nconc message-required-news-headers
             (list '(X-Face . xface-insert))))
(setq message-required-mail-headers
      (nconc message-required-mail-headers
             (list '(X-Face . xface-insert))))

; display x face
(add-hook 'gnus-article-display-hook 'gnus-article-display-x-face)


Any ideas?

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery

Re: no face

[Lee Willis]

Phil Humpherys <phumpherys@utah-inter.net> writes:

> Here's my .emacs code:

Do you mean .gnus?

[Snipped elisp]

> Any ideas?

Well I'm not brilliant at elisp/etc but my xfaces work fine with only
the following in my .gnus.el (pgnus-0.31 under Emacs 20.3, I presume the
displaying of xface stuff will be different but since it's sending
you're having problems with this _might_ help ...)

(setq gnus-posting-styles
      '(
	(".*"
	 (signature-file "~/.sigs/babysig")
	 ("X-Face" "\"J~~0\'L\`GfL^sW4%+i35x#X308)K/$7\\]qy)UZ$\`k:}Bx]6mgAA^N5,@brn/19TPn%o\;j28
 W7mD)UN~se8P9\\3?wU.g+i9)X<UMbOZm.\'#\`6?=Ui1E8cy7mC&/?v=\']>7+R?ls}.ZwTx]xsol>)V^
 SJ?(e|0H6<9+u\;pn<Q@j_ozt/tP#@#!guy|\`\;\"95429mFa}3Bi2Cu|~-90\',b19}%cd_Wu-h/TqxKp
 1{w,,!R)9\\+1tlD~oY\'"))
	))

All I did was to insert the contents of the comped xface into a
string. You then have to escape all the occurences of ;"'\ before it'll
work :(

HTH
Lee.
-- 
I was doing object-oriented assembly at 1 year old ...  
For some reason my mom insists on calling it "Playing with blocks"

Re: no face

[Phil Humpherys]

This didn't work...  believe it or not.

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery



Lee Willis <lee@gbdirect.co.uk> writes:

> Phil Humpherys <phumpherys@utah-inter.net> writes:
> 
> > Here's my .emacs code:
> 
> Do you mean .gnus?
> 
> [Snipped elisp]
> 
> > Any ideas?
> 
> Well I'm not brilliant at elisp/etc but my xfaces work fine with only
> the following in my .gnus.el (pgnus-0.31 under Emacs 20.3, I presume the
> displaying of xface stuff will be different but since it's sending
> you're having problems with this _might_ help ...)
> 
> (setq gnus-posting-styles
>       '(
> 	(".*"
> 	 (signature-file "~/.sigs/babysig")
> 	 ("X-Face" "\"J~~0\'L\`GfL^sW4%+i35x#X308)K/$7\\]qy)UZ$\`k:}Bx]6mgAA^N5,@brn/19TPn%o\;j28
>  W7mD)UN~se8P9\\3?wU.g+i9)X<UMbOZm.\'#\`6?=Ui1E8cy7mC&/?v=\']>7+R?ls}.ZwTx]xsol>)V^
>  SJ?(e|0H6<9+u\;pn<Q@j_ozt/tP#@#!guy|\`\;\"95429mFa}3Bi2Cu|~-90\',b19}%cd_Wu-h/TqxKp
>  1{w,,!R)9\\+1tlD~oY\'"))
> 	))
> 
> All I did was to insert the contents of the comped xface into a
> string. You then have to escape all the occurences of ;"'\ before it'll
> work :(
> 
> HTH
> Lee.
> -- 
> I was doing object-oriented assembly at 1 year old ...  
> For some reason my mom insists on calling it "Playing with blocks"

Re: no face

[Christian Kurz]

Phil Humpherys <phumpherys@utah-inter.net> wrote:

> This didn't work...  believe it or not.

I use the following code in my .gnus to insert my xface. Probably it
works for you, too.

;;*
;;*X-Face
;;*===============================
(defun mail-insert-x-face ()
  (save-excursion
    (goto-char (point-min))
    (search-forward mail-header-separator)
    (beginning-of-line)
    (insert "X-Face:")
    (insert-file-contents "~/.face")))

(add-hook 'message-setup-hook 'mail-insert-x-face)

Regards Christian

Re: no face

[Phil Humpherys]

Christian Kurz <shorty@jupiter.rhein-neckar.de> writes:

> Phil Humpherys <phumpherys@utah-inter.net> wrote:
> 
> > This didn't work...  believe it or not.
> 
> I use the following code in my .gnus to insert my xface. Probably it
> works for you, too.

No.  I'm afraid it doesn't.  I'm totally stymied.


> 
> ;;*
> ;;*X-Face
> ;;*===============================
> (defun mail-insert-x-face ()
>   (save-excursion
>     (goto-char (point-min))
>     (search-forward mail-header-separator)
>     (beginning-of-line)
>     (insert "X-Face:")
>     (insert-file-contents "~/.face")))
> 
> (add-hook 'message-setup-hook 'mail-insert-x-face)
> 
> Regards Christian

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery

Re: no face

[Phil Humpherys]

I got it working...  my bad.  There was a syntax error above the
face code, so when emacs loaded, it wouldn't read beyond the
error.  I fixed the error, and now of course all of you can see
my pretty face.  ;)

Thanks for your help all.

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery



Phil Humpherys <phumpherys@utah-inter.net> writes:

> Christian Kurz <shorty@jupiter.rhein-neckar.de> writes:
> 
> > Phil Humpherys <phumpherys@utah-inter.net> wrote:
> > 
> > > This didn't work...  believe it or not.
> > 
> > I use the following code in my .gnus to insert my xface. Probably it
> > works for you, too.
> 
> No.  I'm afraid it doesn't.  I'm totally stymied.
> 
> 
> > 
> > ;;*
> > ;;*X-Face
> > ;;*===============================
> > (defun mail-insert-x-face ()
> >   (save-excursion
> >     (goto-char (point-min))
> >     (search-forward mail-header-separator)
> >     (beginning-of-line)
> >     (insert "X-Face:")
> >     (insert-file-contents "~/.face")))
> > 
> > (add-hook 'message-setup-hook 'mail-insert-x-face)
> > 
> > Regards Christian
> 
> --
> Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
> Unix Systems Administrator                   Mobile: +1.801.725.3257 
> WWW/PGPkeys: http://www.spire.com/~humphery

Re: no face

[Francisco Solsona]

Phil Humpherys <phumpherys@utah-inter.net> writes:

> I moved stuff over to a new machine and rebuilt xemacs and all that, but I kept my entire environment...  I can see other peoples' faces, but I can't generate an X-Face header of my own.  Here's my .emacs code:
> 
> (setq gnus-use-picons t)
> (add-hook 'gnus-article-display-hook
>           'gnus-article-display-picons t)
> (add-hook 'gnus-article-display-hook
>           'gnus-picons-article-display-x-face)
> (setq gnus-picons-display-where t)
> (defun xface-insert ()
>   (nnheader-temp-write nil
     ^^^^^^^^^^^^^^^^^^^
 % grep -3 nnheader-temp ChangeLog
        * gnus-art.el (article-mime-decode-quoted-printable): Don't use
        hexl.

        * nnheader.el (nnheader-temp-write): Removed.

Sat Aug 29 20:34:17 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no> 


[...]

> Any ideas?

	This works for me, it might not be optimal, though.

(defun xface-insert ()
  (let (xface temp-buff) 
    (save-excursion
      (setq temp-buff (get-buffer-create "*xface-temp*"))
      (set-buffer temp-buff)
      (insert-file-contents "~/.gnusdir/xface")
      (setq xface (buffer-string))
      (kill-buffer temp-buff))
    xface))

(require 'message)
(setq message-required-news-headers
      (nconc message-required-news-headers
	     (list '(X-Face . xface-insert)))
      message-required-mail-headers
      (nconc message-required-mail-headers
	     (list '(X-Face . xface-insert))))

Francisco
-- 
Basic is a high level languish.  APL is a high level anguish.

Re: no face

[Phil Humpherys]

Francisco Solsona <solsona@deprof.fciencias.unam.mx> writes:

> > Any ideas?
> 
> 	This works for me, it might not be optimal, though.
> 
> (defun xface-insert ()
>   (let (xface temp-buff) 
>     (save-excursion
>       (setq temp-buff (get-buffer-create "*xface-temp*"))
>       (set-buffer temp-buff)
>       (insert-file-contents "~/.gnusdir/xface")
>       (setq xface (buffer-string))
>       (kill-buffer temp-buff))
>     xface))
> 
> (require 'message)
> (setq message-required-news-headers
>       (nconc message-required-news-headers
> 	     (list '(X-Face . xface-insert)))
>       message-required-mail-headers
>       (nconc message-required-mail-headers
> 	     (list '(X-Face . xface-insert))))
> 

This doesn't work either.  On the other machine, I *had* this
working.  Now, for some reason, I can't get an X-Face: header in
my email.  I see others' faces just fine...  very frustrating.

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery

no face

[Phil Humpherys]

I got it working...  my bad.  There was a syntax error above the
face code, so when emacs loaded, it wouldn't read beyond the
error.  I fixed the error, and now of course all of you can see
my pretty face.  ;)

Thanks for your help all.

--
Phil Humpherys <phumpherys@utah-inter.net>   DriverSoft
Unix Systems Administrator                   Mobile: +1.801.725.3257 
WWW/PGPkeys: http://www.spire.com/~humphery