Lines Matching +defs:open +defs:line
72 (defvoo nntp-open-connection-function 'nntp-open-network-stream
82 - `nntp-open-network-stream' (the default),
83 - `nntp-open-ssl-stream',
84 - `nntp-open-tls-stream',
85 - `nntp-open-telnet-stream'.
88 - `nntp-open-via-rlogin-and-telnet',
89 - `nntp-open-via-telnet-and-telnet'.")
95 `nntp-open-connection-function' to `nntp-open-ssl-stream' for example.
96 Note that the `nntp-open-connection-functions-never-echo-commands'
99 (defvoo nntp-open-connection-functions-never-echo-commands
100 '(nntp-open-network-stream)
102 Add or set a function which you set to `nntp-open-connection-function'
107 "*Pre-command to use with the various nntp-open-via-* methods.
112 This command is used by the various nntp-open-via-* methods.")
117 (defvoo nntp-end-of-line "\r\n"
120 using an indirect connection method (nntp-open-via-*).")
124 This command is used by the `nntp-open-via-rlogin-and-telnet' method.
136 This command is used by the `nntp-open-via-telnet-and-telnet' method.")
143 This variable is used by the `nntp-open-via-telnet-and-telnet' method.")
147 This variable is used by the `nntp-open-via-telnet-and-telnet' method.")
151 This variable is used by the `nntp-open-via-rlogin-and-telnet' and
152 `nntp-open-via-telnet-and-telnet' methods.")
160 This variable is used by the `nntp-open-via-telnet-and-telnet' method.")
193 `nntp-open-connection-function'")
299 (process-send-string process (concat string nntp-end-of-line))
300 (or (memq (process-status process) '(open run))
326 "Throws out to nntp-with-open-group-error so that the connection may
332 (throw 'nntp-with-open-group-error t))
341 (memq (process-status process) '(open run)))
348 (delete-region (point) (progn (forward-line 1) (point)))))
357 ((not (memq (process-status process) '(open run)))
401 (if (memq (process-status process) '(open run))
421 (nntp-open-connection buffer))))
444 (nnheader-report 'nntp "Couldn't open connection to %s: %s"
450 (nnheader-report 'nntp "Couldn't open connection to %s" address))))
471 ;; or the value of `nntp-open-connection-function' is in
472 ;; `nntp-open-connection-functions-never-echo-commands', so we
477 nntp-open-connection-function
478 nntp-open-connection-functions-never-echo-commands))
484 (delete-region pos (progn (forward-line 1)
487 (nnheader-report 'nntp "Couldn't open connection to %s."
509 (delete-region pos (progn (forward-line 1)
511 (nnheader-report 'nntp "Couldn't open connection to %s."
538 (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
540 (nnheader-report 'nntp "Couldn't open connection to %s."
570 ;; a line with only a "." on it.
586 (defvar nntp-with-open-group-internal nil)
589 (defmacro nntp-with-open-group (group server &optional connectionless &rest forms)
597 nntp-with-open-group, opens a new connection then re-issues the NNTP
605 (nntp-with-open-group-internal nil))
606 (while (catch 'nntp-with-open-group-error
631 (setq nntp-with-open-group-internal
641 nntp-with-open-group-internal))
645 (nntp-with-open-group
709 (nntp-with-open-group
794 (progn (forward-line 1) (point))))
799 (nntp-with-open-group
881 (nntp-with-open-group
887 (nntp-with-open-group
892 (nntp-with-open-group
906 (nntp-with-open-group
916 (nntp-with-open-group
923 (nntp-with-open-group
939 (deffoo nntp-open-server (server &optional defs connectionless)
951 (nntp-open-connection nntp-server-buffer)))))
957 (when (memq (process-status process) '(open run))
960 (unless (eq nntp-open-connection-function 'nntp-open-network-stream)
973 (when (memq (process-status process) '(open run))
976 (unless (eq nntp-open-connection-function 'nntp-open-network-stream)
985 (nntp-with-open-group
990 (nntp-with-open-group
995 (nntp-with-open-group
1017 (nntp-with-open-group
1136 (defun nntp-open-connection (buffer)
1150 (funcall nntp-open-connection-function pbuffer))
1165 (memq (process-status process) '(open run)))
1180 (defun nntp-open-network-stream (buffer)
1181 (open-network-stream "nntpd" buffer nntp-address nntp-port-number))
1186 (autoload 'open-tls-stream "tls"))
1188 (defun nntp-open-ssl-stream (buffer)
1202 (beginning-of-line)
1206 (defun nntp-open-tls-stream (buffer)
1207 (let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
1213 (beginning-of-line)
1258 (if (memq (process-status proc) '(open run))
1352 (memq (process-status process) '(open run)))
1363 (nntp-open-server server nil connectionless)))
1367 (nntp-open-connection nntp-server-buffer))))
1392 (forward-line -1)
1395 ;; Delete status line.
1398 ;; For some unknown reason, there is more than one status line.
1399 (delete-region (point) (progn (forward-line 1) (point))))
1407 ;; Replace "." at beginning of line with "..".
1420 (end-of-line)
1422 (insert nntp-end-of-line))))
1446 (delete-region (point) (progn (forward-line 1) (point))))
1450 (forward-line -1)
1452 (delete-region (point) (progn (forward-line 1) (point)))))
1514 (forward-line -1)
1585 (forward-line 1)
1604 ;; We first find the number by looking at the status line.
1661 (memq (process-status proc) '(open run))
1669 ;; Obsolete nntp-open-* connection methods -- drv
1672 (defvoo nntp-open-telnet-envuser nil
1683 "*Parameters to `nntp-open-rlogin'.
1684 That function may be used as `nntp-open-connection-function'. In that
1692 "*Parameters to `nntp-open-telnet'.
1693 That function may be used as `nntp-open-connection-function'. In that
1703 (defun nntp-open-telnet (buffer)
1711 (when (memq (process-status proc) '(open run))
1715 ((and nntp-open-telnet-envuser nntp-telnet-user-name)
1716 (process-send-string proc (concat "open " "-l" nntp-telnet-user-name
1719 (process-send-string proc (concat "open " nntp-address "\n"))))
1721 ((not nntp-open-telnet-envuser)
1739 (beginning-of-line)
1747 (forward-line 1)
1751 (defun nntp-open-rlogin (buffer)
1764 (beginning-of-line)
1770 ;; Replacements for the nntp-open-* functions -- drv
1773 (defun nntp-open-telnet-stream (buffer)
1782 - `nntp-end-of-line'."
1793 (beginning-of-line)
1797 (defun nntp-open-via-rlogin-and-telnet (buffer)
1812 - `nntp-end-of-line'."
1828 (process-send-string proc (concat "open " nntp-address
1831 (beginning-of-line)
1839 (forward-line 1)
1843 (defun nntp-open-via-telnet-and-telnet (buffer)
1861 - `nntp-end-of-line'."
1870 (when (memq (process-status proc) '(open run))
1875 (process-send-string proc (concat "open " "-l" nntp-via-user-name
1878 (process-send-string proc (concat "open " nntp-via-address
1906 (beginning-of-line)
1914 (forward-line 1)