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.
Show replies by date