Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndoc.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
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 `rfc934', `mime-digest', `standard-digest', `slack-digest', 40 `rfc934', `rfc822-forward', `mime-digest', `standard-digest',
41 `clari-briefs' or `guess'.") 41 `slack-digest', `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
97 (body-begin . "^ ?$") 97 (body-begin . "^ ?$")
98 (file-end . "^End of") 98 (file-end . "^End of")
99 (prepare-body-function . nndoc-unquote-dashes) 99 (prepare-body-function . nndoc-unquote-dashes)
100 (subtype digest guess)) 100 (subtype digest guess))
101 (lanl-gov-announce 101 (lanl-gov-announce
102 (article-begin . "^\\\\\\\\\n") 102 (article-begin . "^\\\\\\\\\n")
103 (head-begin . "^Paper.*:") 103 (head-begin . "^Paper.*:")
104 (head-end . "\\(^\\\\\\\\.*\n\\|-----------------\\)") 104 (head-end . "\\(^\\\\\\\\.*\n\\|-----------------\\)")
105 (body-begin . "") 105 (body-begin . "")
106 (body-end . "-------------------------------------------------") 106 (body-end . "-------------------------------------------------")
107 (file-end . "^Title: Recent Seminal") 107 (file-end . "^Title: Recent Seminal")
108 (generate-head-function . nndoc-generate-lanl-gov-head) 108 (generate-head-function . nndoc-generate-lanl-gov-head)
109 (article-transform-function . nndoc-transform-lanl-gov-announce) 109 (article-transform-function . nndoc-transform-lanl-gov-announce)
110 (subtype preprints guess)) 110 (subtype preprints guess))
111 (rfc822-forward
112 (article-begin . "^\n")
113 (body-end-function . nndoc-rfc822-forward-body-end-function))
111 (guess 114 (guess
112 (guess . t) 115 (guess . t)
113 (subtype nil)) 116 (subtype nil))
114 (digest 117 (digest
115 (guess . t) 118 (guess . t)
116 (subtype nil)) 119 (subtype nil))
117 (preprints 120 (preprints
118 (guess . t) 121 (guess . t)
119 (subtype nil)) 122 (subtype nil))))
120 ))
121 123
122 124
123 125
124 (defvoo nndoc-file-begin nil) 126 (defvoo nndoc-file-begin nil)
125 (defvoo nndoc-first-article nil) 127 (defvoo nndoc-first-article nil)
415 (when (and (re-search-forward "^-+ Start of forwarded.*\n+" nil t) 417 (when (and (re-search-forward "^-+ Start of forwarded.*\n+" nil t)
416 (not (re-search-forward "^Subject:.*digest" nil t)) 418 (not (re-search-forward "^Subject:.*digest" nil t))
417 (not (re-search-backward "^From:" nil t 2)) 419 (not (re-search-backward "^From:" nil t 2))
418 (not (re-search-forward "^From:" nil t 2))) 420 (not (re-search-forward "^From:" nil t 2)))
419 t)) 421 t))
422
423 (defun nndoc-rfc822-forward-type-p ()
424 (save-restriction
425 (message-narrow-to-head)
426 (when (re-search-forward "^Content-Type: *message/rfc822" nil t)
427 t)))
428
429 (defun nndoc-rfc822-forward-body-end-function ()
430 (goto-char (point-max)))
420 431
421 (defun nndoc-clari-briefs-type-p () 432 (defun nndoc-clari-briefs-type-p ()
422 (when (let ((case-fold-search nil)) 433 (when (let ((case-fold-search nil))
423 (re-search-forward "^\t[^a-z]+ ([^a-z]+) --" nil t)) 434 (re-search-forward "^\t[^a-z]+ ([^a-z]+) --" nil t))
424 t)) 435 t))