diff options
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 6499b35d072..998ad30aed2 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -426,27 +426,7 @@ Return a string with image data." (not (eq shr-state 'image))) (insert "\n")) (let ((alt (cdr (assq :alt cont))) - (url (cdr (assq :src cont))) - (width (cdr (assq :width cont)))) - ;; Only respect align if width specified. - (when width - ;; Check that width is not larger than max width, otherwise ignore - ;; align - (let ((max-width (* shr-width (frame-char-width))) - (width (string-to-number width))) - (when (< width max-width) - (let ((align (cdr (assq :align cont)))) - (cond - ((string= align "right") - (insert (propertize - " " 'display - `(space . (:align-to - ,(list (- max-width width))))))) - ((string= align "center") - (insert (propertize - " " 'display - `(space . (:balign-to - ,(list (- (/ max-width 2) width)))))))))))) + (url (cdr (assq :src cont)))) (let ((start (point-marker))) (when (zerop (length alt)) (setq alt "[img]")) |