Re: TODO idea:

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

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

This is probably not what is desired, though it may be a part of it.
A not very long time ago, I also cared about keeping gnus and mh in
sync.  For incoming stuff, if I used MH to inc a folder, I had as part
of my gnus-select-group-hook (I think, though it may have been a
different hook) a call to nnml-generate-nov-databases-1.  Then, to
have gnus update the unseen sequence, I used the lisp found at the end
of this message.  If gnus incorporated the mail (which was becoming
more and more the normal case) I punted on the unseen sequence stuff.
I wanted to get it done, but none of the advices I put on the
nnml-accept functions ever seemed to work reliably.  For what its
worth, back then (I'm pretty sure the last time I ever bothered with
this, it was still September) nnmh didn't do anything with the mh
sequences either (does it now?).  Anyway, if this helps someone make
gnus deal better with mh, so much the better.  If not, I apologize for
the waste of bandwidth.

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


[-- Attachment #2: Type: text/plain, Size: 2386 bytes --]

(defun dsg-gnus-mh-make-seen (&optional doall)
  (if (eq (car
	   (gnus-group-method (if (eq major-mode 'gnus-group-mode)
				       (gnus-group-group-name)
				     gnus-newsgroup-name)))
	  'nnml)
      (let ((mark-cmd (concat mh-progs "/mark"))
	    (fldr-cmd (concat mh-progs "/folder"))
	    (fldr
	     (if (eq major-mode 'gnus-group-mode)
		 (substring (gnus-group-group-name) 5)
	       (substring nnml-current-directory (length mh-user-path)))))
	(call-process fldr-cmd nil nil nil
		      "-push" (concat "+" fldr))
	(cond ((eq doall 'all)
	       (call-process mark-cmd nil nil nil
			     "-sequence" "unseen" "-delete" "all"))
	      ((integerp doall)
	       (call-process mark-cmd nil nil nil
			     "-sequence" "unseen" "-delete"
			     (concat "1-" (int-to-string doall))))
	      (t
	       (call-process mark-cmd nil nil nil
			     "-sequence" "unseen" "-delete"
			     (int-to-string (gnus-summary-article-number)))))
	(call-process fldr-cmd nil nil nil "-pop"))))

(defadvice gnus-group-catchup (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-group-catchup-current (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-group-catchup-current-all (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup-all (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup-all-and-exit (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup-and-exit (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup-and-goto-next-group (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen 'all))

(defadvice gnus-summary-catchup-to-here (before make-seen activate)
  "Mark all messages as seen in MH."
  (dsg-gnus-mh-make-seen (gnus-summary-article-number)))

(defadvice gnus-summary-mark-as-expirable (before make-seen activate)
  "Mark the message as seen in MH."
  (dsg-gnus-mh-make-seen))