1 |
;;; nntp.el --- nntp access for Gnus |
;;; nntp.el --- nntp access for Gnus |
2 |
;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, |
;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, |
3 |
;; 1997, 1998, 2000, 2001 |
;; 1997, 1998, 2000, 2001, 2002 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
397 |
(set-buffer (nntp-find-connection-buffer nntp-server-buffer)) |
(set-buffer (nntp-find-connection-buffer nntp-server-buffer)) |
398 |
(erase-buffer))) |
(erase-buffer))) |
399 |
(nntp-encode-text) |
(nntp-encode-text) |
400 |
(process-send-region (nntp-find-connection nntp-server-buffer) |
(mm-with-unibyte-current-buffer |
401 |
(point-min) (point-max)) |
;; Some encoded unicode text contains character 0x80-0x9f e.g. Euro. |
402 |
|
(process-send-region (nntp-find-connection nntp-server-buffer) |
403 |
|
(point-min) (point-max))) |
404 |
(nntp-retrieve-data |
(nntp-retrieve-data |
405 |
nil nntp-address nntp-port-number nntp-server-buffer |
nil nntp-address nntp-port-number nntp-server-buffer |
406 |
wait-for nnheader-callback-function)) |
wait-for nnheader-callback-function)) |