Mercurial > hg > xemacs-beta

comparison lisp/gnus/pop3.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 1a767b41a199
children 43dd3413c7c7
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
2 2
3 ;; Copyright (C) 1996, Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, Free Software Foundation, Inc.
4 4
5 ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net> 5 ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
6 ;; Keywords: mail, pop3 6 ;; Keywords: mail, pop3
7 ;; Version: 1.3c 7 ;; Version: 1.3e
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
227 ;; like writing a date to day converter. 227 ;; like writing a date to day converter.
228 (format "Sun %s %s %s %s" 228 (format "Sun %s %s %s %s"
229 (nth 1 date) (nth 0 date) 229 (nth 1 date) (nth 0 date)
230 (nth 3 date) (nth 2 date))) 230 (nth 3 date) (nth 2 date)))
231 )) 231 ))
232 (setq From_ (format "From %s %s\n" from date)) 232 (setq From_ (format "\nFrom %s %s\n" from date))
233 (while (string-match "," From_) 233 (while (string-match "," From_)
234 (setq From_ (concat (substring From_ 0 (match-beginning 0)) 234 (setq From_ (concat (substring From_ 0 (match-beginning 0))
235 (substring From_ (match-end 0))))) 235 (substring From_ (match-end 0)))))
236 (goto-char (point-min)) 236 (goto-char (point-min))
237 (insert From_)))))) 237 (insert From_))))))
306 (if (> (buffer-size) 200000) (sleep-for 1)) 306 (if (> (buffer-size) 200000) (sleep-for 1))
307 (if (> (buffer-size) 500000) (sleep-for 1)) 307 (if (> (buffer-size) 500000) (sleep-for 1))
308 ;; bill@att.com 308 ;; bill@att.com
309 (goto-char start)) 309 (goto-char start))
310 (setq pop3-read-point (point-marker)) 310 (setq pop3-read-point (point-marker))
311 (goto-char (match-beginning 0)) 311 ;; this code does not seem to work for some POP servers...
312 (backward-char 2) 312 ;; and I cannot figure out why not.
313 (if (not (looking-at "\r\n")) 313 ; (goto-char (match-beginning 0))
314 (insert "\r\n")) 314 ; (backward-char 2)
315 (re-search-forward "\\.\r\n") 315 ; (if (not (looking-at "\r\n"))
316 ; (insert "\r\n"))
317 ; (re-search-forward "\\.\r\n")
316 (goto-char (match-beginning 0)) 318 (goto-char (match-beginning 0))
317 (setq end (point-marker)) 319 (setq end (point-marker))
318 (pop3-clean-region start end) 320 (pop3-clean-region start end)
319 (pop3-munge-message-separator start end) 321 (pop3-munge-message-separator start end)
320 (save-excursion 322 (save-excursion