[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102066: gnus-group.el (gnus-group-co
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102066: gnus-group.el (gnus-group-completing-read): Remove all newlines from group names. They mess up the group buffer badly. |
Date: |
Sun, 24 Oct 2010 00:29:21 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102066
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-24 00:29:21 +0000
message:
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.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-group.el
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-23 00:01:49 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-24 00:29:21 +0000
@@ -1,5 +1,12 @@
+2010-10-23 Lars Magne Ingebrigtsen <address@hidden>
+
+ * shr.el (shr-tag-strong): Added.
+
2010-10-22 Lars Magne Ingebrigtsen <address@hidden>
+ * 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
=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el 2010-10-23 00:01:49 +0000
+++ b/lisp/gnus/gnus-group.el 2010-10-24 00:29:21 +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)
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2010-10-23 00:01:49 +0000
+++ b/lisp/gnus/shr.el 2010-10-24 00:29:21 +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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102066: gnus-group.el (gnus-group-completing-read): Remove all newlines from group names. They mess up the group buffer badly.,
Katsumi Yamaoka <=