Function: gnus-write-active-file

gnus-write-active-file is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-write-active-file FILE HASHTB &optional FULL-NAMES)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-write-active-file (file hashtb &optional full-names)
  (let ((coding-system-for-write nnmail-active-file-coding-system))
    (with-temp-file file
      (maphash
       (lambda (group active)
	 (when active
	   (insert (format "%S %d %d y\n"
			   (if full-names
			       group
			     (gnus-group-real-name group))
			   (or (cdr active)
			       (car active))
			   (car active)))))
       hashtb)
      (goto-char (point-max))
      (while (search-backward "\\." nil t)
	(delete-char 1)))))