Re: saving to nnml groups

[Ching-Mo Chang <chang@wsu.edu>]

"Darren/Torin/Who Ever..." <torin@daft.com> writes:

> 1) How do I save articles so that they appear in the .overview files?
>    If I just use gnus-summary-save-in-folder, it just uses rcvstore
>    which won't help.  I want to use gnus+nnml to read folders I save to.

I use `gnus-summary-save-in-nnml' as below. It was modified from
`gnus-summary-save-in-mail' function. It save current article to
`gnus-newsgroup-name' folder in "~/News/archive". It will update
the .overview and active files. I hope someone with more experiences
can provide a better one for this. 


(defun gnus-summary-save-in-nnml (&optional arg1 arg2)
  "Save this article using `nnml'."
  (interactive)
  (gnus-set-global-variables)
  (gnus-eval-in-buffer-window gnus-save-article-buffer
    (save-excursion
      (save-restriction
	(widen)
	(let ((nnml-directory "~/News/archive")
	      (nnml-active-file "~/News/archive/active"))
	  (nnml-request-accept-article gnus-newsgroup-name)
	  (nnml-save-nov))
	))))

(setq gnus-default-article-saver 'gnus-summary-save-in-nnml)

(defun gnus-summary-save-article-nnml (&optional arg)
  "Save the current article using `nnml'.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead."
  (interactive "P")
  (gnus-set-global-variables)
  (let ((gnus-default-article-saver 'gnus-summary-save-in-nnml))
    (gnus-summary-save-article arg)))


-- 
Ching-Mo Chang <chang@wsu.edu> <chang@theta.math.wsu.edu>