mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

shr.el (shr-tag-img): Don't align images -- since we're not rescaling, this often leads to ugly displays.

Browse Source 
gnus-sum.el (gnus-summary-refer-thread): Bug fix. Add the thread headers to gnus-newsgroup-headers.
This commit is contained in:
Gnus developers 2010-10-17 00:04:06 +00:00 committed by Katsumi Yamaoka
parent 29a4c45b98
commit b57a665db1
3 changed files with 16 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus/ChangeLog
View File

@ -1,3 +1,13 @@
2010-10-16 Andrew Cohen <cohen@andy.bu.edu>
* gnus-sum.el (gnus-summary-refer-thread): Bug fix. Add the thread
headers to gnus-newsgroup-headers.
2010-10-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-tag-img): Don't align images -- since we're not
rescaling, this often leads to ugly displays.
2010-10-15 Andrew Cohen <cohen@andy.bu.edu>
* gnus-sum.el (gnus-summary-refer-thread): unconditionally ignore

6
lisp/gnus/gnus-sum.el
View File

@ -8834,7 +8834,11 @@ variable."
(limit (if limit (prefix-numeric-value limit)
gnus-refer-thread-limit)))
(if (gnus-check-backend-function 'request-thread gnus-newsgroup-name)
(gnus-request-thread id)
(setq gnus-newsgroup-headers
(gnus-merge 'list
gnus-newsgroup-headers
(gnus-request-thread id)
'gnus-article-sort-by-number))
(unless (eq gnus-fetch-old-headers 'invisible)
(gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
;; Retrieve the headers and read them in.

22
lisp/gnus/shr.el
View File

@ -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]"))