Returns the process associated with the connection."
(let ((process-buffer
(get-buffer-create (format "trace of POP session to %s" mailhost)))
- (process)
- (coding-system-for-read 'binary) ;; because 0000n0000 S000l 0a0
- (coding-system-for-write 'binary) ;; is st00pid
- )
+ (process))
(save-excursion
(set-buffer process-buffer)
(erase-buffer)
(setq pop3-read-point (point-min))
)
(setq process
- (open-network-stream "POP" process-buffer mailhost port))
+ (open-network-stream-as-binary "POP" process-buffer mailhost port))
(let ((response (pop3-read-response process t)))
(setq pop3-timestamp
(substring response (or (string-match "<" response) 0)