Lines Matching +defs:last +defs:command
106 (defvoo nntp-pre-command nil
107 "*Pre-command to use with the various nntp-open-via-* methods.
110 (defvoo nntp-telnet-command "telnet"
111 "*Telnet command used to connect to the nntp server.
112 This command is used by the various nntp-open-via-* methods.")
115 "*Switches given to the telnet command `nntp-telnet-command'.")
122 (defvoo nntp-via-rlogin-command "rsh"
123 "*Rlogin command used to connect to an intermediate host.
124 This command is used by the `nntp-open-via-rlogin-and-telnet' method.
127 (defvoo nntp-via-rlogin-command-switches nil
128 "*Switches given to the rlogin command `nntp-via-rlogin-command'.
129 If you use \"ssh\" for `nntp-via-rlogin-command', you may set this to
132 command requires a pseudo-tty allocation on an intermediate host.")
134 (defvoo nntp-via-telnet-command "telnet"
135 "*Telnet command used to connect to an intermediate host.
136 This command is used by the `nntp-open-via-telnet-and-telnet' method.")
139 "*Switches given to the telnet command `nntp-via-telnet-command'.")
244 (defvoo nntp-last-command-time nil)
245 (defvoo nntp-last-command nil)
293 ;; to store the command so the we can replay the command
295 (setq nntp-last-command-time (current-time)
296 nntp-last-command string)
298 (nntp-record-command string))
303 (defun nntp-record-command (string)
304 "Record the command STRING."
315 can be a format string. For some commands, the failed command may be
319 (nntp-record-command "*** CALLED nntp-report ***"))
327 be restored and the command retried."
330 (nntp-record-command "*** CONNECTION LOST ***"))
417 (defsubst nntp-retrieve-data (command address port buffer
430 (when command
431 (nntp-send-string process command))
452 (defsubst nntp-send-command (wait-for &rest strings)
459 (let* ((command (mapconcat 'identity strings " "))
465 (nntp-retrieve-data command
483 (if (looking-at (regexp-quote command))
490 (defun nntp-send-command-nodelete (wait-for &rest strings)
492 (let* ((command (mapconcat 'identity strings " "))
498 (nntp-retrieve-data command
508 (if (looking-at (regexp-quote command))
514 (defun nntp-send-command-and-decode (wait-for &rest strings)
521 (let* ((command (mapconcat 'identity strings " "))
527 (nntp-retrieve-data command
537 (if (looking-at (regexp-quote command))
598 command whose response triggered the error."
661 (last-point (point-min))
667 (nntp-send-command
682 (goto-char last-point)
685 (setq last-point (point))
726 (last-point (point-min))
729 (command (if nntp-server-list-active-group
736 ;; Send the command to the server.
737 (nntp-send-command nil command (pop groups))
749 (goto-char last-point)
753 (setq last-point (point))
757 ;; Wait for the reply from the final command.
806 (last-point (point-min))
814 ;; Send ARTICLE command.
816 (nntp-send-command
831 (goto-char last-point)
835 (setq last-point (point))
854 (setq last-point (point-min))
860 (insert-buffer-substring buf last-point (cdr entry))
862 (setq last-point (cdr entry))
883 (nntp-send-command "^\\.*\r?\n" "LIST ACTIVE" group)))
889 (nntp-send-command "^\\.*\r?\n" "LISTGROUP" group)))
891 (deffoo nntp-request-article (article &optional group server buffer command)
894 (when (nntp-send-command-and-decode
908 (when (nntp-send-command
918 (nntp-send-command-and-decode
925 (when (nntp-send-command "^[245].*\n" "GROUP" group)
963 ;; QUIT command actually is sent out before we kill
979 ;; QUIT command actually is sent out before we kill
987 (nntp-send-command-and-decode "\r?\n\\.\r?\n" "LIST")))
992 (nntp-send-command "\r?\n\\.\r?\n" "LIST NEWSGROUPS")))
1010 (nntp-send-command
1019 (when (nntp-send-command "^[23].*\r?\n" "POST")
1047 "Send the MODE READER command to the nntp server.
1051 (nntp-send-command "^.*\n" "MODE READER"))
1072 (nntp-send-command "^3.*\r?\n" "AUTHINFO USER" user)
1074 (nntp-send-command
1086 (nntp-send-command "^3.*\r?\n" "AUTHINFO USER" user)
1088 (nntp-send-command "^2.*\r?\n" "AUTHINFO PASS"
1101 (nntp-send-command "^3.*\r?\n" "AUTHINFO USER" (user-login-name))
1102 (nntp-send-command
1110 (let ((last nntp-last-command))
1117 (nntp-send-string process last)))
1192 shell-command-switch
1377 (nntp-send-command "^[245].*\n" "GROUP" group)
1436 (nntp-send-xover-command
1442 (car (last articles)) 'wait)
1454 ;; We do it the hard way. For each gap, an XOVER command is sent
1462 last-point
1466 first last status)
1479 (nntp-send-xover-command first (setq last (car articles)))
1498 (goto-char (or last-point (point-min)))
1507 (setq last-point (point))
1529 ;; XOVER command sent to the server).
1560 (defun nntp-send-xover-command (beg end &optional wait-for-reply)
1561 "Send the XOVER command to the server."
1566 ;; command.
1568 (nntp-send-command-nodelete
1571 (nntp-send-command-nodelete nil nntp-server-xover range))
1576 (nntp-send-command-nodelete "\r?\n\\.\r?\n" (car commands) range)
1694 case, this list will be executed as a command after logging in
1709 "nntpd" buffer nntp-telnet-command nntp-telnet-switches))
1777 - `nntp-pre-command',
1778 - `nntp-telnet-command',
1783 (let ((command `(,nntp-telnet-command
1787 (and nntp-pre-command
1788 (push nntp-pre-command command))
1789 (setq proc (apply 'start-process "nntpd" buffer command))
1803 - `nntp-pre-command',
1804 - `nntp-via-rlogin-command',
1805 - `nntp-via-rlogin-command-switches',
1808 - `nntp-telnet-command',
1813 (let ((command `(,nntp-via-address
1814 ,nntp-telnet-command
1818 (setq command `("-l" ,nntp-via-user-name ,@command)))
1819 (when nntp-via-rlogin-command-switches
1820 (setq command (append nntp-via-rlogin-command-switches command)))
1821 (push nntp-via-rlogin-command command)
1822 (and nntp-pre-command
1823 (push nntp-pre-command command))
1824 (setq proc (apply 'start-process "nntpd" buffer command))
1849 - `nntp-pre-command',
1850 - `nntp-via-telnet-command',
1857 - `nntp-telnet-command',
1865 (let ((command `(,nntp-via-telnet-command ,@nntp-via-telnet-switches))
1868 (and nntp-pre-command (push nntp-pre-command command))
1869 (setq proc (apply 'start-process "nntpd" buffer command))
1896 (let ((real-telnet-command `("exec"
1897 ,nntp-telnet-command
1903 real-telnet-command " ")