Re: message-setup-hook called when sending from queue?

[Shenghuo ZHU <zsh@cs.rochester.edu>]

>>>>> "Pavel" == Pavel Janík ml <Pavel.Janik@inet.cz> writes:


Pavel> I have CVS from about an hour ago and still nothing... This is
Pavel> the fix I'm using now:

Pavel> --- gnus-draft.el.orig	Wed Apr 26 17:24:32 2000
Pavel> +++ gnus-draft.el	Wed Apr 26 17:27:48 2000
Pavel> @@ -188,21 +188,22 @@
 
Pavel>  (progn
Pavel>    (defun gnus-draft-setup (narticle group &optional restore)
Pavel> -    (gnus-setup-message 'forward
Pavel> +    (let ((message-setup-hook nil))
Pavel> +     (gnus-setup-message 'forward

This is not good. message-setup-hook is should be set to nil only if
it is in nndraft:queue group and going to be sent.

Now I fixed it in draft-send.

Pavel>        (let ((article narticle))
Pavel>  	(message-mail)
Pavel>  	(erase-buffer)
Pavel>  	(if (not (gnus-request-restore-buffer article group))
Pavel>  	    (error "Couldn't restore the article")
Pavel> -	  ;; Insert the separator.
Pavel>  	  (if (and restore (equal group "nndraft:queue"))
Pavel>  	      (mime-to-mml))

This will make sure that a queued message will not be restored to mml
when it is going to be sent.

Pavel> +	  ;; Insert the separator.

The comment is moved. Thank you.

Pavel>  	  (goto-char (point-min))
Pavel>  	  (search-forward "\n\n")
Pavel>  	  (forward-char -1)
Pavel>  	  (insert mail-header-separator)
Pavel>  	  (forward-line 1)
Pavel> -	  (message-set-auto-save-file-name))))))
Pavel> +	  (message-set-auto-save-file-name)))))))
 

-- 
Shenghuo