Mercurial > emacs
changeset 110873:d98a67277730
shr,el: Allow shr table char to be customized.
gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when retrieving gravatars.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 09 Oct 2010 08:44:12 +0000 |
| parents | 4e0e3c2c342c |
| children | 7996424ed273 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-gravatar.el lisp/gnus/shr.el |
| diffstat | 3 files changed, 26 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Oct 09 04:22:17 2010 +0000 +++ b/lisp/gnus/ChangeLog Sat Oct 09 08:44:12 2010 +0000 @@ -1,3 +1,12 @@ +2010-10-09 Julien Danjou <julien@danjou.info> + + * gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when + retrieving gravatars. + + * shr.el (shr-table-corner): Add. + (shr-table-line): Add. + (shr-insert-table-ruler): Use the above defcustoms to insert tables. + 2010-10-08 Julien Danjou <julien@danjou.info> * mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
--- a/lisp/gnus/gnus-gravatar.el Sat Oct 09 04:22:17 2010 +0000 +++ b/lisp/gnus/gnus-gravatar.el Sat Oct 09 08:44:12 2010 +0000 @@ -68,10 +68,11 @@ (and (cdr address) (string-match gnus-gravatar-too-ugly (cdr address))))) - (gravatar-retrieve - (car address) - 'gnus-gravatar-insert - (list header address category)))))))) + (ignore-errors + (gravatar-retrieve + (car address) + 'gnus-gravatar-insert + (list header address category))))))))) (defun gnus-gravatar-insert (gravatar header address category) "Insert GRAVATAR for ADDRESS in HEADER in current article buffer.
--- a/lisp/gnus/shr.el Sat Oct 09 04:22:17 2010 +0000 +++ b/lisp/gnus/shr.el Sat Oct 09 08:44:12 2010 +0000 @@ -53,6 +53,16 @@ :group 'shr :type 'regexp) +(defcustom shr-table-line ?- + "Character used to draw table line." + :group 'shr + :type 'char) + +(defcustom shr-table-corner ?+ + "Charater used to draw table corner." + :group 'shr + :type 'char) + (defvar shr-content-function nil "If bound, this should be a function that will return the content. This is used for cid: URLs, and the function is called with the @@ -532,9 +542,9 @@ (defun shr-insert-table-ruler (widths) (shr-indent) - (insert "+") + (insert shr-table-corner) (dotimes (i (length widths)) - (insert (make-string (aref widths i) ?-) ?+)) + (insert (make-string (aref widths i) shr-table-line) shr-table-corner)) (insert "\n")) (defun shr-table-widths (table suggested-widths)