Re: [rgnus] FCC in message-mode to nnml group?

[dsg@linus.mitre.org (David S. Goldberg)]

[-- Attachment #1: Type: text/plain, Size: 820 bytes --]

I don't know if this will work in your situation, but it's what I use.
I got used to using Fcc with mh-e, which copies to MH folders.  My MH
folders are now my nnml groups, so I wanted an Fcc that would both
copy to the folder in MH style, but also update the overview file so I
wouldn't have to run nnml-generate-nov-databases.  I came up with the
following after poring over the nnml source.  I'm not sure how safe it
is to count on nnml-request-accept-article's calling convention but
it's the best I could find.

Note that I decided to grab the Fcc behavior from mh-e so
I'd get completion on group names.  That requires a bit of mucking
with the resulting string (have to convert from x/y/z to x.y.z) but to
me it's worth it.  If you don't use that then your
message-fcc-handler-function can be made much simpler.


[-- Attachment #2: Type: application/octet-stream, Size: 702 bytes --]

;;; from my .gnus

(require 'mh-e)
(require 'mh-comp)

(defun dsg-message-mh-fcc-to-nnml (fldr)
  "MH style Fcc with support for nnml usage."
  (let* ((fldr (substring fldr (1+ (length (getenv "HOME")))))
	 (group (if (= (string-to-char fldr) ?+)
		    (substring fldr 1)
		  fldr)))
    (if (string-match "/$" group)
	(setq group (replace-match "" nil nil group)))
    (while (string-match "/" group)
      (setq group (replace-match "." nil nil group)))
    (nnml-request-accept-article group nil t)))

(setq message-fcc-handler-function 'dsg-message-mh-fcc-to-nnml)

(add-hook 'message-mode-hook '(lambda ()
				(require 'mh-comp)
				(define-key message-mode-map
				  "\C-c\C-f\C-w" 'mh-to-fcc)))

[-- Attachment #3: Type: text/plain, Size: 131 bytes --]

--
Dave Goldberg
Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730
Phone: 617-271-3887
Email: dsg@mitre.org