projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed debug statements.
[gnus]
/
lisp
/
pop3.el
diff --git
a/lisp/pop3.el
b/lisp/pop3.el
index
5f0ef71
..
184b891
100644
(file)
--- a/
lisp/pop3.el
+++ b/
lisp/pop3.el
@@
-139,7
+139,7
@@
Returns the process associated with the connection."
mailhost)))
(erase-buffer)
(setq pop3-read-point (point-min))
mailhost)))
(erase-buffer)
(setq pop3-read-point (point-min))
- (setq process (open-network-stream "POP"(current-buffer) mailhost port))
+ (setq process (open-network-stream "POP"
(current-buffer) mailhost port))
(let ((response (pop3-read-response process t)))
(setq pop3-timestamp
(substring response (or (string-match "<" response) 0)
(let ((response (pop3-read-response process t)))
(setq pop3-timestamp
(substring response (or (string-match "<" response) 0)
@@
-337,7
+337,7
@@
If NOW, use that time instead."
t (current-buffer) nil)
;; The meaningful output is the first 32 characters.
;; Don't return the newline that follows them!
t (current-buffer) nil)
;; The meaningful output is the first 32 characters.
;; Don't return the newline that follows them!
- (buffer-substring
1 33
)))))
+ (buffer-substring
(point-min) (+ 32 (point-min))
)))))
(defun pop3-stat (process)
"Return the number of messages in the maildrop and the maildrop's size."
(defun pop3-stat (process)
"Return the number of messages in the maildrop and the maildrop's size."