comparison 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.

111018:de901820e0bc

  (when cont
    (when (and (> (current-column) 0)
	       (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))))))))))))
      (let ((start (point-marker)))
	(when (zerop (length alt))
	  (setq alt "[img]"))
	(cond
	 ((and (not shr-inhibit-images)

111019:615617bd614d

  (when cont
    (when (and (> (current-column) 0)
	       (not (eq shr-state 'image)))
      (insert "\n"))
    (let ((alt (cdr (assq :alt cont)))
	  (url (cdr (assq :src cont))))
      (let ((start (point-marker)))
	(when (zerop (length alt))
	  (setq alt "[img]"))
	(cond
	 ((and (not shr-inhibit-images)