From: yamaoka <yamaoka>
Date: Fri, 10 Jan 2003 04:31:48 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_12-00-quimby~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=12120e04b3f8e860a3df6de3ca0b32ac0522d6cc;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/etc/gnus/preview.xbm b/etc/gnus/preview.xbm
new file mode 100644
index 0000000..a42e153
--- /dev/null
+++ b/etc/gnus/preview.xbm
@@ -0,0 +1,10 @@
+#define preview_width 24
+#define preview_height 24
+static char preview_bits[] = {
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0xc0,0x03,0x00,0x3e,0x06,0xf0,0x03,0x04,0x08,0x00,0x0a,0x78,0x00,0x09,
+ 0x88,0xf9,0x08,0x10,0xc6,0x10,0x10,0x3a,0x13,0x10,0x06,0x15,0x20,0x02,0x29,
+ 0x20,0x02,0x31,0x20,0xad,0x0f,0x40,0xf9,0x03,0xc0,0xb8,0x07,0x80,0x07,0x0e,
+ 0x80,0x01,0x1c,0x00,0x00,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc8,0x00,
+ 0x00,0x00,0x39,0x00,0x00,0x00,0x08,0xc0,0x12,0x42,0x00,0x00,0x00,0x00,0x38,
+ 0x82,0x18,0x08,0x00,0x00,0x00 };
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ce6d06..b3e21af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-01-10  Simon Josefsson  <jas@extundo.com>
+
+	* gnus-sum.el (gnus-summary-read-group-1): Don't select first
+	undownloaded/downloadable only when unplugged.
+
+2003-01-10  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-srvr.el (gnus-browse-foreign-server): Optimize inner loop.
+
 2003-01-09  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* spam.el (spam-check-ifile): fixed call-process-region to use the
diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index d2b6022..2c846b9 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -1,5 +1,5 @@
 ;;; gnus-srvr.el --- virtual server support for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -721,22 +721,22 @@ The following commands are available:
 	    (delete-matching-lines gnus-ignored-newsgroups))
 	  (while (not (eobp))
 	    (ignore-errors
-	     (push (cons
-		    (if (eq (char-after) ?\")
-			(read cur)
-		      (let ((p (point)) (name ""))
-			(skip-chars-forward "^ \t\\\\")
-			(setq name (buffer-substring p (point)))
-			(while (eq (char-after) ?\\)
-			  (setq p (1+ (point)))
-			  (forward-char 2)
-			  (skip-chars-forward "^ \t\\\\")
-			  (setq name (concat name (buffer-substring
-						   p (point)))))
-			name))
-		    (let ((last (read cur)))
-		      (cons (read cur) last)))
-		   groups))
+	      (push (cons
+		     (if (eq (char-after) ?\")
+			 (read cur)
+		       (let ((p (point)) (name ""))
+			 (skip-chars-forward "^ \t\\\\")
+			 (setq name (buffer-substring p (point)))
+			 (while (eq (char-after) ?\\)
+			   (setq p (1+ (point)))
+			   (forward-char 2)
+			   (skip-chars-forward "^ \t\\\\")
+			   (setq name (concat name (buffer-substring
+						    p (point)))))
+			 name))
+		     (let ((last (read cur)))
+		       (cons (read cur) last)))
+		    groups))
 	    (forward-line))))
       (setq groups (sort groups
 			 (lambda (l1 l2)
@@ -767,27 +767,27 @@ The following commands are available:
 	       (format
 		"Gnus: %%b {%s:%s}" (car method) (cadr method))))
 	(let ((buffer-read-only nil)
-	      charset
+	      name
 	      (prefix (let ((gnus-select-method orig-select-method))
 			(gnus-group-prefixed-name "" method))))
-	  (dolist (group groups)
-	    (setq charset (gnus-group-name-charset method (car group)))
+	  (while (setq group (pop groups))
 	    (gnus-add-text-properties
 	     (point)
 	     (prog1 (1+ (point))
 	       (insert
 		(format "%c%7d: %s\n"
 			(let ((level (gnus-group-level
-				      (concat prefix (car group)))))
+				      (concat prefix (setq name (car group))))))
 			  (cond
 			   ((<= level gnus-level-subscribed) ? )
 			   ((<= level gnus-level-unsubscribed) ?U)
 			   ((= level gnus-level-zombie) ?Z)
 			   (t ?K)))
 			(max 0 (- (1+ (cddr group)) (cadr group)))
-			(gnus-group-name-decode (car group) charset))))
-	     (list 'gnus-group (car group)))
-	    (setq groups (cdr groups))))
+			(decode-coding-string
+			 name
+			 (inline (gnus-group-name-charset method name))))))
+	     (list 'gnus-group name))))
 	(switch-to-buffer (current-buffer)))
       (goto-char (point-min))
       (gnus-group-position-point)
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8e05e70..b1744d1 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3504,8 +3504,9 @@ If SHOW-ALL is non-nil, already read articles are also listed."
 	    (progn
 	      (gnus-configure-windows 'summary)
 	      (let ((art (gnus-summary-article-number)))
-		(unless (or (memq art gnus-newsgroup-undownloaded)
-			    (memq art gnus-newsgroup-downloadable))
+		(unless (and (not gnus-plugged)
+			     (or (memq art gnus-newsgroup-undownloaded)
+				 (memq art gnus-newsgroup-downloadable)))
 		  (gnus-summary-goto-article art))))
 	  ;; Don't select any articles.
 	  (gnus-summary-position-point)