POP handling bug

POP handling bug

[Ken Raeburn]

September Gnus v0.26; nntp 4.0; nnvirtual 1.0; nnml 1.0; nnmh 1.0
GNU Emacs 19.30.1 (alpha-dec-osf3.2) of Tue Dec 12 1995 on cujo.cygnus.com


Greg Stark and I just sat down and tracked down a long-standing
problem he and others have been seeing with the POP code I submitted
some time ago.  It turns out there are variations in how movemail
writes the mail headers.  One version (which is the one my company
includes with its network security software) writes the "EOOH" line.
The version in the current emacs release does not.  The code I
submitted (and sgnus-0.26) assumed the line would always be there.
This patch should make the line optional:

--- nnmail.el~	Wed Dec 20 22:09:47 1995
+++ nnmail.el	Mon Jan 15 23:56:02 1996
@@ -451,7 +451,7 @@
   (let (start message-id content-length do-search end)
     (while (not (eobp))
       (goto-char (point-min))
-      (re-search-forward "\f\n0, *unseen,+\n\\*\\*\\* EOOH \\*\\*\\*\n" nil t)
+      (re-search-forward "\f\n0, *unseen,+\n\\(\\*\\*\\* EOOH \\*\\*\\*\n\\)?" nil t)
       (goto-char (match-end 0))
       (delete-region (match-beginning 0) (match-end 0))
       (setq start (point))


------------------- Environment follows -------------------

(setq gnus-default-nntp-server "")
(setq gnus-local-domain "cygnus.com")
(setq gnus-local-organization "Cygnus Support, Cambridge MA")
(setq gnus-select-method '(nntp "cambridge-news.cygnus.com"))
(setq gnus-secondary-select-methods '((nnml "")))
(setq gnus-startup-file "~/News/.newsrc")
(setq gnus-use-cross-reference 42)
(setq gnus-summary-make-false-root nil)
(setq gnus-summary-gather-subject-limit 'fuzzy)
(setq gnus-decode-encoded-word-method #[nil "@\a" [nil] 1])
(setq gnus-ignored-newsgroups "^aus\\.\\|^ba\\.\\|^bionet\\.\\|^bit\\.\\|^dc\\.\\|^de\\.\\|^eunet\\.\\|^fj\\.\\|^fr\\.\\|^hiv\\.\\|^info\\.\\|^k12\\.\\|^k5\\.\\|^k7\\.\\|^no\\.\\|^ny\\.\\|^soc\\.\\|^sub\\.\\|^talk\\.\\|^usa-today\\.\\|^vmsnet\\.")
(setq gnus-auto-center-summary nil)
(setq gnus-summary-line-format "%U%R%z%I%6N %d%[%4L:%-15,15n%] %s
")
(setq gnus-auto-expirable-newsgroups "nnml:.*")
(setq gnus-hidden-properties '(invisible t))
(setq gnus-startup-hook '(#[nil "@AB\"\b@AC\"\bD\x15@FB\"\a" [remove-hook gnus-summary-prepare-hook hilit-rehighlight-buffer-quietly hilit-install-line-hooks (gnus-summary-mark-unread-as-read) gnus-mark-article-hook gnus-article-prepare-hook] 3]))
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-keep-last-article t)
(setq nnmail-expiry-wait 5)
(setq nnmail-spool-file "po:raeburn")
(setq nnmail-movemail-program "/usr/kerberos/bin/movemail")