comparison lisp/gnus/pop3.el @ 35453:26726eff41ca zsh-sync-ognus-2

2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el (message-forward): Use mule4. * mm-util.el (mm-string-as-unibyte): New. * message.el (message-forward): Use it. * message.el (message-cite-original-without-signature): Don't peel off the blank line. (message-get-reply-headers): Add Cc if it is not in follow-to. * message.el (message-send-mail): Content-Type may not be there. By Alberto Lusiani. * gnus-art.el (article-display-x-face): Insert X-Face if there is not. * rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is one. * gnus-win.el (gnus-configure-windows): switch-to-buffer in XEmacs. (gnus-remove-some-windows): Ditto. * mm-decode.el (mm-interactively-view-part): Don't copy-sequence handle. * gnus-art.el (gnus-mime-view-part): Copy it. (gnus-mime-view-part-as-type): Add into gnus-article-mime-handles. * nnmail.el (nnmail-get-new-mail): Find group only if file is not orig-file. Use ',source. * nnslashdot.el (nnslashdot-request-list): Get the right year. By Lars Magne Ingebrigtsen. * pop3.el (pop3-get-message-count): Andrew Innes <andrewi@gnu.org>'s patch of 1999-12-01 was not fully committed.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Sun, 21 Jan 2001 05:33:42 +0000
parents 81ecf6fce11a
children 253f761ad37b
comparison
equal deleted inserted replaced
35452:00c8bb05bc55 35453:26726eff41ca
103 ) 103 )
104 (pop3-quit process)) 104 (pop3-quit process))
105 (kill-buffer crashbuf) 105 (kill-buffer crashbuf)
106 ) 106 )
107 t) 107 t)
108
109 (defun pop3-get-message-count ()
110 "Return the number of messages in the maildrop."
111 (let* ((process (pop3-open-server pop3-mailhost pop3-port))
112 message-count
113 (pop3-password pop3-password)
114 )
115 ;; for debugging only
116 (if pop3-debug (switch-to-buffer (process-buffer process)))
117 ;; query for password
118 (if (and pop3-password-required (not pop3-password))
119 (setq pop3-password
120 (pop3-read-passwd (format "Password for %s: " pop3-maildrop))))
121 (cond ((equal 'apop pop3-authentication-scheme)
122 (pop3-apop process pop3-maildrop))
123 ((equal 'pass pop3-authentication-scheme)
124 (pop3-user process pop3-maildrop)
125 (pop3-pass process))
126 (t (error "Invalid POP3 authentication scheme.")))
127 (setq message-count (car (pop3-stat process)))
128 (pop3-quit process)
129 message-count))
108 130
109 (defun pop3-open-server (mailhost port) 131 (defun pop3-open-server (mailhost port)
110 "Open TCP connection to MAILHOST on PORT. 132 "Open TCP connection to MAILHOST on PORT.
111 Returns the process associated with the connection." 133 Returns the process associated with the connection."
112 (let ((coding-system-for-read 'binary) 134 (let ((coding-system-for-read 'binary)