From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Nov 1999 03:47:28 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=d363d58b0f61436e63fe6ad57a7ba55a8ca6f457;p=gnus

*** empty log message ***
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 2e463bfa3..1c157d967 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2604,11 +2604,12 @@ just the host name."
 	     res)
 	(setq levels (- glen levels))
 	(dolist (g glist)
-	  (if (> (length g) 0)
-	      (push (if (>= (decf levels) 0)
-			(substring g 0 1)
-		      g)
-		    res)))
+	  (push (if (>= (decf levels) 0)
+		    (if (zerop (length g))
+			""
+		      (substring g 0 1))
+		  g)
+		res))
 	(concat foreign (mapconcat 'identity (nreverse res) "."))))))
 
 (defun gnus-narrow-to-body ()
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 47b36780c..3c4f54368 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -296,6 +296,9 @@
     (save-excursion
       (set-buffer nnslashdot-buffer)
       (goto-char (point-min))
+      (when (and (stringp article)
+		 (string-match "%\\([0-9]+\\)@" article))
+	(setq article (string-to-number (match-string 1 article))))
       (when (numberp article)
 	(if (= article 1)
 	    (progn
@@ -323,7 +326,7 @@
 	(let ((header (cdr (assq article nnslashdot-headers))))
 	  (nnheader-insert-header header))
 	(nnheader-report 'nnslashdot "Fetched article %s" article)
-	t))))
+	(cons group article)))))
 
 (deffoo nnslashdot-close-server (&optional server)
   (when (and (nnslashdot-server-opened server)
@@ -361,7 +364,8 @@
 
 (deffoo nnslashdot-request-newgroups (date &optional server)
   (nnslashdot-possibly-change-server nil server)
-  (nnslashdot-generate-active))
+  (nnslashdot-generate-active)
+  t)
 
 (deffoo nnslashdot-asynchronous-p ()
   nil)