/[emacs]/emacs/lisp/gnus/nnmail.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by zsh, Thu Jan 16 01:19:03 2003 UTC revision 1.19 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 316  the following: Line 316  the following:
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
# Line 364  Example: Line 364  Example:
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.
# Line 1047  Return the number of characters in the b Line 1047  Return the number of characters in the b
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)))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26