Lines Matching +defs:kill +defs:buffer
74 It will be called with the buffer to output in as argument.
234 "*If non-nil, nntp will record all commands in the \"*nntp-log*\" buffer.")
239 (defvar nntp-process-to-buffer nil)
306 (set-buffer (get-buffer-create "*nntp-log*"))
334 (defsubst nntp-wait-for (process wait-for buffer &optional decode discard)
337 (set-buffer (process-buffer process))
370 (with-current-buffer nntp-server-buffer
375 (set-buffer buffer)
377 (insert-buffer-substring (process-buffer process))
384 (erase-buffer)))))
386 (defun nntp-kill-buffer (buffer)
387 (when (buffer-name buffer)
388 (kill-buffer buffer)
389 (nnheader-init-server-buffer)))
391 (defsubst nntp-find-connection (buffer)
394 (buffer (if (stringp buffer) (get-buffer buffer) buffer))
397 (when (eq buffer (cadr entry))
403 (nntp-kill-buffer (process-buffer process))
407 (defsubst nntp-find-connection-entry (buffer)
409 (assq (nntp-find-connection buffer) nntp-connection-alist))
411 (defun nntp-find-connection-buffer (buffer)
412 "Return the process connection buffer tied to BUFFER."
413 (let ((process (nntp-find-connection buffer)))
415 (process-buffer process))))
417 (defsubst nntp-retrieve-data (command address port buffer
420 (let ((process (or (nntp-find-connection buffer)
421 (nntp-open-connection buffer))))
426 (set-buffer (process-buffer process))
427 (erase-buffer)))
436 (nntp-async-wait process wait-for buffer decode callback)
439 (nntp-wait-for process wait-for buffer decode))
457 (set-buffer nntp-server-buffer)
458 (erase-buffer)))
460 (process (nntp-find-connection nntp-server-buffer))
461 (buffer (and process (process-buffer process)))
462 (pos (and buffer (with-current-buffer buffer (point)))))
467 nntp-server-buffer
481 (set-buffer buffer)
493 (process (nntp-find-connection nntp-server-buffer))
494 (buffer (and process (process-buffer process)))
495 (pos (and buffer (with-current-buffer buffer (point)))))
500 nntp-server-buffer
506 (set-buffer buffer)
519 (set-buffer nntp-server-buffer)
520 (erase-buffer)))
522 (process (nntp-find-connection nntp-server-buffer))
523 (buffer (and process (process-buffer process)))
524 (pos (and buffer (with-current-buffer buffer (point)))))
529 nntp-server-buffer
535 (set-buffer buffer)
544 (defun nntp-send-buffer (wait-for)
545 "Send the current buffer to server and wait until WAIT-FOR returns."
549 (set-buffer (nntp-find-connection-buffer nntp-server-buffer))
550 (erase-buffer)))
552 (mm-with-unibyte-current-buffer
554 (process-send-region (nntp-find-connection nntp-server-buffer)
557 nil nntp-address nntp-port-number nntp-server-buffer
617 nntp-server-buffer))
618 (buffer (and process
619 (process-buffer process))))
624 (when (and buffer (eq 0 (buffer-size buffer)))
629 (nntp-kill-buffer buffer))))))))
648 (set-buffer (nntp-find-connection-buffer nntp-server-buffer))
649 (erase-buffer)
662 (buf (nntp-find-connection-buffer nntp-server-buffer))
681 (set-buffer buf)
704 (copy-to-buffer nntp-server-buffer (point-min) (point-max))
711 (when (nntp-find-connection-buffer nntp-server-buffer)
714 ;; Erase nntp-server-buffer before nntp-inhibit-erase.
715 (set-buffer nntp-server-buffer)
716 (erase-buffer)
717 (set-buffer (nntp-find-connection-buffer nntp-server-buffer))
722 (erase-buffer)
728 (buf (nntp-find-connection-buffer nntp-server-buffer))
732 ;; Timeout may have killed the buffer.
733 (unless (gnus-buffer-live-p buf)
744 (while (and (gnus-buffer-live-p buf)
747 ;; reason why set-buffer here.
748 (set-buffer buf)
758 (unless (gnus-buffer-live-p buf)
761 (set-buffer buf)
765 (while (and (gnus-buffer-live-p buf)
767 (set-buffer buf)
777 (unless (gnus-buffer-live-p buf)
780 (set-buffer buf)
787 (copy-to-buffer nntp-server-buffer (point-min) (point-max))
795 (copy-to-buffer nntp-server-buffer (point-min) (point-max))
807 (buf (nntp-find-connection-buffer nntp-server-buffer))
812 (set-buffer buf)
813 (erase-buffer)
830 (set-buffer buf)
851 ;; wash it and copy it over to the server buffer.
852 (set-buffer nntp-server-buffer)
853 (erase-buffer)
860 (insert-buffer-substring buf last-point (cdr entry))
871 (set-buffer nntp-server-buffer)
891 (deffoo nntp-request-article (article &optional group server buffer command)
897 (if (and buffer
898 (not (equal buffer nntp-server-buffer)))
900 (set-buffer nntp-server-buffer)
901 (copy-to-buffer buffer (point-min) (point-max))
926 (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
935 nntp-server-buffer
936 (gnus-buffer-live-p nntp-server-buffer)
937 (nntp-find-connection nntp-server-buffer)))
940 (nnheader-init-server-buffer)
950 (or (nntp-find-connection nntp-server-buffer)
951 (nntp-open-connection nntp-server-buffer)))))
955 (let ((process (nntp-find-connection nntp-server-buffer)))
963 ;; QUIT command actually is sent out before we kill
966 (nntp-kill-buffer (process-buffer process))
979 ;; QUIT command actually is sent out before we kill
982 (nntp-kill-buffer (process-buffer process)))))
998 (set-buffer nntp-server-buffer)
1020 (let ((response (with-current-buffer nntp-server-buffer
1036 (nntp-send-buffer "^[23].*\n")))))
1098 (with-temp-buffer
1104 (buffer-substring (point) (gnus-point-at-eol))))))
1115 (set-buffer nntp-server-buffer)
1116 (erase-buffer))
1119 (defun nntp-make-process-buffer (buffer)
1120 "Create a new, fresh buffer usable for nntp process connections."
1122 (set-buffer
1123 (generate-new-buffer
1126 (gnus-buffer-exists-p buffer))))
1131 (set (make-local-variable 'nntp-process-to-buffer) nil)
1134 (current-buffer)))
1136 (defun nntp-open-connection (buffer)
1139 (let* ((pbuffer (nntp-make-process-buffer buffer))
1145 (nntp-kill-buffer ,pbuffer)))))
1154 (nntp-kill-buffer pbuffer)
1160 (nntp-kill-buffer pbuffer))
1161 (when (and (buffer-name pbuffer)
1164 (if (and (nntp-wait-for process "^2.*\n" buffer nil t)
1167 (caar (push (list process buffer nil) nntp-connection-alist))
1170 (set-buffer pbuffer)
1172 (erase-buffer)
1173 (set-buffer nntp-server-buffer)
1177 (nntp-kill-buffer (process-buffer process))
1180 (defun nntp-open-network-stream (buffer)
1181 (open-network-stream "nntpd" buffer nntp-address nntp-port-number))
1188 (defun nntp-open-ssl-stream (buffer)
1190 (proc (start-process "nntpd" buffer
1199 (set-buffer buffer)
1200 (let ((nntp-connection-alist (list proc buffer nil)))
1206 (defun nntp-open-tls-stream (buffer)
1207 (let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
1210 (set-buffer buffer)
1211 (let ((nntp-connection-alist (list proc buffer nil)))
1220 (setq nntp-server-type (buffer-string))
1233 (defun nntp-async-wait (process wait-for buffer decode callback)
1235 (set-buffer (process-buffer process))
1237 (erase-buffer))
1239 nntp-process-to-buffer buffer
1274 (let ((proc (get-buffer-process (current-buffer))))
1284 (set-buffer (process-buffer process))
1301 (with-current-buffer nntp-server-buffer
1305 (when (gnus-buffer-exists-p nntp-process-to-buffer)
1306 (let ((buf (current-buffer))
1310 (set-buffer nntp-process-to-buffer)
1314 (insert-buffer-substring buf start)
1320 (buffer-name (get-buffer nntp-process-to-buffer))))))))
1329 "Save the error message in the current buffer."
1330 (let ((message (buffer-string)))
1339 (set-buffer (or (nntp-find-connection-buffer nntp-server-buffer)
1340 nntp-server-buffer))
1341 (let ((len (/ (buffer-size) 1024))
1349 ;; handled here as the buffer restored by the save-excursion may
1350 ;; be the process's former output buffer (i.e. now killed)
1357 (nntp-accept-process-output (nntp-find-connection nntp-server-buffer)))
1366 (or (nntp-find-connection nntp-server-buffer)
1367 (nntp-open-connection nntp-server-buffer))))
1370 (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
1375 (set-buffer (process-buffer (car entry)))
1376 (erase-buffer)
1379 (erase-buffer)
1381 (set-buffer nntp-server-buffer)
1382 (erase-buffer))))))))
1385 "Decode the text in the current buffer."
1405 "Encode the text in the current buffer."
1412 ;; Insert newline at the end of the buffer.
1415 ;; Insert `.' at end of buffer (end of text mark).
1425 (set-buffer nntp-server-buffer)
1426 (erase-buffer)
1463 in-process-buffer-p
1464 (buf nntp-server-buffer)
1465 (process-buffer (nntp-find-connection-buffer nntp-server-buffer))
1478 (setq in-process-buffer-p (stringp nntp-server-xover))
1482 (when (and nntp-server-xover in-process-buffer-p)
1493 ;; tendency to change the buffer. Perhaps. It's quite
1496 (set-buffer process-buffer)
1518 (set-buffer process-buffer))))
1535 (buffer-substring (match-beginning 1)
1539 (set-buffer buf))
1542 (when in-process-buffer-p
1543 (set-buffer buf)
1545 (insert-buffer-substring process-buffer)
1546 (set-buffer process-buffer)
1547 (erase-buffer)
1548 (set-buffer buf))
1578 (set-buffer nntp-server-buffer)
1592 (set-buffer nntp-server-buffer)
1593 (erase-buffer)
1600 (set-buffer nntp-server-buffer)
1607 (buffer-substring (match-beginning 1)
1656 "Wait until string arrives in the buffer."
1657 (let ((buf (current-buffer))
1660 (while (and (setq proc (get-buffer-process buf))
1664 (set-buffer buf)
1703 (defun nntp-open-telnet (buffer)
1705 (set-buffer buffer)
1706 (erase-buffer)
1709 "nntpd" buffer nntp-telnet-command nntp-telnet-switches))
1751 (defun nntp-open-rlogin (buffer)
1755 "nntpd" buffer nntp-rlogin-program
1759 "nntpd" buffer nntp-rlogin-program nntp-address
1762 (set-buffer buffer)
1773 (defun nntp-open-telnet-stream (buffer)
1789 (setq proc (apply 'start-process "nntpd" buffer command))
1791 (set-buffer buffer)
1797 (defun nntp-open-via-rlogin-and-telnet (buffer)
1824 (setq proc (apply 'start-process "nntpd" buffer command))
1826 (set-buffer buffer)
1843 (defun nntp-open-via-telnet-and-telnet (buffer)
1863 (set-buffer buffer)
1864 (erase-buffer)
1869 (setq proc (apply 'start-process "nntpd" buffer command))