[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101867: shr, el: Allow shr table cha
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101867: shr, el: Allow shr table char to be customized. |
Date: |
Sat, 09 Oct 2010 08:44:12 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101867
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-09 08:44:12 +0000
message:
shr,el: Allow shr table char to be customized.
gnus-gravatar.el (gnus-gravatar-transform-address): Error errors when
retrieving gravatars.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-gravatar.el
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-08 23:55:33 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-09 08:44:12 +0000
@@ -1,3 +1,12 @@
+2010-10-09 Julien Danjou <address@hidden>
+
+ * 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 <address@hidden>
* mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
=== modified file 'lisp/gnus/gnus-gravatar.el'
--- a/lisp/gnus/gnus-gravatar.el 2010-10-08 07:35:21 +0000
+++ b/lisp/gnus/gnus-gravatar.el 2010-10-09 08:44:12 +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.
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2010-10-08 23:55:33 +0000
+++ b/lisp/gnus/shr.el 2010-10-09 08:44:12 +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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101867: shr, el: Allow shr table char to be customized.,
Katsumi Yamaoka <=