Mercurial > emacs
diff lisp/gnus/shr.el @ 111019:615617bd614d
shr.el (shr-tag-img): Don't align images -- since we're not rescaling, this often leads to ugly displays.
gnus-sum.el (gnus-summary-refer-thread): Bug fix. Add the thread headers to gnus-newsgroup-headers.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 17 Oct 2010 00:04:06 +0000 |
parents | e172bc1db402 |
children | 7aa9d9b402c8 |
line wrap: on
line diff
--- a/lisp/gnus/shr.el Sat Oct 16 20:00:34 2010 -0400 +++ b/lisp/gnus/shr.el Sun Oct 17 00:04:06 2010 +0000 @@ -426,27 +426,7 @@ (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]"))