;ELC ;;; compiled by gutnik@multics.mit.edu on Thu Jun 10 13:06:58 2004 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/xemacs-gnus-5.10.6/lisp/nndoc.el ;;; emacs version 21.4 (patch 4) "Artificial Intelligence" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`nndoc.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "!!!!!!\"̉F BDḂ" [nnoo-state-alist nnoo-definition-alist require nnheader message nnmail nnoo gnus-util mm-util nndoc mapcar #[(p) "C" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@324 *Type of the file. One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward', `rfc934', `rfc822-forward', `mime-parts', `standard-digest', `slack-digest', `clari-briefs', `nsmail', `outlook', `oe-dbx', `mailman', `exim-bounce', or `guess'. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nndoc-article-type 'guess (#$ . -847)) (nnoo-define 'nndoc-article-type nil) #@119 *Whether the nndoc group is `mail' or `post'. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nndoc-post-type 'mail (#$ . -1262)) (nnoo-define 'nndoc-post-type nil) #@186 Hook run after opening a document. The default function removes all trailing carriage returns from the document. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nndoc-open-document-hook 'nnheader-ms-strip-cr (#$ . 1466)) (byte-code "\" B!\"QB\"QBBBBBBBBBBBBBBBBBć" [nndoc-type-alist current-load-list nnoo-define nndoc-open-document-hook nil boundp (mmdf (article-begin . "^\n") (body-end . "^\n")) (mime-digest (article-begin . "") (head-begin . "^ ?\n") (head-end . "^ ?$") (body-end . "") (file-end . "") (subtype digest guess)) (mime-parts (generate-head-function . nndoc-generate-mime-parts-head) (article-transform-function . nndoc-transform-mime-parts)) (nsmail (article-begin . "^From - ")) (news (article-begin . "^Path:")) (rnews (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox (article-begin-function . nndoc-mbox-article-begin) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . " *\n") (body-end . "") (body-begin-function . nndoc-babyl-body-begin) (head-begin-function . nndoc-babyl-head-begin)) (exim-bounce (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n") (body-end-function . nndoc-exim-bounce-body-end-function)) (rfc934 (article-begin . "^--.*\n+") (body-end . "^--.*$") (prepare-body-function . nndoc-unquote-dashes)) (mailman (article-begin . "^--__--__--\n\nMessage:") (body-end . "^--__--__--$") (prepare-body-function . nndoc-unquote-dashes)) (clari-briefs (article-begin . "^ \\*") (body-end . "^ ------*[ ]^*\n^ \\*") (body-begin . "^ ") (head-end . "^ ") (generate-head-function . nndoc-generate-clari-briefs-head) (article-transform-function . nndoc-transform-clari-briefs)) standard-digest first-article "^" make-string 70 ?- "\n *\n+" article-begin "^\n" 30 ((prepare-body-function . nndoc-unquote-dashes) (body-end-function . nndoc-digest-body-end) (head-end . "^ *$") (body-begin . "^ *\n") (file-end . "^End of .*digest.*[0-9].*\n\\*\\*\\|^End of.*Digest *$") (subtype digest guess)) ((slack-digest (article-begin . "^------------------------------*[\n ]+") (head-end . "^ ?$") (body-end-function . nndoc-digest-body-end) (body-begin . "^ ?$") (file-end . "^End of") (prepare-body-function . nndoc-unquote-dashes) (subtype digest guess)) (lanl-gov-announce (article-begin . "^\\\\\\\\\n") (head-begin . "^Paper.*:") (head-end . "\\(^\\\\\\\\.*\n\\|-----------------\\)") (body-begin . "") (body-end . "\\(-------------------------------------------------\\|%-%-%-%-%-%-%-%-%-%-%-%-%-%-\\|%%--%%--%%--%%--%%--%%--%%--%%--\\|%%%---%%%---%%%---%%%---\\)") (file-end . "\\(^Title: Recent Seminal\\|%%%---%%%---%%%---%%%---\\)") (generate-head-function . nndoc-generate-lanl-gov-head) (article-transform-function . nndoc-transform-lanl-gov-announce) (subtype preprints guess)) (rfc822-forward (article-begin . "^\n") (body-end-function . nndoc-rfc822-forward-body-end-function)) (outlook (article-begin-function . nndoc-outlook-article-begin) (body-end . "")) (oe-dbx (dissection-function . nndoc-oe-dbx-dissection) (generate-head-function . nndoc-oe-dbx-generate-head) (generate-article-function . nndoc-oe-dbx-generate-article)) (forward (article-begin . "^-+ \\(Start of \\)?forwarded message.*\n+") (body-end . "^-+ End \\(of \\)?forwarded message.*$") (prepare-body-function . nndoc-unquote-dashes)) (mail-in-mail (article-begin-function . nndoc-mail-in-mail-article-begin)) (guess (guess . t) (subtype nil)) (digest (guess . t) (subtype nil)) (preprints (guess . t) (subtype nil)))] 19) #@37 Regexp for binary nndoc file names. (defvar nndoc-binary-file-names ".[Dd][Bb][Xx]$" (#$ . 5093)) (byte-code " B!\" B!\" B!\" B!\" B!\" B! \" B!\n\" B! \" B! \" B! \" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\"" [nndoc-head-end nndoc-head-begin nndoc-article-begin nndoc-first-article nndoc-file-begin current-load-list boundp nil nnoo-define nndoc-file-end nndoc-body-begin nndoc-body-end-function nndoc-body-begin-function nndoc-head-begin-function nndoc-body-end nndoc-dissection-alist nndoc-prepare-body-function nndoc-generate-head-function nndoc-article-transform-function nndoc-article-begin-function nndoc-generate-article-function nndoc-dissection-function nndoc-status-string "" nndoc-group-alist] 3) #@100 Current nndoc news buffer. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nndoc-current-buffer nil (#$ . 6067)) (byte-code "\" B!\"" [nndoc-address current-load-list nnoo-define nndoc-current-buffer nil boundp] 3) #@16 nndoc version. (defconst nndoc-version "nndoc 1.0" (#$ . 6336)) (nnoo-define-basics-1 'nndoc) (defalias 'nndoc-retrieve-headers #[(articles &optional newsgroup server fetch-old) " \"ފq ȉ @;ɪ A@An \"c\n\n ! @ A@#db`Sfac 8\"cc; +" [server newsgroup nndoc-generate-head-function articles article entry nndoc-possibly-change-buffer erase-buffer nil headers format "221 %d Article retrieved.\n" insert-buffer-substring ?\n "\n" "Lines: %d\n" 4 ".\n" nnheader-fold-continuation-lines nntp-server-buffer nndoc-dissection-alist nndoc-current-buffer] 4]) (nnoo-register-function 'nndoc-retrieve-headers) (defalias 'nndoc-request-article #[(article &optional newsgroup server buffer) "\"\n Aq ;? ! @ A@#c` 8 8# b  !," [nndoc-current-buffer nndoc-generate-article-function buffer beg article entry nndoc-possibly-change-buffer nil erase-buffer insert-buffer-substring "\n" 2 3 t nndoc-prepare-body-function nndoc-article-transform-function newsgroup server nntp-server-buffer nndoc-dissection-alist] 6]) (nnoo-register-function 'nndoc-request-article) #@20 Select news GROUP. (defalias 'nndoc-request-group #[(group &optional server dont-check) " \"\n# #̪GU ! # %)" [nndoc-dissection-alist dont-check nndoc-address server number group nil nndoc-possibly-change-buffer nnheader-report nndoc "No such file or buffer: %s" "Selected group %s" t 0 nndoc-close-group "No articles in group %s" nnheader-insert "211 %d %d %d %s\n" 1] 6 (#$ . 7503)]) (nnoo-register-function 'nndoc-request-group) (defalias 'nndoc-request-type #[(group &optional article) "‡ ‡" [article nndoc-post-type unknown] 1]) (nnoo-register-function 'nndoc-request-type) (defalias 'nndoc-close-group #[(group &optional server) "\n \" ! !\n \" \" \"͇" [nndoc-dissection-alist server group nndoc-group-alist nndoc-current-buffer nndoc-possibly-change-buffer buffer-name kill-buffer delq assoc nil nnoo-close-server nndoc t] 4]) (nnoo-register-function 'nndoc-close-group) (defalias 'nndoc-request-list #[(&optional server) "" [nil] 1]) (nnoo-register-function 'nndoc-request-list) (defalias 'nndoc-request-newgroups #[(date &optional server) "" [nil] 1]) (nnoo-register-function 'nndoc-request-newgroups) (defalias 'nndoc-request-list-newsgroups #[(&optional server) "" [nil] 1]) (nnoo-register-function 'nndoc-request-list-newsgroups) (defalias 'nndoc-possibly-change-buffer #[(group source) " ! \n \"Aa  ! ! ; ! !\n\nQ!B B q ; \" !) ; ! !!)  q a ) )" [nndoc-dissection-alist nndoc-group-alist group buf nndoc-current-buffer nndoc-address nil buffer-name assoc bufferp file-exists-p file-directory-p get-buffer-create " *nndoc " "*" erase-buffer string-match binary mm-insert-file-contents nnheader-insert-file-contents insert-buffer-substring run-hooks nndoc-open-document-hook nndoc-set-delims mime-parts nndoc-dissect-mime-parts nndoc-dissect-buffer nndoc-close-server nndoc-binary-file-names coding-system-for-read nndoc-article-type] 5]) #@74 Set the nndoc delimiter variables according to the type of the document. (defalias 'nndoc-set-delims #[nil "\n\nA@Ls) A !p @@\"! A@ALk)" [nndoc-type-alist nndoc-article-type vars defs (nndoc-file-begin nndoc-first-article nndoc-article-begin-function nndoc-head-begin nndoc-head-end nndoc-file-end nndoc-article-begin nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body-function nndoc-article-transform-function nndoc-generate-head-function nndoc-body-begin-function nndoc-head-begin-function nndoc-generate-article-function nndoc-dissection-function) nil guess nndoc-guess-type intern format "nndoc-%s"] 4 (#$ . 9532)]) (defalias 'nndoc-guess-type #[(subtype) " Ɖ \nA@ Asiebga!u @\"! N B BƉF ! @ \"!@A@," [subtype nndoc-type-alist alist results entry result nil (guess) ?\n delete-char 1 intern format "nndoc-%s-type-p" error "Document is not of any recognized type" last sort car-less-than-car] 5]) (defalias 'nndoc-mbox-type-p #[nil "!‡" [message-unix-mail-delimiter looking-at t] 2]) (defalias 'nndoc-mbox-article-begin #[nil "P#Ŕb" [message-unix-mail-delimiter re-search-forward "^" nil t 0] 4]) (defalias 'nndoc-mbox-body-end #[nil "`ĉP#` #\n#!! #` \\dU? dW b!) b+" [message-unix-mail-delimiter beg end len nil re-search-backward "^" t search-forward "\n\n" "^Content-Length:[ ]*\\([0-9]+\\) *$" string-to-int match-string 1 looking-at] 4]) (defalias 'nndoc-mmdf-type-p #[nil "!‡" [looking-at "$" t] 2]) (defalias 'nndoc-news-type-p #[nil "!‡" [looking-at "^Path:.*\n" t] 2]) (defalias 'nndoc-rnews-type-p #[nil "!‡" [looking-at "#! *rnews" t] 2]) (defalias 'nndoc-rnews-body-end #[nil "#y`!!\\b" [nndoc-article-begin re-search-backward nil t 1 string-to-int match-string] 4]) (defalias 'nndoc-babyl-type-p #[nil "#Ç" [re-search-forward " *\n" nil t] 4]) (defalias 'nndoc-babyl-body-begin #[nil "#!#)d #? bycy)" [nndoc-article-begin next re-search-forward "^\n" nil t looking-at "\\*\\*\\* EOOH \\*\\*\\*" -1 "\n"] 4]) (defalias 'nndoc-babyl-head-begin #[nil "#!yÇ" [re-search-forward "^[0-9].*\n" nil t looking-at "\\*\\*\\* EOOH \\*\\*\\*" 1] 4]) (defalias 'nndoc-forward-type-p #[nil "#!Ç" [re-search-forward "^-+ \\(Start of \\)?forwarded message.*\n+" nil t looking-at "[ \n]*[a-zA-Z][a-zA-Z0-9-]*:"] 4]) (defalias 'nndoc-rfc934-type-p #[nil "##?$?$?Ç" [re-search-forward "^-+ Start of forwarded.*\n+" nil t "^Subject:.*digest" re-search-backward "^From:" 2] 5]) (defalias 'nndoc-mailman-type-p #[nil "#Ç" [re-search-forward "^--__--__--\n+" nil t] 4]) (defalias 'nndoc-rfc822-forward-type-p #[nil " #)" [message-narrow-to-head re-search-forward "^Content-Type: *message/rfc822" nil t] 4]) (defalias 'nndoc-rfc822-forward-body-end-function #[nil "db" [] 1]) (defalias 'nndoc-mime-parts-type-p #[nil "#eb #*" [case-fold-search limit t search-forward "\n\n" nil re-search-forward "^Content-Type:[ ]*multipart/[a-z]+ *; *\\(\\(\n[ ]\\)?.*;\\)*\\(\n[ ]\\)?[ ]*boundary=\"?[^\"\n]*[^\" \n]"] 5]) (defalias 'nndoc-transform-mime-parts #[(article) " A 8eb\nc*" [nndoc-dissection-alist article headers entry 5] 3]) (defalias 'nndoc-generate-mime-parts-head #[(article) "\n A 8``} @ A@#db) c*" [nndoc-current-buffer nndoc-dissection-alist article headers entry 6 insert-buffer-substring] 4]) (defalias 'nndoc-clari-briefs-type-p #[nil "#)ć" [case-fold-search nil re-search-forward "^ [^a-z]+ ([^a-z]+) --" t] 4]) (defalias 'nndoc-transform-clari-briefs #[(article) "eb!ʼn#!" [article looking-at " *\\*\\(.*\\)\n" replace-match "" t nndoc-generate-clari-briefs-head] 4]) (defalias 'nndoc-generate-clari-briefs-head #[(article) "\n AƉq @ 8}eb!! \" ΉO#)!* ر+" [nndoc-current-buffer nndoc-dissection-alist article entry from subject nil 3 looking-at " *\\*\\(.*\\)$" match-string 1 string-match "[ ]+$" 0 re-search-forward "^ \\([^a-z]+\\(,[^(]+\\)? ([^a-z]+)\\) --" t "From: " "clari@clari.net (" "unknown" ")" "\nSubject: " "(no subject)" "\n" case-fold-search] 7]) (defalias 'nndoc-exim-bounce-type-p #[nil "#Ç" [re-search-forward "^------ This is a copy of the message, including all the headers. ------" nil t] 4]) (defalias 'nndoc-exim-bounce-body-end-function #[nil "db" [] 1]) (defalias 'nndoc-mime-digest-type-p #[nil "Ɖ#ɔ! QBBB BB QB," [nndoc-type-alist case-fold-search entry b-delimiter boundary-id t nil re-search-forward "^Content-Type: *multipart/digest;[ \n]*[ ]boundary=\"?\\([^\"\n]*[^\" \n]\\)" 1 match-string "\n--" "[ ]*$" mime-digest head-begin "^ ?\n" head-end "^ ?$" body-begin article-begin body-end-function nndoc-digest-body-end file-end "^--" "--[ ]*$"] 11]) (defalias 'nndoc-standard-digest-type-p #[nil "\"Q#\"Q#LJ" [re-search-forward "^" make-string 70 ?- "\n\n" nil t 30] 5]) (defalias 'nndoc-digest-body-end #[nil "#Ĕb" [nndoc-article-begin re-search-forward nil t 0] 4]) (defalias 'nndoc-slack-digest-type-p #[nil "" [0] 1]) (defalias 'nndoc-lanl-gov-announce-type-p #[nil "#)ć" [case-fold-search nil re-search-forward "^\\\\\\\\\nPaper\\( (\\*cross-listing\\*)\\)?: [a-zA-Z-\\.]+/[0-9]+" t] 4]) (defalias 'nndoc-transform-lanl-gov-announce #[(article) "db##eb##qeb##eb#?eb#eb!б" [re-search-backward "^\\\\\\\\ +( *\\([^ ]*\\) , *\\([^ ]*\\))" nil t replace-match "\n\nGet it at \\1 (\\2)" re-search-forward "^\\\\\\\\$" "" "^replaced with revised version +\\(.*[^ ]\\) +" "Date: \\1 (revised) " "^From" "^Authors?: \\(.*\\)" "From: " match-string 1 "\n"] 4]) (defalias 'nndoc-generate-lanl-gov-head #[(article) " Alj\"q\n@\nA@}eb!!Q##!!A@Q#!#!#! P! Q* \"Љ $p  ," [nndoc-dissection-alist article entry subject date from "" nil looking-at "^Paper.*: \\([a-zA-Z-\\.]+/[0-9]+\\)" " (" match-string 1 ")" re-search-forward "^From: \\(.*\\)" t "<" ">" "^Date: +\\([^(]*\\)" "^replaced with revised version +\\([^(]*\\)" "^Title: \\([^ ]*\\)\nAuthors?: \\(.*\\)" 2 " " string-match "([^)]*)" replace-match "" "From: " "unknown" "\nSubject: " "(no subject)" "\n" "Date: " nndoc-current-buffer gnus-extract-address-components] 6]) (defalias 'nndoc-nsmail-type-p #[nil "!‡" [looking-at "From - " t] 2]) (defalias 'nndoc-outlook-article-begin #[nil "#Ĕb" [re-search-forward "From:\\|Received:" nil t 0] 4]) (defalias 'nndoc-outlook-type-p #[nil "!" [looking-at "JMF"] 2]) (defalias 'nndoc-oe-dbx-type-p #[nil "!!" [looking-at mm-string-as-multibyte "ϭ"] 3]) (defalias 'nndoc-read-little-endian #[nil "fufu\"\\fu\"\\fu\"\\" [nil 1 lsh 8 16 24] 4]) (defalias 'nndoc-oe-dbx-decode-block #[nil " F" [nndoc-read-little-endian] 4]) (defalias 'nndoc-oe-dbx-dissection #[nil "Ɖb`m  @V 8U 8 V T ƉůB @V 8 V 8Tb h @ X A@X 8UƉ* @ A@\\\\ X\ndYƉ\nb\n  ," [nndoc-dissection-alist i tp p blk 0 nil 60117 nndoc-oe-dbx-decode-block 3 17] 7]) (defalias 'nndoc-oe-dbx-generate-article #[(article &optional head) "Ap`Ɖrq\n@eV b `r q 8\\#) 8T]) b#!s b#\nAAAA`d\"`Sd|-͇" [nndoc-current-buffer cur entry begin blk p nil nndoc-oe-dbx-decode-block insert-buffer-substring 2 3 re-search-forward " $" t delete-backward-char 1 search-forward "\n\n" count-lines article nndoc-dissection-alist head] 7]) (defalias 'nndoc-oe-dbx-generate-head #[(article) "\"" [article nndoc-oe-dbx-generate-article head] 3]) (defalias 'nndoc-mail-in-mail-type-p #[nil "Í*" [found nil done (byte-code "#y!!TynV]!X\"QÇ" [found re-search-forward "\n\n[-A-Za-z0-9]+:" nil t 0 looking-at "[ ]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw done 9999] 4)] 2]) (defalias 'nndoc-mail-in-mail-article-begin #[nil "‰č b*" [found point nil done (byte-code "#ǔy!! Tyn VZ!U\"Nć" [point found re-search-forward "\n\n\\([-A-Za-z0-9]+:\\)" nil t 0 1 looking-at "[ ]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw done] 4)] 2]) (defalias 'nndoc-request-accept-article #[(group &optional server last) "" [nil] 1]) (nnoo-register-function 'nndoc-request-accept-article) (defalias 'nndoc-search #[(regexp) "#y" [regexp re-search-forward nil t 0] 4]) #@70 Go through the document and partition it into heads/bodies/articles. (defalias 'nndoc-dissect-buffer #[nil "ȉqebga!u !! b ȉ !m\n\n!db>`!`  !` ! `db\n\n#y`T \"B9." [head-begin head-end nndoc-file-end body-begin body-end art-begin 0 t nil ?\n delete-char 1 nndoc-search nndoc-article-begin looking-at "^$" "^\n" re-search-backward count-lines first i nndoc-dissection-alist nndoc-dissection-function nndoc-file-begin nndoc-first-article nndoc-head-begin-function nndoc-head-begin nndoc-body-begin-function nndoc-body-end-function nndoc-body-end nndoc-current-buffer nndoc-head-end nndoc-body-begin] 9 (#$ . 18238)]) (defalias 'nndoc-article-begin #[nil " Ï" [nndoc-article-begin-function nil (nndoc-search nndoc-article-begin) ((error))] 3]) #@43 Unquote quoted non-separators in digests. (defalias 'nndoc-unquote-dashes #[nil "#É#q" [re-search-forward "^- -" nil t replace-match "-"] 4 (#$ . 19173)]) #@210 Go through a MIME composite article and partition it into sub-articles. When a MIME entity contains sub-entities, dissection produces one article for the header of this entity, and one article per sub-entity. (defalias 'nndoc-dissect-mime-parts #[nil "qedÉ%)" [nndoc-current-buffer nndoc-mime-split-ordinal nndoc-dissection-alist nil 0 nndoc-dissect-mime-parts-sub] 6 (#$ . 19347)]) #@416 Dissect an entity, within a composite MIME message. The complete message or MIME entity extends from HEAD-BEGIN to BODY-END. ARTICLE-INSERT should be added at beginning for generating a full article. The string POSITION holds a dotted decimal representation of the article position in the hierarchical structure, it is nil for the outer entity. PARENT is the message-ID of the parent summary line, or nil for none. (defalias 'nndoc-dissect-mime-parts-sub #[(head-begin body-end article-insert position parent) " ȉ<7:8B9;?E=bfau\n#`S;`9\n;\n9=;}=b! \" \" \"7Ә7ԘB՘8 \" \": \" \"!Q<:8 !:7 =; \" P @88@87ݘ7嘫7::\n \" Ɖ $ P)?Q \" Ɖ $ P)FFQ \" Ɖ $ P)GTG=;9\n9\n\" HBH~B9\n@?%)8<ȉ>ACD \"Ɖ $qE9b<\n#?>>?`C<\n#!!򘬃>y`Ay\nA>CA @DTD\"Q?%)2-. " [type line body-end content-type article-insert summary-insert t nnmail-message-id nil ?\n 1 search-forward "\n\n" message-fetch-field "Content-Type" string-match "^ *\\([^ \n/;]+\\)/\\([^ \n/;]+\\)" match-string 2 "message" "rfc822" "multipart" ";[ \n]*name=\\([^ \n;]+\\)" "boundary=\"?\\([^\"\n]*[^\" \n]\\)" "^--" regexp-quote "\\(--\\)?[ ]*\n" "Subject" "text" "plain" buffer-string "MIME-Version:" "MIME-Version: 1.0\n" "Subject: <" "." "*" " " "basic" ">" "\n" "Subject:.*\n\\([ ].*\n\\)*" replace-match "Message-ID: " "Message-ID:.*\n\\([ ].*\n\\)*" "References: " "References:.*\n\\([ ].*\n\\)*" count-lines nndoc-dissect-mime-parts-sub 0 "^\\(Lines\\|Content-\\(Type\\|Transfer-Encoding\\|Disposition\\)\\):.*\n\\([ ].*\n\\)*" "" re-search-forward -1 format "%d" subtype multipart-any body-begin subject head-end boundary-regexp head-begin eof-flag message-id position part-end message-rfc822 part-begin part-counter case-fold-search parent nndoc-mime-split-ordinal nndoc-dissection-alist] 13 (#$ . 19748)]) #@266 Add document DEFINITION to the list of nndoc document definitions. If POSITION is nil or `last', the definition will be added as the last checked definition, if t or `first', add as the first definition, and if any other symbol, add after that symbol in the alist. (defalias 'nndoc-add-type #[(definition &optional position) " @ \"\n\na C\na\na B\n s\n\" AB)" [list definition position nndoc-type-alist delq last t first error "No such position: %s"] 4 (#$ . 21830)]) (provide 'nndoc)