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)
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."