pop3.el - treating "From " at the beginning of lines

Hi, With XEmacs 21.2 \"Demeter\" [Lucid] (i586-pc-win32), pop3.el Version: 2.03 from the latest(?) mail-lib package, I had the following problem. In my setup, pgnus .80 reads mail from pop3, using pop3-movemail from mail-lib package's pop3.el. A message came in containing the following lines in its body: ---start qote--- |might want to try it and see how it fares. It's an 80KB download. | |From that webpage: |"Features: ---end qote--- The line starting with 'From' was interpreted by gnus as the start of a new message (which is AFAIK indeed that in mbox format) resulting in mail screwup (and loss). Below is my fix for pop3.el. I am *not* sure I put it in the right place, although it seems to work. People more knowledgeable about this code are welcome to fix the fix. The problem is real though. ----------------------------cut here------------------------------- --- e:\bin\XEmacs\xemacs-packages\lisp\mail-lib\pop3.el Mon Mar 08 22:36:12 1999 +++ pop3.el Mon Mar 29 12:39:59 1999 ＠＠ -310,9 +310,17 ＠＠ (defun pop3-clean-region (start end) "Convert MS-DOG style line endings to normal line endings. -Also remove '.' from the beginning of lines." +Also remove '.' from the beginning of lines. +Also escape 'From ' at the beginning of lines with '>'." (setq end (set-marker (make-marker) end)) (save-excursion + ;; unix mbox format treats "^From " as message start. Escape it. + (goto-char start) + (while (re-search-forward "^From " end t) + (progn + (goto-char (match-beginning 0)) + (insert ">"))) + ;; (goto-char start) (while (and (< (point) end) (search-forward "\r\n" end t)) (replace-match "\n" t t)) ----------------------------cut here------------------------------- -- Cheers, -Dima.