316 |
GROUP: Mail will be stored in GROUP (a string). |
GROUP: Mail will be stored in GROUP (a string). |
317 |
|
|
318 |
\(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message |
\(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message |
319 |
field FIELD (a regexp) contains VALUE (a regexp), store the messages |
field FIELD (a regexp) contains VALUE (a regexp), store the messages |
320 |
as specified by SPLIT. If RESTRICT (a regexp) matches some string |
as specified by SPLIT. If RESTRICT (a regexp) matches some string |
321 |
after FIELD and before the end of the matched VALUE, return nil, |
after FIELD and before the end of the matched VALUE, return nil, |
322 |
otherwise process SPLIT. Multiple RESTRICTs add up, further |
otherwise process SPLIT. Multiple RESTRICTs add up, further |
364 |
(any \"procmail@informatik\\\\.rwth-aachen\\\\.de\" \"procmail.list\") |
(any \"procmail@informatik\\\\.rwth-aachen\\\\.de\" \"procmail.list\") |
365 |
(any \"SmartList@informatik\\\\.rwth-aachen\\\\.de\" \"SmartList.list\") |
(any \"SmartList@informatik\\\\.rwth-aachen\\\\.de\" \"SmartList.list\") |
366 |
;; Both lists below have the same suffix, so prevent |
;; Both lists below have the same suffix, so prevent |
367 |
;; cross-posting to mkpkg.list of messages posted only to |
;; cross-posting to mkpkg.list of messages posted only to |
368 |
;; the bugs- list, but allow cross-posting when the |
;; the bugs- list, but allow cross-posting when the |
369 |
;; message was really cross-posted. |
;; message was really cross-posted. |
370 |
(any \"bugs-mypackage@somewhere\" \"mypkg.bugs\") |
(any \"bugs-mypackage@somewhere\" \"mypkg.bugs\") |
371 |
(any \"mypackage@somewhere\" - \"bugs-mypackage\" \"mypkg.list\") |
(any \"mypackage@somewhere\" - \"bugs-mypackage\" \"mypkg.list\") |
372 |
;; |
;; |
373 |
;; People... |
;; People... |
374 |
(any \"larsi@ifi\\\\.uio\\\\.no\" \"people.Lars Magne Ingebrigtsen\")) |
(any \"larsi@ifi\\\\.uio\\\\.no\" \"people.Lars Magne Ingebrigtsen\")) |
375 |
;; Unmatched mail goes to the catch all group. |
;; Unmatched mail goes to the catch all group. |
1047 |
(let (lines chars) |
(let (lines chars) |
1048 |
(save-excursion |
(save-excursion |
1049 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1050 |
(unless (search-forward "\n\n" nil t) |
(unless (search-forward "\n\n" nil t) |
1051 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1052 |
(insert "\n")) |
(insert "\n")) |
1053 |
(setq chars (- (point-max) (point))) |
(setq chars (- (point-max) (point))) |