comparison lisp/gnus/nntp.el @ 19992:36e81448237d

(nntp-coding-system-for-write): New variable. (nntp-open-connection): Bind coding-system-for-write to nntp-coding-system-for-write.

19991:6a13c8143100

(defvoo nntp-warn-about-losing-connection t
  "*If non-nil, beep when a server closes connection.")

;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
(defvoo nntp-coding-system-for-read nil
  "*coding-system for read from NNTP.")



;;; Internal variables.

  (run-hooks 'nntp-prepare-server-hook)
  (let* ((pbuffer (nntp-make-process-buffer buffer))
	 (process
	  (condition-case ()
	      ;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
	      (let ((coding-system-for-read nntp-coding-system-for-read))
		(funcall nntp-open-connection-function pbuffer))
	    (error nil)
	    (quit nil))))
    (when process
      (process-kill-without-query process)

19992:36e81448237d

(defvoo nntp-warn-about-losing-connection t
  "*If non-nil, beep when a server closes connection.")

;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
(defvoo nntp-coding-system-for-read nil
  "*Coding system to read from NNTP.")

(defvoo nntp-coding-system-for-write nil
  "*Coding system to write to NNTP.")



;;; Internal variables.

  (run-hooks 'nntp-prepare-server-hook)
  (let* ((pbuffer (nntp-make-process-buffer buffer))
	 (process
	  (condition-case ()
	      ;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
	      (let ((coding-system-for-read nntp-coding-system-for-read)
		    (coding-system-for-write nntp-coding-system-for-write))
		(funcall nntp-open-connection-function pbuffer))
	    (error nil)
	    (quit nil))))
    (when process
      (process-kill-without-query process)