54 |
:type 'string) |
:type 'string) |
55 |
|
|
56 |
(defcustom gnus-convert-image-to-face-command "djpeg %s | ppmnorm | pnmscale -width 48 -height 48 | ppmquant %d | pnmtopng" |
(defcustom gnus-convert-image-to-face-command "djpeg %s | ppmnorm | pnmscale -width 48 -height 48 | ppmquant %d | pnmtopng" |
57 |
"Command for converting an image to an Face. |
"Command for converting an image to a Face. |
58 |
By default it takes a JPEG filename and output the Face header data |
By default it takes a JPEG filename and output the Face header data |
59 |
on stdout." |
on stdout." |
60 |
:version "22.1" |
:version "22.1" |
110 |
|
|
111 |
;;;###autoload |
;;;###autoload |
112 |
(defun gnus-face-from-file (file) |
(defun gnus-face-from-file (file) |
113 |
"Return an Face header based on an image file." |
"Return a Face header based on an image file." |
114 |
(interactive "fImage file name (by default JPEG): ") |
(interactive "fImage file name (by default JPEG): ") |
115 |
(when (file-exists-p file) |
(when (file-exists-p file) |
116 |
(let ((done nil) |
(let ((done nil) |