From a8984c1eb6870ea0463e16fe21ee411527c0717b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 13 Jan 2003 21:04:22 +0000 Subject: [PATCH] 2003-01-13 Romain FRANCOISE * gnus-fun.el (gnus-x-face-from-file): Quote file name. (gnus-face-from-file): Ditto. --- lisp/ChangeLog | 5 +++++ lisp/gnus-fun.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81c9ec12a..85b43a069 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-01-13 Romain FRANCOISE + + * gnus-fun.el (gnus-x-face-from-file): Quote file name. + (gnus-face-from-file): Ditto. + 2003-01-13 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-articles-to-read): Don't just apply diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index 5e63bc9ae..aebc1db57 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -85,17 +85,17 @@ Output to the current buffer, replace text, and don't mingle error." ;;;###autoload (defun gnus-x-face-from-file (file) - "Insert an X-Face header based on an image file." - (interactive "fImage file name:" ) + "Insert an X-Face header based on a GIF image file." + (interactive "fImage file name: ") (when (file-exists-p file) (gnus-shell-command-to-string (format gnus-convert-image-to-x-face-command - (shell-quote-argument file))))) + (shell-quote-argument (expand-file-name file)))))) ;;;###autoload (defun gnus-face-from-file (file) - "Return an Face header based on an image file." - (interactive "fImage file name:" ) + "Return an Face header based on a JPEG image file." + (interactive "fImage file name: ") (when (file-exists-p file) (let ((done nil) (attempt "") @@ -106,7 +106,7 @@ Output to the current buffer, replace text, and don't mingle error." (setq attempt (gnus-shell-command-to-string (format gnus-convert-image-to-face-command - (shell-quote-argument file) + (shell-quote-argument (expand-file-name file)) quant))) (if (> (length attempt) 740) (progn -- 2.25.1