diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-01-25 10:36:00 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-01-25 10:36:00 +0000 |
| commit | 19e0dbe07dc31e855c5d864ad68a2915cf0f6026 (patch) | |
| tree | b546094c34906d65dcf3bfbbfc2d8584102d6812 /lisp | |
| parent | d709b79ac8969fd305b5bec23cb02b927dfe1507 (diff) | |
| download | emacs-19e0dbe07dc31e855c5d864ad68a2915cf0f6026.tar.gz | |
shr.el (shr-expand-newlines): Fix variable name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 16d0787f768..af4bebdd409 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-01-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * shr.el (shr-expand-newlines): Fix variable name. + 2011-01-25 Lars Ingebrigtsen <larsi@gnus.org> * shr.el (shr-expand-newlines): Make nested boxes work. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index aa05a061868..48aee4004db 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -663,23 +663,23 @@ ones, in case fg and bg are nil." (goto-char (point-min)) (while (not (eobp)) (end-of-line) - (when (and (< (setq current-column (current-column)) width) - (< (setq current-column (shr-previous-newline-padding-width - current-column)) + (when (and (< (setq column (current-column)) width) + (< (setq column (shr-previous-newline-padding-width column)) width)) (let ((overlay (make-overlay (point) (1+ (point))))) (overlay-put overlay 'before-string (concat (mapconcat (lambda (overlay) - (let ((string (getf (overlay-properties overlay) 'before-string))) + (let ((string (getf (overlay-properties overlay) + 'before-string))) (if (not string) "" (overlay-put overlay 'before-string "") string))) (overlays-at (point)) "") - (propertize (make-string (- width current-column) ? ) + (propertize (make-string (- width column) ? ) 'face (list :background color)))))) (forward-line 1))))) |