[Emacs-diffs] /srv/bzr/emacs/trunk r101984: shr.el (shr-tag-img): Don't align images -- since we're not rescaling, this often leads to ugly displays.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101984
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-17 00:04:06 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-16 01:55:08 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-17 00:04:06 +0000
@@ -1,3 +1,13 @@
+2010-10-16  Andrew Cohen  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-refer-thread): Bug fix. Add the thread
+       headers to gnus-newsgroup-headers.
+
+2010-10-16  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-sum.el (gnus-summary-refer-thread): unconditionally ignore

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2010-10-16 01:55:08 +0000
+++ b/lisp/gnus/gnus-sum.el     2010-10-17 00:04:06 +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.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-10-15 10:24:10 +0000
+++ b/lisp/gnus/shr.el  2010-10-17 00:04:06 +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]"))