Commit 530f7b67 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

gnus-group.el (gnus-group-completing-read): Remove all newlines from group...

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.
parent 8a79905d
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
......
......@@ -2189,11 +2189,13 @@ if it is not a list."
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)
......
......@@ -441,6 +441,9 @@ Return a string with image data."
(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))
......
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