lisp/gnus/nndoc.el

53 (defvoo nndoc-open-document-hook 'nnheader-ms-strip-cr
54   "Hook run after opening a document.
55 The default function removes all trailing carriage returns
56 from the document.")
70      (generate-head-function . nndoc-generate-mime-parts-head)
71      (article-transform-function . nndoc-transform-mime-parts))
78      (body-end-function . nndoc-rnews-body-end))
80      (article-begin-function . nndoc-mbox-article-begin)
81      (body-end-function . nndoc-mbox-body-end))
85      (body-begin-function . nndoc-babyl-body-begin)
86      (head-begin-function . nndoc-babyl-head-begin))
89      (body-end-function . nndoc-exim-bounce-body-end-function))
93      (prepare-body-function . nndoc-unquote-dashes))
97      (prepare-body-function . nndoc-unquote-dashes))
103      (generate-head-function . nndoc-generate-clari-briefs-head)
104      (article-transform-function . nndoc-transform-clari-briefs))
109      (prepare-body-function . nndoc-unquote-dashes)
110      (body-end-function . nndoc-digest-body-end)
118      (body-end-function . nndoc-digest-body-end)
121      (prepare-body-function . nndoc-unquote-dashes)
130      (generate-head-function . nndoc-generate-lanl-gov-head)
131      (article-transform-function . nndoc-transform-lanl-gov-announce)
135      (body-end-function . nndoc-rfc822-forward-body-end-function)
136      (generate-head-function . nndoc-rfc822-forward-generate-head)
137      (generate-article-function . nndoc-rfc822-forward-generate-article))
139      (article-begin-function . nndoc-outlook-article-begin)
142      (dissection-function . nndoc-oe-dbx-dissection)
143      (generate-head-function . nndoc-oe-dbx-generate-head)
144      (generate-article-function . nndoc-oe-dbx-generate-article))
148      (prepare-body-function . nndoc-unquote-dashes))
150      (article-begin-function . nndoc-mail-in-mail-article-begin))
173 (defvoo nndoc-body-end-function nil)
174 (defvoo nndoc-body-begin-function nil)
175 (defvoo nndoc-head-begin-function nil)
186 (defvoo nndoc-prepare-body-function nil)
187 (defvoo nndoc-generate-head-function nil)
188 (defvoo nndoc-article-transform-function nil)
189 (defvoo nndoc-article-begin-function nil)
190 (defvoo nndoc-generate-article-function nil)
191 (defvoo nndoc-dissection-function nil)
221 	      (if nndoc-generate-head-function
222 		  (funcall nndoc-generate-head-function article)
245 	 (nndoc-generate-article-function
246 	  (funcall nndoc-generate-article-function article))
255 	  (when nndoc-prepare-body-function
256 	    (funcall nndoc-prepare-body-function))
257 	  (when nndoc-article-transform-function
258 	    (funcall nndoc-article-transform-function article))
340 	  (run-hooks 'nndoc-open-document-hook)))))
341     ;; Initialize the nndoc structures according to this new document.
356 ;;; Deciding what document type we have
360   "Set the nndoc delimiter variables according to the type of the document."
363 		nndoc-article-begin-function
366 		nndoc-body-begin nndoc-body-end-function nndoc-body-end
367 		nndoc-prepare-body-function nndoc-article-transform-function
368 		nndoc-generate-head-function nndoc-body-begin-function
369 		nndoc-head-begin-function
370 		nndoc-generate-article-function
371 		nndoc-dissection-function)))
498 (defun nndoc-rfc822-forward-body-end-function ()
589 (defun nndoc-exim-bounce-body-end-function ()
611 	       (cons 'body-end-function 'nndoc-digest-body-end)
801   "Go through the document and partition it into heads/bodies/articles."
812       (if nndoc-dissection-function
813 	  (funcall nndoc-dissection-function)
825 	  (cond (nndoc-head-begin-function
826 		 (funcall nndoc-head-begin-function))
836 	    (if nndoc-body-begin-function
837 		(funcall nndoc-body-begin-function)
840 	    (or (and nndoc-body-end-function
841 		     (funcall nndoc-body-end-function))
857   (if nndoc-article-begin-function
858       (funcall nndoc-article-begin-function)
1008   "Add document DEFINITION to the list of nndoc document definitions.