(if (> (length attempt) 726)
(progn
(setq quant (- quant 2))
- (message "Length %d; trying quant %d"
- (length attempt) quant))
+ (gnus-message 9 "Length %d; trying quant %d"
+ (length attempt) quant))
(setq done t)))
(if done
(mm-with-unibyte-buffer
(if (gnus-image-type-available-p 'xface)
(gnus-create-image
(concat "X-Face: " data)
- 'xface t :ascent 'center :face 'gnus-x-face)
+ 'xface t :face 'gnus-x-face)
(gnus-create-image
- pbm 'pbm t :ascent 'center :face 'gnus-x-face))))
+ pbm 'pbm t :face 'gnus-x-face)) nil 'xface))
(gnus-add-wash-type 'xface))))))
(defun gnus-grab-cam-x-face ()