diff lisp/gnus/message.el @ 110023:fa10effce8f8

Misc Gnus fixes by Lars Magne Ingebrigtsen <[e-mail]>. 2010-08-28 Lars Magne Ingebrigtsen <[e-mail]> * 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.

--- 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)