per-message automatic splitting (with Sieve)

per-message automatic splitting (with Sieve)

[Kai Großjohann]

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

I wonder if anybody is interested in the following which I've cooked
up for better use of nnimap with Sieve splitting on the Cyrus server.

You know, I used to be a great fan of nnmail-split-fancy-with-parent
which split a followup into the same group as the original.  I wanted
to have this for Sieve splitting, too, but there it is not so simple.

So I came up with the following method: I create custom Message-ID
headers which contain the right group name, and I do some Sieve rules
which grok this special Message-ID format.

Here's the code which creates my Message-ID headers:


[-- Attachment #2: Type: application/emacs-lisp, Size: 654 bytes --]

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

So this means that a Gcc field triggers the `right' token in the
message id, and if there is no Gcc field, Gnus looks at the current
group name.  It might be useful to look at the To/Cc headers, too.


[-- Attachment #4: Type: application/emacs-lisp, Size: 866 bytes --]

[-- Attachment #5: Type: text/plain, Size: 356 bytes --]

This piece of code takes a Sieve script and inserts rules which split
incoming messages based on the tokens in the Message-ID.

Hm.  I wonder, I should probably have used plus addressing, instead,
but our mail server does not grok plus addressing.  Argh :-(

Is anybody else doing something similar?  What do you do?

kai
-- 
Lisp is kinda like tpircstsoP

Re: per-message automatic splitting (with Sieve)

[Amos Gouaux]

>>>>> On Fri, 02 Nov 2001 17:32:16 +0100,
>>>>> Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (kg) writes:

kg> I wonder if anybody is interested in the following which I've cooked
kg> up for better use of nnimap with Sieve splitting on the Cyrus server.

This looks really slick.  Something fun to play with this weekend.

kg> Hm.  I wonder, I should probably have used plus addressing, instead,
kg> but our mail server does not grok plus addressing.  Argh :-(

As you can see, I rely on + addressing pretty heavily.  ;-)

kg> Is anybody else doing something similar?  What do you do?

Well, I'm doing something heinous for my lists and "roles".  I like
to subscribe to a list with a "+" address so that all discussions
pertaining to that list are located in that folder.  This includes
off-line discussions that relate to a topic originating on a list.
I find it easier to keep track of things that way.

Then there are cases in which I need to assume a particular "role",
like answering support questions or something.  Posting styles is a
start, but there is a gap (or so I was finding) between these
posting styles and message delivery.  Sooo..., this is the evil I
conjured up.  Forgive me.


*** /usr/local/lib/xemacs/xemacs-packages/lisp/mail-lib/smtpmail.el     Sun May 27 14:13:36 2001
--- smtpmail.el Fri Jul 20 10:01:19 2001
***************
*** 194,200 ****
--- 194,202 ----
  
  ;;;###autoload
  (defun smtpmail-send-it ()
+   (message "Using my smtpmail-send-it")
    (require 'mail-utils)
+   (require 'message) ; XXX
    (let ((errbuf (if mail-interactive
                    (generate-new-buffer " smtpmail errors")
                  0))
***************
*** 219,224 ****
--- 221,227 ----
          (backward-char 1)
          (setq delimline (point-marker))
  ;;      (sendmail-synch-aliases)
+           (run-hooks 'message-send-mail-hook) ; XXX
          (if (and mail-aliases (fboundp 'expand-mail-aliases)) ; XEmacs
              (expand-mail-aliases (point-min) delimline))
          (goto-char (point-min))


Then in my Gnus setup I've got:


(require 'sendmail)
(defun user-mail-address ()
  (message "user-mail-address---> %s" user-mail-address)
  user-mail-address)

(add-hook
 'message-send-mail-hook
 (function
  (lambda ()
    (message "Running message-send-mail-hook...")
    (let* ((from (message-fetch-field "from"))
           (mail-extr-ignore-single-names nil)
           (parsed-from (mail-extract-address-components from)))
      (setq user-full-name (car parsed-from))
      (setq user-mail-address (cadr parsed-from)))
    (message "user-full-name: %s" user-full-name)
    (message "user-mail-address: %s" user-mail-address))))


Yeah, I probably shouldn't be doing this, but I was running into
more problems with Gnus than with PINE without it.  I'm sure there's
a better way to deal with it, but my elisp tinkering is so sporadic.

-Amos

Re: per-message automatic splitting (with Sieve)

[Simon Josefsson]

Amos Gouaux <amos+lists.ding@utdallas.edu> writes:

> Then there are cases in which I need to assume a particular "role",
> like answering support questions or something.  Posting styles is a
> start, but there is a gap (or so I was finding) between these
> posting styles and message delivery.  Sooo..., this is the evil I
> conjured up.  Forgive me.

My slightly hacked versions of sendmail.el and smtpmail.el [1] would
support that by binding `mail-specify-envelope-from' non-nil and then
binding `mail-envelope-from' via e.g. a posting style. (Unless, of
course, I missunderstood what your code does.)

[1]: http://josefsson.org/{send,smtp}mail.el, part of the next XEmacs
mail-lib package once that is released, and maybe future Emacs
releases.

Re: per-message automatic splitting (with Sieve)

[ShengHuo ZHU]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> I wonder if anybody is interested in the following which I've cooked
> up for better use of nnimap with Sieve splitting on the Cyrus server.
>
> You know, I used to be a great fan of nnmail-split-fancy-with-parent
> which split a followup into the same group as the original.  I wanted
> to have this for Sieve splitting, too, but there it is not so simple.
>
> So I came up with the following method: I create custom Message-ID
> headers which contain the right group name, and I do some Sieve rules
> which grok this special Message-ID format.
>
> Here's the code which creates my Message-ID headers:

[...]

> This piece of code takes a Sieve script and inserts rules which split
> incoming messages based on the tokens in the Message-ID.

Sounds cool. What if I use your trick too, but I use folder
INBOX.sung.otua for Gnus mailing-list (I read some group name from
right to left and use folder INBOX.auto.gnus for automobile news :-).
Then my MID is blahblah.fsf@INBOX.sung.otua.tok.zsh.cs.rochester.edu.
Your trick breaks :-(.

ShengHuo

Re: per-message automatic splitting (with Sieve)

[Kai Großjohann]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Sounds cool. What if I use your trick too, but I use folder
> INBOX.sung.otua for Gnus mailing-list (I read some group name from
> right to left and use folder INBOX.auto.gnus for automobile news :-).
> Then my MID is blahblah.fsf@INBOX.sung.otua.tok.zsh.cs.rochester.edu.
> Your trick breaks :-(.

You mean it breaks because my code will match your token?  Hm.  I
should make the rules more specific to match only the _correct_ rhs.

Thanks for bringing this up.

kai
-- 
Lisp is kinda like tpircstsoP

Re: per-message automatic splitting (with Sieve)

[Paul Jarc]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:
> ;; Insert token into message id
> (defadvice message-make-fqdn (around group-token activate)
>   "Insert a token for the current group into the message id."

Wouldn't it be better to put the token on the left of the "@"?
message-make-fqdn is used for more than just Message-IDs, I think, and
it's possible you might generate an actual, different hostname,
risking a Message-ID collision.


paul

Re: per-message automatic splitting (with Sieve)

[Kai Großjohann]

prj@po.cwru.edu (Paul Jarc) writes:

> Wouldn't it be better to put the token on the left of the "@"?

Yes.  Thanks.

Ah, there's nothing like showing kluges to knowledgeable people to
help them get sorted out :-)

kai
-- 
Lisp is kinda like tpircstsoP