From: keiichi <keiichi>
Date: Mon, 27 Dec 1999 04:20:48 +0000 (+0000)
Subject: (gnus-write-active-file): Copy from Gnus 5.8.2.
X-Git-Tag: nana-gnus-6_13_12~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=03f05ba0423cecb24f1cb6eb992b2d1145d1e241;p=elisp%2Fgnus.git-

(gnus-write-active-file): Copy from Gnus 5.8.2.
---

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index a13012e..d9d2c32 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1004,6 +1004,25 @@ ARG is passed to the first function."
 	  re
 	  (unless (string-match "\\$$" re) ".*$")))
 
+(defun gnus-write-active-file (file hashtb &optional full-names)
+  (with-temp-file file
+    (mapatoms
+     (lambda (sym)
+       (when (and sym
+		  (boundp sym)
+		  (symbol-value sym))
+	 (insert (format "%S %d %d y\n"
+			 (if full-names
+			     sym
+			   (intern (gnus-group-real-name (symbol-name sym))))
+			 (or (cdr (symbol-value sym))
+			     (car (symbol-value sym)))
+			 (car (symbol-value sym))))))
+     hashtb)
+    (goto-char (point-max))
+    (while (search-backward "\\." nil t)
+      (delete-char 1))))
+
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here