Mercurial > emacs
comparison lisp/gnus/pop3.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 9c91533a901a |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 312 (pop3-accept-process-output process) | 312 (pop3-accept-process-output process) |
| 313 (goto-char pop3-read-point)) | 313 (goto-char pop3-read-point)) |
| 314 (setq match-end (point)) | 314 (setq match-end (point)) |
| 315 (goto-char pop3-read-point) | 315 (goto-char pop3-read-point) |
| 316 (if (looking-at "-ERR") | 316 (if (looking-at "-ERR") |
| 317 (error (buffer-substring (point) (- match-end 2))) | 317 (error "%s" (buffer-substring (point) (- match-end 2))) |
| 318 (if (not (looking-at "+OK")) | 318 (if (not (looking-at "+OK")) |
| 319 (progn (setq pop3-read-point match-end) nil) | 319 (progn (setq pop3-read-point match-end) nil) |
| 320 (setq pop3-read-point match-end) | 320 (setq pop3-read-point match-end) |
| 321 (if return | 321 (if return |
| 322 (buffer-substring (point) match-end) | 322 (buffer-substring (point) match-end) |