diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-30 06:10:18 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-30 06:10:18 +0000 |
| commit | 6b8382e49d697fa1b095d4a2cd3e53b1a2f498ec (patch) | |
| tree | c3a54fcd3fc58759faf1ec82e9f8ba237666e8c6 /lisp/gnus/nntp.el | |
| parent | 63257f6c19fb4924de5841a5232113a0d5ebbdc2 (diff) | |
| download | emacs-6b8382e49d697fa1b095d4a2cd3e53b1a2f498ec.tar.gz | |
Misc Gnus fixes by Lars Magne Ingebrigtsen <larsi@gnus.org>.
2010-08-28 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (gnus-valid-select-methods): Remove reference to nngoogle,
which doesn't exist.
* message.el (message-inhibit-ecomplete): New variable to allow some
function to inhibit ecomplete address storage.
(message-resend): Disable ecomplete message storage when resending
messages.
* nntp.el (nntp-async-kluge): Remove the Emacs 20.3-related kluge.
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 03e0168de49..af04402d841 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -298,13 +298,6 @@ to insert Cancel-Lock headers.") (defvoo nntp-server-xover 'try) (defvoo nntp-server-list-active-group 'try) -(defvar nntp-async-needs-kluge - (string-match "^GNU Emacs 20\\.3\\." (emacs-version)) - "*When non-nil, nntp will poll asynchronous connections -once a second. By default, this is turned on only for Emacs -20.3, which has a bug that breaks nntp's normal method of -noticing asynchronous data.") - (defvar nntp-async-timer nil) (defvar nntp-async-process-list nil) @@ -1368,17 +1361,7 @@ password contained in '~/.nntp-authinfo'." nntp-process-decode decode nntp-process-callback callback nntp-process-start-point (point-max)) - (setq after-change-functions '(nntp-after-change-function)) - (if nntp-async-needs-kluge - (nntp-async-kluge process)))) - -(defun nntp-async-kluge (process) - ;; emacs 20.3 bug: process output with encoding 'binary - ;; doesn't trigger after-change-functions. - (unless nntp-async-timer - (setq nntp-async-timer - (run-at-time 1 1 'nntp-async-timer-handler))) - (add-to-list 'nntp-async-process-list process)) + (setq after-change-functions '(nntp-after-change-function)))) (defun nntp-async-timer-handler () (mapcar |