Function: gnus-import-other-newsrc-file

gnus-import-other-newsrc-file is a byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-import-other-newsrc-file FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
;; Ad-hoc function for inserting data from a different newsrc.eld
;; file.  Use with caution, if at all.
(defun gnus-import-other-newsrc-file (file)
  (with-temp-buffer
    (insert-file-contents file)
    (let (form)
      (while (ignore-errors
	       (setq form (read (current-buffer))))
	(when (and (consp form)
		   (eq (cadr form) 'gnus-newsrc-alist))
	  (let ((infos (cadr (nth 2 form))))
	    (dolist (info infos)
	      (when (gnus-get-info (car info))
		(gnus-set-info (car info) info)))))))))