Sync up with Pterodactyl Gnus v0.91, etc. See ChangeLog for more details.

[elisp/gnus.git-] / lisp / gnus-util.el

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3cd4b7b..d9db8f4 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -958,6 +958,17 @@ ARG is passed to the first function."
        (throw 'found nil)))
     t))
 
+(defun gnus-write-active-file-as-coding-system (coding-system file hashtb)
+  (let ((coding-system-for-write coding-system))
+    (with-temp-file file
+      (mapatoms
+       (lambda (sym)
+        (when (and sym (boundp sym))
+          (insert (format "%s %d %d y\n"
+                          (symbol-name sym) (cdr (symbol-value sym))
+                          (car (symbol-value sym))))))
+       hashtb))))
+
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here