Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndoc.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 cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
35 (nnoo-declare nndoc) 35 (nnoo-declare nndoc)
36 36
37 (defvoo nndoc-article-type 'guess 37 (defvoo nndoc-article-type 'guess
38 "*Type of the file. 38 "*Type of the file.
39 One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward', 39 One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward',
40 `mime-digest', `standard-digest', `slack-digest', `clari-briefs' or 40 `rfc934', `mime-digest', `standard-digest', `slack-digest',
41 `guess'.") 41 `clari-briefs' or `guess'.")
42 42
43 (defvoo nndoc-post-type 'mail 43 (defvoo nndoc-post-type 'mail
44 "*Whether the nndoc group is `mail' or `post'.") 44 "*Whether the nndoc group is `mail' or `post'.")
45 45
46 (defvar nndoc-type-alist 46 (defvar nndoc-type-alist
61 (body-begin-function . nndoc-babyl-body-begin) 61 (body-begin-function . nndoc-babyl-body-begin)
62 (head-begin-function . nndoc-babyl-head-begin)) 62 (head-begin-function . nndoc-babyl-head-begin))
63 (forward 63 (forward
64 (article-begin . "^-+ Start of forwarded message -+\n+") 64 (article-begin . "^-+ Start of forwarded message -+\n+")
65 (body-end . "^-+ End of forwarded message -+$") 65 (body-end . "^-+ End of forwarded message -+$")
66 (prepare-body-function . nndoc-unquote-dashes))
67 (rfc934
68 (article-begin . "^-.*\n+")
69 (body-end . "^-.*$")
66 (prepare-body-function . nndoc-unquote-dashes)) 70 (prepare-body-function . nndoc-unquote-dashes))
67 (clari-briefs 71 (clari-briefs
68 (article-begin . "^ \\*") 72 (article-begin . "^ \\*")
69 (body-end . "^\t------*[ \t]^*\n^ \\*") 73 (body-end . "^\t------*[ \t]^*\n^ \\*")
70 (body-begin . "^\t") 74 (body-begin . "^\t")
405 (not (re-search-forward "^Subject:.*digest" nil t)) 409 (not (re-search-forward "^Subject:.*digest" nil t))
406 (not (re-search-backward "^From:" nil t 2)) 410 (not (re-search-backward "^From:" nil t 2))
407 (not (re-search-forward "^From:" nil t 2))) 411 (not (re-search-forward "^From:" nil t 2)))
408 t)) 412 t))
409 413
414 (defun nndoc-rfc934-type-p ()
415 (when (and (re-search-forward "^-+ Start of forwarded.*\n+" nil t)
416 (not (re-search-forward "^Subject:.*digest" nil t))
417 (not (re-search-backward "^From:" nil t 2))
418 (not (re-search-forward "^From:" nil t 2)))
419 t))
420
410 (defun nndoc-clari-briefs-type-p () 421 (defun nndoc-clari-briefs-type-p ()
411 (when (let ((case-fold-search nil)) 422 (when (let ((case-fold-search nil))
412 (re-search-forward "^\t[^a-z]+ ([^a-z]+) --" nil t)) 423 (re-search-forward "^\t[^a-z]+ ([^a-z]+) --" nil t))
413 t)) 424 t))
414 425