X-Face

X-Face

[Simon Josefsson]

Does the following hints in the manual really work?

,----
|    Gnus provides a few convenience functions and variables to allow
| easier insertion of X-Face headers in outgoing messages.
| 
|    `gnus-random-x-face' goes through all the `pbm' files in
| `gnus-x-face-directory' and picks one at random, and then converts it
| to the X-Face format by using the `gnus-convert-pbm-to-x-face-command'
| shell command.  The `pbm' files should be 48x48 pixels big.
| 
|    `gnus-x-face-from-file' takes a GIF file as the parameter, and then
| converts the file to X-Face format by using the
| `gnus-convert-image-to-x-face-command' shell command.
| 
|    Here's how you would typically use the former function.  Put
| something like the following in your `.gnus.el' file:
| 
|      (setq message-required-news-headers
|            (nconc message-required-news-headers
|                   (list '(X-Face . gnus-random-x-face))))
| 
|    Using the latter function would be something like this:
| 
|      (setq message-required-news-headers
|            (nconc message-required-news-headers
|                   (list '(X-Face . (lambda ()
|                                      (gnus-x-face-from-file
|                                       "~/My-face.gif"))))))
`----

I'm not able to use it; gnus-random-x-face returns a string with the
X-Face data, but m-r-n-h expects it to insert a header.

I have committed the following, which might be bogus if the above
works for anyone.

2003-01-13  Simon Josefsson  <jas@extundo.com>

	* gnus-fun.el (gnus-random-x-face): Doc fix.
	(gnus-insert-random-x-face-header): New function.

2003-01-13  Simon Josefsson  <jas@extundo.com>

	* gnus.texi (X-Face): Fix.

--- gnus-fun.el.~6.30.~	Mon Jan 13 16:10:42 2003
+++ gnus-fun.el	Mon Jan 13 18:48:55 2003
@@ -60,7 +60,7 @@
 
 ;;;###autoload
 (defun gnus-random-x-face ()
-  "Insert a random X-Face header from `gnus-x-face-directory'."
+  "Return X-Face header data chosen randomly from `gnus-x-face-directory'."
   (interactive)
   (when (file-exists-p gnus-x-face-directory)
     (let* ((files (directory-files gnus-x-face-directory t "\\.pbm$"))
@@ -69,6 +69,19 @@
 	(gnus-shell-command-to-string
 	 (format gnus-convert-pbm-to-x-face-command
 		 (shell-quote-argument file)))))))
+
+;;;###autoload
+(defun gnus-insert-random-x-face-header ()
+  "Insert a random X-Face header from `gnus-x-face-directory'."
+  (interactive)
+  (let ((data (gnus-random-x-face)))
+    (save-excursion
+      (message-goto-eoh)
+      (if data
+	  (insert "X-Face: " data)
+	(message
+	 "No face returned by `gnus-random-x-face'.  Does %s/*.pbm exist?"
+	 gnus-x-face-directory)))))
 
 ;;;###autoload
 (defun gnus-x-face-from-file (file)

--- gnus.texi.~6.385.~	Mon Jan 13 18:01:42 2003
+++ gnus.texi	Mon Jan 13 18:51:49 2003
@@ -20973,26 +20973,32 @@
 easier insertion of X-Face headers in outgoing messages.
 
 @findex gnus-random-x-face
-@code{gnus-random-x-face} goes through all the @samp{pbm} files
-in @code{gnus-x-face-directory} and picks one at random, and then
+@code{gnus-random-x-face} goes through all the @samp{pbm} files in
+@code{gnus-x-face-directory} and picks one at random, and then
 converts it to the X-Face format by using the
 @code{gnus-convert-pbm-to-x-face-command} shell command.  The
-@samp{pbm} files should be 48x48 pixels big.
+@samp{pbm} files should be 48x48 pixels big.  It returns the X-Face
+header data as a string.
 
+@findex gnus-insert-random-x-face-header
+Calls @code{gnus-random-x-face} and inserts a @samp{X-Face} header
+with the randomly generated data.
+
+@findex gnus-x-face-from-file
 @code{gnus-x-face-from-file} takes a GIF file as the parameter, and then
 converts the file to X-Face format by using the
 @code{gnus-convert-image-to-x-face-command} shell command.
 
-Here's how you would typically use the former function.  Put something
+Here's how you would typically use the second function.  Put something
 like the following in your @file{.gnus.el} file:
 
 @lisp
 (setq message-required-news-headers
       (nconc message-required-news-headers
-             (list '(X-Face . gnus-random-x-face))))
+             (list '(X-Face . gnus-insert-random-x-face-header))))
 @end lisp
 
-Using the latter function would be something like this:
+Using the last function would be something like this:
 
 @lisp
 (setq message-required-news-headers

Re: X-Face

[Lars Magne Ingebrigtsen]

Simon Josefsson <jas@extundo.com> writes:

> |      (setq message-required-news-headers
> |            (nconc message-required-news-headers
> |                   (list '(X-Face . (lambda ()
> |                                      (gnus-x-face-from-file
> |                                       "~/My-face.gif"))))))
> `----
>
> I'm not able to use it; gnus-random-x-face returns a string with the
> X-Face data, but m-r-n-h expects it to insert a header.

No, `message-required-news-headers' expects the functions in there to
return a string.  At least, that's what I've thought all these
years.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: X-Face

[Xavier MAILLARD]

[-- Attachment #1: Type: text/plain, Size: 85 bytes --]


[SNIP]

Nothing to add except : I love your X-Face :)

Kind regards,

zeDek

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: X-Face

[Niels Olof Bouvin]

One question:

Which version of compface are you using?  I use v1.4.5 [1] under Solaris, and
it gives me 'compface: (warning) <stdin>: excess data ignored' whenever I try
to run the command sequence of gnus-convert-pbm-to-x-face-command.

Cheers
        Niels Olof

[1] http://contest.cmc.msu.ru/download/cygwin/release/compface/

-- 
Niels Olof Bouvin, Ph.D.  http://www.bouvin.net/ Voice: +45 89 42 56 59 \ /
In omnibus requiem quaesivi, et nusquam inveni nisi in angulo cum libro (")
Assistant Professor @ Department of Computer Science, Aarhus Univ., Denmark

Re: X-Face

[Lars Magne Ingebrigtsen]

Niels Olof Bouvin <n.o.bouvin@daimi.au.dk> writes:

> Which version of compface are you using?  I use v1.4.5 [1] under Solaris, and
> it gives me 'compface: (warning) <stdin>: excess data ignored' whenever I try
> to run the command sequence of gnus-convert-pbm-to-x-face-command.

I'm using the one that comes with Debian.  The version is
"1998.11.11-23", which is pretty odd.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: X-Face

[Vasily Korytov]

[-- Attachment #1: Type: text/plain, Size: 840 bytes --]

>>>>> "NOB" == Niels Olof Bouvin writes:

 NOB> One question: Which version of compface are you using? I use
 NOB> v1.4.5 [1] under Solaris, and it gives me 'compface: (warning)
 NOB> <stdin>: excess data ignored' whenever I try to run the command
 NOB> sequence of gnus-convert-pbm-to-x-face-command.

I think, the version, I use, comes from xemacs ftp site. I'm not sure,
what version it is, but file modification dates are in 1990-1991 years,
but two files -- Makefile and xbm2xface.pl are from 1995. Any references
to version are absent, top 3 lines from the README are:

--8<------------------------schnipp------------------------->8---
Compface - 48x48x1 image compression and decompression
Copyright (c) James Ashton 1990.
Written 89/11/11
--8<------------------------schnapp------------------------->8---

---Vas

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: X-Face

[Simon Josefsson]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>> |      (setq message-required-news-headers
>> |            (nconc message-required-news-headers
>> |                   (list '(X-Face . (lambda ()
>> |                                      (gnus-x-face-from-file
>> |                                       "~/My-face.gif"))))))
>> `----
>>
>> I'm not able to use it; gnus-random-x-face returns a string with the
>> X-Face data, but m-r-n-h expects it to insert a header.
>
> No, `message-required-news-headers' expects the functions in there to
> return a string.  At least, that's what I've thought all these
> years.  :-)

Oh.  And now doing what the old manual said works.  Oops.  I've
reverted the manual patch (the new gnus-insert-random-x-face-header
function might be useful anyway, or perhaps not, but I guess it
doesn't hurt, so I'm leaving it).

Re: X-Face

[Karl Kleinpaste]

Stefan Waldherr <stefan@waldherr.org> writes:
> how do people insert their X-Faces these days?

(setq message-default-headers "X-Face: \"5(T0tZd{6}pd~YzBG8O/*EW,.]6]@`m^e;fv65W^Y&=d\"M\\1H}>T~4_.kcDD.O~y3k)a6h\n R;Nmi>9|>Nm${2IpM0^RcUEa\\jcq?KOP)C&~x51l~zCHTulL^_T|u0I^kB'z@]{`2YjQu\n")

Re: X-Face

[Lars Magne Ingebrigtsen]

Stefan Waldherr <stefan@waldherr.org> writes:

> now that I switched to pgnus, nnheader-temp-write seems to be obsolete. So,
> how do people insert their X-Faces these days?

with-temp-buffer, for instance.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

X-Face

[Stefan Waldherr]

Hi,

now that I switched to pgnus, nnheader-temp-write seems to be obsolete. So,
how do people insert their X-Faces these days?

Thanks,
Stefan.
-- 
Stefan Waldherr                   fax +49 431 8058 136
                               e-Mail stefan@waldherr.org
                                  www http://www.waldherr.org/