From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/11392 Path: main.gmane.org!not-for-mail From: dsg@linus.mitre.org (David S. Goldberg) Newsgroups: gmane.emacs.gnus.general Subject: Re: TODO idea: Date: 18 Jun 1997 10:55:00 -0400 Message-ID: References: Reply-To: dsg@mitre.org (David S. Goldberg) NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Wed_Jun_18_10:55:00_1997-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035151107 29980 80.91.224.250 (20 Oct 2002 21:58:27 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:58:27 +0000 (UTC) Return-Path: Original-Received: from sandy.calag.com (root@sandy [206.190.83.128]) by altair.xemacs.org (8.8.5/8.8.5) with ESMTP id KAA22442 for ; Wed, 18 Jun 1997 10:00:48 -0700 Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by sandy.calag.com (8.8.5/8.8.5) with ESMTP id KAA23433 for ; Wed, 18 Jun 1997 10:01:17 -0700 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id MAA23452 for ; Wed, 18 Jun 1997 12:00:44 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Wed, 18 Jun 1997 16:55:14 +0200 Original-Received: (qmail 18947 invoked by uid 504); 18 Jun 1997 14:55:09 -0000 Original-Received: (qmail 18944 invoked from network); 18 Jun 1997 14:55:08 -0000 Original-Received: from linus.mitre.org (129.83.10.1) by claymore.vcinet.com with SMTP; 18 Jun 1997 14:55:08 -0000 Original-Received: from blackbird.mitre.org (blackbird.mitre.org [129.83.65.14]) by linus.mitre.org (8.8.6/8.8.6) with ESMTP id KAA19028 for ; Wed, 18 Jun 1997 10:55:03 -0400 (EDT) Original-Received: (from dsg@localhost) by blackbird.mitre.org (8.8.5/8.8.2) id KAA03949; Wed, 18 Jun 1997 10:55:01 -0400 (EDT) Original-To: ding@gnus.org X-Face: GUaHTH@nS>[7,ME@-gYZ4#Wl{z"99k@[[Y8AcP0x1paqu.,z9,XSV1WI>{q3f6^e5(zrit <4fV&VHhmE`uidRqtmG27;si9&r;#KSF~E#$%W8w(xdp)H4tW=\2XOk~3=@oGqqpj;m4xf Ow;y26396&,34@9#~4;@*S;E0cq"LM9N(us4P%F(Nxis'Vvfm9?KufH;:Q$dMa-QWGLR&K d0`LJZE8xb*>^yN>b]_NcU:E=Zn\1=#/(OS2 In-Reply-To: Lars Magne Ingebrigtsen's message of "18 Jun 1997 14:09:41 +0200" X-Mailer: Gnus v5.4.58/Emacs 19.34 Original-Lines: 98 Original-Xref: altair.xemacs.org dgnus-list:1782 Xref: main.gmane.org gmane.emacs.gnus.general:11392 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:11392 --Multipart_Wed_Jun_18_10:55:00_1997-1 Content-Type: text/plain; charset=US-ASCII 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 --Multipart_Wed_Jun_18_10:55:00_1997-1 Content-Type: text/plain; charset=US-ASCII (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)) --Multipart_Wed_Jun_18_10:55:00_1997-1--