[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el |
Date: |
Fri, 04 Apr 2003 01:22:16 -0500 |
Index: emacs/lisp/gnus/nnmail.el
diff -c emacs/lisp/gnus/nnmail.el:1.18 emacs/lisp/gnus/nnmail.el:1.19
*** emacs/lisp/gnus/nnmail.el:1.18 Wed Jan 15 20:19:03 2003
--- emacs/lisp/gnus/nnmail.el Tue Feb 4 08:06:38 2003
***************
*** 316,322 ****
GROUP: Mail will be stored in GROUP (a string).
\(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message
! field FIELD (a regexp) contains VALUE (a regexp), store the messages
as specified by SPLIT. If RESTRICT (a regexp) matches some string
after FIELD and before the end of the matched VALUE, return nil,
otherwise process SPLIT. Multiple RESTRICTs add up, further
--- 316,322 ----
GROUP: Mail will be stored in GROUP (a string).
\(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message
! field FIELD (a regexp) contains VALUE (a regexp), store the messages
as specified by SPLIT. If RESTRICT (a regexp) matches some string
after FIELD and before the end of the matched VALUE, return nil,
otherwise process SPLIT. Multiple RESTRICTs add up, further
***************
*** 364,375 ****
(any \"address@hidden" \"procmail.list\")
(any \"address@hidden" \"SmartList.list\")
;; Both lists below have the same suffix, so prevent
! ;; cross-posting to mkpkg.list of messages posted only to
;; the bugs- list, but allow cross-posting when the
;; message was really cross-posted.
(any \"address@hidden" \"mypkg.bugs\")
(any \"address@hidden" - \"bugs-mypackage\" \"mypkg.list\")
! ;;
;; People...
(any \"address@hidden" \"people.Lars Magne Ingebrigtsen\"))
;; Unmatched mail goes to the catch all group.
--- 364,375 ----
(any \"address@hidden" \"procmail.list\")
(any \"address@hidden" \"SmartList.list\")
;; Both lists below have the same suffix, so prevent
! ;; cross-posting to mkpkg.list of messages posted only to
;; the bugs- list, but allow cross-posting when the
;; message was really cross-posted.
(any \"address@hidden" \"mypkg.bugs\")
(any \"address@hidden" - \"bugs-mypackage\" \"mypkg.list\")
! ;;
;; People...
(any \"address@hidden" \"people.Lars Magne Ingebrigtsen\"))
;; Unmatched mail goes to the catch all group.
***************
*** 1047,1053 ****
(let (lines chars)
(save-excursion
(goto-char (point-min))
! (unless (search-forward "\n\n" nil t)
(goto-char (point-max))
(insert "\n"))
(setq chars (- (point-max) (point)))
--- 1047,1053 ----
(let (lines chars)
(save-excursion
(goto-char (point-min))
! (unless (search-forward "\n\n" nil t)
(goto-char (point-max))
(insert "\n"))
(setq chars (- (point-max) (point)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el,
Miles Bader <=