Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-nocem.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 360340f9fd5f
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
143 ;; this cross posted message. Nocem messages 143 ;; this cross posted message. Nocem messages
144 ;; are not allowed to have references, so we can 144 ;; are not allowed to have references, so we can
145 ;; ignore scanning followups. 145 ;; ignore scanning followups.
146 (and (string-match "@@NCM" (mail-header-subject header)) 146 (and (string-match "@@NCM" (mail-header-subject header))
147 (or gnus-nocem-liberal-fetch 147 (or gnus-nocem-liberal-fetch
148 (and (string= "" (mail-header-references header)) 148 (and (or (string= "" (mail-header-references
149 header))
150 (null (mail-header-references header)))
149 (not (member (mail-header-message-id header) 151 (not (member (mail-header-message-id header)
150 gnus-nocem-seen-message-ids)))) 152 gnus-nocem-seen-message-ids))))
151 (gnus-nocem-check-article group header))))))) 153 (gnus-nocem-check-article group header)))))))
152 (setq gnus-nocem-active 154 (setq gnus-nocem-active
153 (cons (list group gactive) 155 (cons (list group gactive)