Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 111129:2d713b285a70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 d7e691f6ffc0
children 11259a64bfc0
line wrap: on
line diff
--- 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)