Commit abb97fbb authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-render-td): Only do colours at the final rendering. Should be slightly faster.

 (shr-insert-table): Fix up TD background colours when doing the vertical padding.
gnus-art.el (article-update-date-lapsed): Don't use current-column to find the horizontal position.  It's fragile in the presence of \003 characters.
parent 8c9da040
2011-02-01 Lars Ingebrigtsen <larsi@gnus.org>
 
* shr.el (shr-render-td): Only do colours at the final rendering.
Should be slightly faster.
(shr-insert-table): Fix up TD background colours when doing the
vertical padding.
* gnus-art.el (article-date-ut): Protect against articles with no Date
header.
(article-update-date-lapsed): Don't use current-column to find the
horizontal position. It's fragile in the presence of \003 characters.
 
* gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.
 
......
......@@ -3645,7 +3645,7 @@ function and want to see what the date was before converting."
(set-buffer (window-buffer w))
(when (eq major-mode 'gnus-article-mode)
(let ((old-line (count-lines (point-min) (point)))
(old-column (current-column)))
(old-column (- (point) (line-beginning-position))))
(goto-char (point-min))
(while (re-search-forward "^Date:" nil t)
(let ((type (get-text-property (match-beginning 0) 'gnus-date-type)))
......
......@@ -1055,8 +1055,11 @@ ones, in case fg and bg are nil."
;; possibly.
(dotimes (i (- height (length lines)))
(end-of-line)
(insert (make-string (string-width (car lines)) ? )
shr-table-vertical-line)
(let ((start (point)))
(insert (make-string (string-width (car lines)) ? )
shr-table-vertical-line)
(when (nth 4 column)
(shr-put-color start (1- (point)) :background (nth 4 column))))
(forward-line 1)))))
(shr-insert-table-ruler widths)))
......@@ -1173,17 +1176,18 @@ ones, in case fg and bg are nil."
(end-of-line)
(when (> (- width (current-column)) 0)
(insert (make-string (- width (current-column)) ? )))
(forward-line 1))))
(when style
(shr-colorize-region
(point-min) (point-max)
(cdr (assq 'color shr-stylesheet))
(cdr (assq 'background-color shr-stylesheet))))
(forward-line 1)))
(when style
(shr-colorize-region
(point-min) (point-max)
(cdr (assq 'color shr-stylesheet))
(cdr (assq 'background-color shr-stylesheet)))))
(if fill
(list max
(count-lines (point-min) (point-max))
(split-string (buffer-string) "\n")
(shr-collect-overlays))
(shr-collect-overlays)
(cdr (assq 'background-color shr-stylesheet)))
(list max
(shr-natural-width)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment