Mercurial > emacs
changeset 110023:fa10effce8f8
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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 30 Aug 2010 06:10:18 +0000 |
| parents | 6b8c20b6ec43 |
| children | 5428546bbb98 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus.el lisp/gnus/message.el lisp/gnus/nntp.el |
| diffstat | 4 files changed, 17 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Aug 30 11:01:09 2010 +0900 +++ b/lisp/gnus/ChangeLog Mon Aug 30 06:10:18 2010 +0000 @@ -1,3 +1,15 @@ +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. + 2010-08-27 Katsumi Yamaoka <yamaoka@jpl.org> * gnus-sum.el (gnus-summary-move-article, gnus-summary-delete-article):
--- a/lisp/gnus/gnus.el Mon Aug 30 11:01:09 2010 +0900 +++ b/lisp/gnus/gnus.el Mon Aug 30 06:10:18 2010 +0000 @@ -1746,7 +1746,6 @@ ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) - ("nngoogle" post) ("nnslashdot" post) ("nnultimate" none) ("nnrss" none)
--- a/lisp/gnus/message.el Mon Aug 30 11:01:09 2010 +0900 +++ b/lisp/gnus/message.el Mon Aug 30 06:10:18 2010 +0000 @@ -1739,6 +1739,7 @@ (defvar message-mime-part nil) (defvar message-posting-charset nil) (defvar message-inserted-headers nil) +(defvar message-inhibit-ecomplete nil) ;; Byte-compiler warning (defvar gnus-active-hashtb) @@ -4091,7 +4092,8 @@ (run-hooks 'message-sent-hook)) (message "Sending...done") ;; Do ecomplete address snarfing. - (when (message-mail-alias-type-p 'ecomplete) + (when (and (message-mail-alias-type-p 'ecomplete) + (not message-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) ;; Mark the buffer as unmodified and delete auto-save. (set-buffer-modified-p nil) @@ -7425,6 +7427,7 @@ (replace-match "X-From-Line: ")) ;; Send it. (let ((message-inhibit-body-encoding t) + (message-inhibit-ecomplete t) message-required-mail-headers message-generate-hashcash rfc2047-encode-encoded-words)
--- a/lisp/gnus/nntp.el Mon Aug 30 11:01:09 2010 +0900 +++ b/lisp/gnus/nntp.el Mon Aug 30 06:10:18 2010 +0000 @@ -298,13 +298,6 @@ (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 @@ 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