I wrote:
Suppose I use procmail as my delivery agent (instead of deliver)
and MH (actually mh-e in Emacs) to read mail.
What do people do to separate out (filter) the Debian mailing?
Andy Kahn [EMAIL PROTECTED] suggested I redirect to a file using
this in ~/.procmailrc
:0 f
* ^To: debian-user@lists.debian.org
debian
Dima [EMAIL PROTECTED] suggested MH's own folder refiler like this
in ~/.procmailrc:
:0:$MAILDIR/debian-user/.mh_sequences.$LOCKEXT
* ^FROMdebian-user.*
| /usr/lib/mh/rcvstore +debian-user
What I decided to do is to mail file to a second file (a spool file) such
that:
- I can download a copy from home using my PC's POP server.
- I can use an xbiff-like program to notify me of new mail.
So my filter looks like:
-- ~/.procmailrc --
MAILDIR=/var/spool/mail
:0
* ^From [EMAIL PROTECTED]
debian
-- ~/.procmailrc --
I wrote the following elisp code for Emacs to incorporate my newmail
simply by pressing `D' in a folder buffer.
Peter
-- e-mh-inc-procmail.el --
;; e-mh-inc-procmail --- inc(orporate) filtered mail into a specific folder
;; Copyright (C) 1994, 1995, 1996, 1997 Peter S. Galbraith
;; Author:Peter S. Galbraith [EMAIL PROTECTED]
;; Created: 12 Aug 1997
;; Version: 1.00 (12 Aug 97)
;; Keywords: mh-e, procmail, Debian
;; RCS $Id: e-mh-inc-procmail.el,v 1.4 1997/08/12 20:17:34 rhogee Exp $
;; Note: RCS version number does not correspond to release number.
;;; This file is not part of GNU Emacs.
;; This package is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This package is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;
;;; Commentary:
;; This minor hack is made to ease the use of mh-e when procmail is used to
;; filter a mailing list, by providing a quick way to `inc' the mailing
;; list's mail into a folder.
;; Usage instructions:
;; ~~
;; Use the `D' key in any e-mh folder to switch to your procmail folder
;; and incorporate new mail.
;;
;; The advantage to leaving mail on a spool file rather than using
;; a filter pipe to something like
;;| /usr/lib/mh/rcvstore +Debian
;; is that (1) I can use fetchmail from home to get a copy of the mail
;; and (2) I can use an xbiff-like program to monitor the mail spool, e.g.
;;
;; xbuffy -orig -acmd /usr/X11R6/bin/auplay
;; /usr/lib/tkdesk/sounds/newmail.au
;; -poll 10 -header 3
;; -command gnudoit -q '(e-mh-inc-procmail)'
;; /var/spool/mail/debian
;; Installation instructions:
;; ~
;; Create a ~/.procmailrc filter to send your mailing list's mail to
;; a file (See `C-h v e-mh-inc-procmail-mail-file' for details).
;;
;; setq the variables `e-mh-inc-procmail-mail-file' and
;; `e-mh-inc-procmail-folder' according to your re-routed spool file and
;; selected MH folder. e.g. put something like this in your ~/.emacs
;; (setq e-mh-inc-procmail-mail-file ~/Mail/debian-mail
;; e-mh-inc-procmail-folder+Debian)
;;
;; In the default settings, I read in /var/spool/mail/debian into the
;; +Debian folder.
;;
;;; Change log:
;; V1.00 August 12 97 - Peter Galbraith - Created
;;; Code:
(defvar e-mh-inc-procmail-mail-file /var/spool/mail/debian
Path to my Debian mail file, as filtered by procmail.
Use a procmail filter like so:
MAILDIR=/var/spool/mail
:0
* ^From [EMAIL PROTECTED]
debian
)
(defvar e-mh-inc-procmail-folder +Debian
MH Folder used for the procmail filtered mailing list.)
(defun e-mh-inc-procmail ()
Inc(orporate)s new Debian mail into the Debian folder
(interactive)
(cond
((eq 0 (elt (file-attributes e-mh-inc-procmail-mail-file) 7))
(message No new Debian mail))
(t
(let ((config (current-window-configuration)))
(cond ((not (get-buffer e-mh-inc-procmail-folder))
(mh-make-folder e-mh-inc-procmail-folder)
(setq mh-previous-window-config config))
((not (eq (current-buffer) (get-buffer e-mh-inc-procmail-folder)))
(switch-to-buffer e-mh-inc-procmail-folder)
(setq mh-previous-window-config config
(mh-get-new-mail e-mh-inc-procmail-mail-file)
(run-hooks 'mh-inc-folder-hook
(define-key mh-folder-mode-map D 'e-mh-inc-procmail)
(provide
