*** empty log message ***

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 2e463bf..1c157d9 100644 (file)
--- 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 47b3678..3c4f543 100644 (file)
--- 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)