Mercurial > emacs
changeset 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 | de901820e0bc |
| children | 9d2f59f15c3e |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el lisp/gnus/shr.el |
| diffstat | 3 files changed, 16 insertions(+), 22 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Oct 16 20:00:34 2010 -0400 +++ b/lisp/gnus/ChangeLog Sun Oct 17 00:04:06 2010 +0000 @@ -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
--- a/lisp/gnus/gnus-sum.el Sat Oct 16 20:00:34 2010 -0400 +++ b/lisp/gnus/gnus-sum.el Sun Oct 17 00:04:06 2010 +0000 @@ -8834,7 +8834,11 @@ (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.
--- 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]"))