From: " from "In")) (when subject (message-remove-header "subject") (goto-char (point-max)) (insert

From: " from "In")) (when subject (message-remove-header "subject") (goto-char (point-max)) (insert "Subject: " subject "In")) (when id (goto-char (point-max)) (insert "X-Message-ID: c" id ">\n")) (when date (message-remove-header "date") (goto-char (point-max)) (insert "Date: " date "In")) (goto-char (point-max)) (widen) (insert "In")) (setq p (point)) (when (search-forward "X-Body-of-Message" nil t) (forward-line) (delete-region p (point)) (search-forward "X-Body-of-Message-End" nil t) (beginning- of-line) (save-restriction (narrow-to-region p (point)) (goto-char (point-min)) (if (> (skip-chars-forward "I0401nIr1t") 0) (delete-region (point-min) (point))) (while (not (eobp)) (cond ((looking-at "<PRE>Ir? In?") (delete-region (match-beginning 0) (match-end 0)) (setq p (point)) (when (search-forward " <PRE>" nil t) (delete-region (match-beginning 0) (match-end 0)) (save-restriction (narrow-to-region p (point)) (mm-url-remove-markup) (mm-url-decode-entities) (goto-char (point-max))))) ((looking-at " <p>cA FIREF=1"11([^11-F11)") (setq url (match-string I)) (delete-region (match-beginning 0) (progn (forward-line) (point))) ;; I hate to download the url encode it, then immediately ;; decode it. (insert " <iiextemal" " type=" (or (and url (string-match "11.[^11.]+$" url) (mailcap-extension-to-mime (match- string 0 url))) "application/octet-stream") (format " ur1=1"http://www.mail-archive.corn/%s/%sr" group url) ">ln" "<#/external>") (setq mime t)) (t (setq p (point)) (insert "c#part type=1"text/htmll" disposition=inline>") (goto-char (if (re-search-forward "[10401n1r1t]*<PRE>111[10401n1rIt]*<P>cA HREF=1"" nil t) (match-beginning 0) (point-max))) (insert "<#/part>") (setq mime t))) (setq p (point)) (if (> (skip-chars-forward "10401n1r1t") 0) (delete-region p (point)))) (goto-char (point-max)))) (setq p (point)) (when (search-forward "X-References-End" nil t) (setq e (point)) (beginning-of-line) (search- backward "X-References" p t) (while (re-search-forward "msg11([0-9]+11)11.html" e t) (push (concat "<" (match-string 1) "%" group ">") refs))) (delete-region p (point-max)) (goto-char (point-min)) (insert (format "Message-ID: c%05d%%%s>ln" (I- article) group)) (when refs (insert "References:") (while refs (insert " " (pop refs))) (insert "In")) (when mime (unless (looking-at "$") (search-forward "Inln" nil t) (forward-line -1)) (narrow-to-region (point) (point-max)) (insert "MIME-Version: 1.01n" (progl (mml-generate-mime) (delete-region (point-min) (point-max)))) (widen))) (buffer-string))) (provide 'nnwarchive) EFTA00502789