Mercurial > emacs
changeset 111129:2d713b285a70
gnus-group.el (gnus-group-completing-read): Remove all newlines from group names. They mess up the group buffer badly.
shr.el (shr-tag-strong): Added.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 24 Oct 2010 00:29:21 +0000 |
| parents | d38d192ed185 |
| children | 7be880404309 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-group.el lisp/gnus/shr.el |
| diffstat | 3 files changed, 17 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Oct 23 20:21:59 2010 -0400 +++ b/lisp/gnus/ChangeLog Sun Oct 24 00:29:21 2010 +0000 @@ -1,5 +1,12 @@ +2010-10-23 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * shr.el (shr-tag-strong): Added. + 2010-10-22 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-group.el (gnus-group-completing-read): Remove all newlines from + group names. They mess up the group buffer badly. + * shr.el (shr-tag-img): Don't bug out on images that don't have a SRC. * gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point
--- a/lisp/gnus/gnus-group.el Sat Oct 23 20:21:59 2010 -0400 +++ b/lisp/gnus/gnus-group.el Sun Oct 24 00:29:21 2010 +0000 @@ -2189,11 +2189,13 @@ require-match initial-input (or hist 'gnus-group-history) def)) - (if (if (listp collection) - (member group (mapcar 'symbol-name collection)) - (symbol-value (intern-soft group collection))) - group - (mm-encode-coding-string group (gnus-group-name-charset nil group))))) + (unless (if (listp collection) + (member group (mapcar 'symbol-name collection)) + (symbol-value (intern-soft group collection))) + (setq group + (mm-encode-coding-string + group (gnus-group-name-charset nil group)))) + (replace-regexp-in-string "\n" "" group))) ;;;###autoload (defun gnus-fetch-group (group &optional articles)
--- a/lisp/gnus/shr.el Sat Oct 23 20:21:59 2010 -0400 +++ b/lisp/gnus/shr.el Sun Oct 24 00:29:21 2010 +0000 @@ -441,6 +441,9 @@ (defun shr-tag-em (cont) (shr-fontize-cont cont 'bold)) +(defun shr-tag-strong (cont) + (shr-fontize-cont cont 'bold)) + (defun shr-tag-u (cont) (shr-fontize-cont cont 'underline))