summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
beab6c5)
* gnus-fun.el (gnus-x-face-from-file): Quote file name.
(gnus-face-from-file): Ditto.
+2003-01-13 Romain FRANCOISE <romain@orebokech.com>
+
+ * gnus-fun.el (gnus-x-face-from-file): Quote file name.
+ (gnus-face-from-file): Ditto.
+
2003-01-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-articles-to-read): Don't just apply
2003-01-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-articles-to-read): Don't just apply
;;;###autoload
(defun gnus-x-face-from-file (file)
;;;###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
(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)
;;;###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 "")
(when (file-exists-p file)
(let ((done nil)
(attempt "")
(setq attempt
(gnus-shell-command-to-string
(format gnus-convert-image-to-face-command
(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
quant)))
(if (> (length attempt) 740)
(progn