[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101984: shr.el (shr-tag-img): Don't
From: |
Katsumi Yamaoka |
Subject: |
[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. |
Date: |
Sun, 17 Oct 2010 00:04:06 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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]"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=