Make agent happy with nnslashdot.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee79b52..6d72a4f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,14 @@
+1999-11-07 21:07:55  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-active-to-gnus-format): Don't insert backslash
+       if cooked.
+       * gnus-util.el (gnus-write-active-file): Write cooked active file.
+       * gnus-agent.el (gnus-agent-save-group-info): Ditto.
+       * gnus.el (gnus-short-group-name): "..." proof.
+
 1999-11-07 20:03:16  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
-       * gnus-srvr.el (gnus-browse-foreign-server): Keeping use `read' to
+       * gnus-srvr.el (gnus-browse-foreign-server): Keep using `read' to
        support nnslashdot.
 
 1999-11-08 00:06:02  Lars Magne Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 76dfca3..1b16f3d 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -623,8 +623,8 @@ the actual number of articles toggled is returned."
        (when (re-search-forward
               (concat "^" (regexp-quote group) " ") nil t)
          (gnus-delete-line))
-       (insert group " " (number-to-string (cdr active)) " "
-               (number-to-string (car active)) " y\n")))))
+       (insert (format "%S %d %d y\n" (intern group) (cdr active)
+                       (car active)))))))
 
 (defun gnus-agent-group-path (group)
   "Translate GROUP into a path."

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 95a31db..847175a 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1760,11 +1760,13 @@ newsgroup."
      (t
       (delete-matching-lines (concat "^to\\.\\|" gnus-ignored-newsgroups))))
 
-    ;; Make the group names readable as a lisp expression even if they
-    ;; contain special characters.
-    (goto-char (point-max))
-    (while (re-search-backward "[][';?()#]" nil t)
-      (insert ?\\))
+    (goto-char (point-min))
+    (unless (re-search-forward "[\\\"]" nil t)
+      ;; Make the group names readable as a lisp expression even if they
+      ;; contain special characters.
+      (goto-char (point-max))
+      (while (re-search-backward "[][';?()#]" nil t)
+       (insert ?\\)))
 
     ;; Let the Gnus agent save the active file.
     (when (and gnus-agent real-active gnus-plugged)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 5cacabb..fac744c 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -946,10 +946,10 @@ ARG is passed to the first function."
        (when (and sym
                  (boundp sym)
                  (symbol-value sym))
-        (insert (format "%s %d %d y\n"
+        (insert (format "%S %d %d y\n"
                         (if full-names
-                            (symbol-name sym)
-                          (gnus-group-real-name (symbol-name sym)))
+                            sym
+                          (intern (gnus-group-real-name (symbol-name sym))))
                         (or (cdr (symbol-value sym))
                             (car (symbol-value sym)))
                         (car (symbol-value sym))))))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 4a4f257..2e463bf 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2604,12 +2604,13 @@ just the host name."
             res)
        (setq levels (- glen levels))
        (dolist (g glist)
-         (push (if (>= (decf levels) 0)
-                   (substring g 0 1)
-                 g)
-               res))
+         (if (> (length g) 0)
+             (push (if (>= (decf levels) 0)
+                       (substring g 0 1)
+                     g)
+                   res)))
        (concat foreign (mapconcat 'identity (nreverse res) "."))))))
-      
+
 (defun gnus-narrow-to-body ()
   "Narrow to the body of an article."
   (narrow-to-region