ralph@laas.fr (Ralph P. Sobek) (09/08/90)
I also have had problems un-digesting UKTeX Digests. As an aside, is there a norm for Electronic Digests? TeXHax and Risks both seem to undigest quite nicely, but not 100% either (with GNUS). I have not seen the following posting, so I don't know if my software handles the new UKTeX format. > I have changed the format of this issue to allow the use of digest > `bursting' software which can break down a digest into individual > messages. Of course, if it doesn't I'd love to hear about it. I just wrote a simple GNUS emacs function to cleanup the UKTeX Digests before GNUS would undigestify them. So here it is. I add the following value to the gnus-Select-digest-hook variable: (if (and (string-equal "comp.text.tex" gnus-newsgroup-name) (string-match "^UKTeX Digest" (gnus-header-subject gnus-current-headers))) (gnus-Article-fixup-UKTeX)) and here's my fixer-upper function: (defun gnus-Article-fixup-UKTeX () (save-excursion (let ((count 3)) (while (> count 0) (setq count (1- count)) (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) (replace-match (concat (make-string 77 ?+) "\n")))) (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) (save-restriction (narrow-to-region (point) (point-max)) (goto-char (point-max)) (re-search-backward (concat "^" (make-string 55 ?-) "-*\n*")) (while (re-search-backward (concat "^" (make-string 55 ?-) "-*\n*") nil t) (replace-match (concat (make-string 77 ?+) "\n"))))) (while (re-search-forward (concat "\n\n" (make-string 27 ?=) "=*\n*") nil t) (replace-match (concat "\n\n" (make-string 27 ?-) "\n"))) (goto-char (point-max)) (insert "\nEnd of UKTeX Digest\n*********\n-----\n")) -- Ralph P. Sobek Disclaimer: The above ruminations are my own. ralph@laas.fr Addresses are ordered by importance. ralph@laas.uucp, or ...!uunet!laas!ralph If all else fails, try: sobek@eclair.Berkeley.EDU =============================================================================== Reliable software should kill people reliably! -Andy Mickel, Pascal News #13,78