Lines Matching +defs:article +defs:begin
43 (defvoo nndoc-article-type 'guess
60 (article-begin . "^\^A\^A\^A\^A\n")
63 (article-begin . "")
64 (head-begin . "^ ?\n")
71 (article-transform-function . nndoc-transform-mime-parts))
73 (article-begin . "^From - "))
75 (article-begin . "^Path:"))
77 (article-begin . "^#! *rnews +\\([0-9]+\\) *\n")
80 (article-begin-function . nndoc-mbox-article-begin)
83 (article-begin . "\^_\^L *\n")
85 (body-begin-function . nndoc-babyl-body-begin)
86 (head-begin-function . nndoc-babyl-head-begin))
88 (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n")
91 (article-begin . "^--.*\n+")
95 (article-begin . "^--__--__--\n\nMessage:")
99 (article-begin . "^ \\*")
101 (body-begin . "^\t")
104 (article-transform-function . nndoc-transform-clari-briefs))
107 (first-article . ,(concat "^" (make-string 70 ?-) "\n *\n+"))
108 (article-begin . ,(concat "^\n" (make-string 30 ?-) "\n *\n+"))
112 (body-begin . "^ *\n")
116 (article-begin . "^------------------------------*[\n \t]+")
119 (body-begin . "^ ?$")
124 (article-begin . "^\\\\\\\\\n")
125 (head-begin . "^Paper.*:")
127 (body-begin . "")
131 (article-transform-function . nndoc-transform-lanl-gov-announce)
134 (article-begin . "^\n+")
137 (generate-article-function . nndoc-rfc822-forward-generate-article))
139 (article-begin-function . nndoc-outlook-article-begin)
144 (generate-article-function . nndoc-oe-dbx-generate-article))
146 (article-begin . "^-+ \\(Start of \\)?forwarded message.*\n+")
150 (article-begin-function . nndoc-mail-in-mail-article-begin))
166 (defvoo nndoc-file-begin nil)
167 (defvoo nndoc-first-article nil)
168 (defvoo nndoc-article-begin nil)
169 (defvoo nndoc-head-begin nil)
172 (defvoo nndoc-body-begin nil)
174 (defvoo nndoc-body-begin-function nil)
175 (defvoo nndoc-head-begin-function nil)
182 ;; SUMMARY-INSERT [6] give headers to insert for full article or summary line
188 (defvoo nndoc-article-transform-function nil)
189 (defvoo nndoc-article-begin-function nil)
190 (defvoo nndoc-generate-article-function nil)
214 (let (article entry)
218 (when (setq entry (cdr (assq (setq article (pop articles))
220 (insert (format "221 %d Article retrieved.\n" article))
222 (funcall nndoc-generate-head-function article)
234 (deffoo nndoc-request-article (article &optional newsgroup server buffer)
238 (entry (cdr (assq article nndoc-dissection-alist)))
244 ((stringp article) nil)
245 (nndoc-generate-article-function
246 (funcall nndoc-generate-article-function article))
257 (when nndoc-article-transform-function
258 (funcall nndoc-article-transform-function article))
277 (deffoo nndoc-request-type (group &optional article)
278 (cond ((not article) 'unknown)
347 (if (eq nndoc-article-type 'mime-parts)
361 (let ((vars '(nndoc-file-begin
362 nndoc-first-article
363 nndoc-article-begin-function
364 nndoc-head-begin nndoc-head-end
365 nndoc-file-end nndoc-article-begin
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
376 (while (assq 'guess (setq defs (cdr (assq nndoc-article-type
378 (setq nndoc-article-type (nndoc-guess-type nndoc-article-type)))
413 (defun nndoc-mbox-article-begin ()
449 (and (re-search-backward nndoc-article-begin nil t)
457 (defun nndoc-babyl-body-begin ()
461 (re-search-forward nndoc-article-begin nil t))
469 (defun nndoc-babyl-head-begin ()
501 (defun nndoc-rfc822-forward-generate-article (article &optional head)
502 (let ((entry (cdr (assq article nndoc-dissection-alist)))
503 (begin (point))
512 (narrow-to-region begin (point-max))
516 (goto-char begin)
521 (defun nndoc-rfc822-forward-generate-head (article)
522 (nndoc-rfc822-forward-generate-article article 'head))
536 (defun nndoc-transform-mime-parts (article)
537 (let* ((entry (cdr (assq article nndoc-dissection-alist)))
543 (defun nndoc-generate-mime-parts-head (article)
544 (let* ((entry (cdr (assq article nndoc-dissection-alist)))
559 (defun nndoc-transform-clari-briefs (article)
563 (nndoc-generate-clari-briefs-head article))
565 (defun nndoc-generate-clari-briefs-head (article)
566 (let ((entry (cdr (assq article nndoc-dissection-alist)))
607 (cons 'head-begin "^ ?\n")
609 (cons 'body-begin "^ ?\n")
610 (cons 'article-begin b-delimiter)
622 (and (re-search-forward nndoc-article-begin nil t)
633 (defun nndoc-transform-lanl-gov-announce (article)
650 (defun nndoc-generate-lanl-gov-head (article)
651 (let ((entry (cdr (assq article nndoc-dissection-alist)))
683 (defun nndoc-outlook-article-begin ()
730 (defun nndoc-oe-dbx-generate-article (article &optional head)
731 (let ((entry (cdr (assq article nndoc-dissection-alist)))
733 (begin (point))
744 (goto-char begin)
748 (goto-char begin)
754 (defun nndoc-oe-dbx-generate-head (article)
755 (nndoc-oe-dbx-generate-article article 'head))
772 (defun nndoc-mail-in-mail-article-begin ()
788 (deffoo nndoc-request-accept-article (group &optional server last)
804 art-begin head-begin head-end body-begin body-end)
815 (when nndoc-file-begin
816 (nndoc-search nndoc-file-begin))
818 (while (if (and first nndoc-first-article)
819 (nndoc-search nndoc-first-article)
820 (if art-begin
821 (goto-char art-begin)
822 (nndoc-article-begin)))
824 art-begin nil)
825 (cond (nndoc-head-begin-function
826 (funcall nndoc-head-begin-function))
827 (nndoc-head-begin
828 (nndoc-search nndoc-head-begin)))
833 (setq head-begin (point))
836 (if nndoc-body-begin-function
837 (funcall nndoc-body-begin-function)
838 (nndoc-search (or nndoc-body-begin "^\n")))
839 (setq body-begin (point))
844 (and (nndoc-article-begin)
845 (setq art-begin (point)))
852 (push (list (incf i) head-begin head-end body-begin body-end
853 (count-lines body-begin body-end))
856 (defun nndoc-article-begin ()
857 (if nndoc-article-begin-function
858 (funcall nndoc-article-begin-function)
860 (nndoc-search nndoc-article-begin))))
871 "Go through a MIME composite article and partition it into sub-articles.
872 When a MIME entity contains sub-entities, dissection produces one article for
873 the header of this entity, and one article per sub-entity."
880 (defun nndoc-dissect-mime-parts-sub (head-begin body-end article-insert
884 ARTICLE-INSERT should be added at beginning for generating a full article.
885 The string POSITION holds a dotted decimal representation of the article
890 head-end body-begin summary-insert message-rfc822 multipart-any
893 (goto-char head-begin)
897 body-begin (point))
899 body-begin body-end))
900 (narrow-to-region head-begin head-end)
902 (goto-char head-begin)
920 (when (or multipart-any (not article-insert))
925 ;; Prepare the article and summary inserts.
926 (unless article-insert
927 (setq article-insert (buffer-string)
928 head-end head-begin))
930 (unless (string-match "MIME-Version:" article-insert)
931 (setq article-insert
932 (concat article-insert "MIME-Version: 1.0\n")))
933 (setq summary-insert article-insert)
966 head-begin head-end body-begin body-end
967 (count-lines body-begin body-end)
968 article-insert summary-insert)
975 (nndoc-dissect-mime-parts-sub body-begin body-end nil
979 part-begin part-end eof-flag)
982 article-insert)
983 (setq article-insert (replace-match "" t t article-insert)))
985 (goto-char body-begin)
988 (setq part-begin (point))
1000 part-begin part-end article-insert