[mew-int 01238] Re: mew-real-send-hook isn't

[Kazu Yamamoto ( 山本和彦 )]

Hello,

From: "David A. Panariti" <davep.mew at example.com>
Subject: [mew-int 01233] mew-real-send-hook isn't

> I have a need to know when the message is *REALLY* sent.
> 
> I can think of three solutions:
> 1) call mew-real-send-hook only if the message is actually sent.
>    This is what the name implies, but changing this may break people's
>    existing code in non-obvious ways.

This is a bug and 1) is a right solution. Since you are using Mew 2.2,
I made a patch for Mew 2.2. Please test it. 

If you like this, I will merge it to the tree of Mew 3.

--Kazu

Index: mew-draft.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-draft.el,v
retrieving revision 1.41.2.8
diff -c -r1.41.2.8 mew-draft.el
*** mew-draft.el	2002/02/21 02:58:39	1.41.2.8
--- mew-draft.el	2003/01/09 07:35:32
***************
*** 869,880 ****
  		    (mew-smtp-queue pnm "from Draft mode"))
  		   ((eq action 'send)
  		    (mew-smtp-send-message pnm))))
! 	      (setq err t)))))
!       (if (not err)
! 	  (run-hooks 'mew-real-send-hook)
! 	(mew-current-set-window-config)
! 	(switch-to-buffer buf)
! 	(delete-other-windows)))))
  
  (defun mew-draft-make-message (&optional privacy signer)
    "Compose a MIME message then put it into a queue folder."
--- 869,880 ----
  		    (mew-smtp-queue pnm "from Draft mode"))
  		   ((eq action 'send)
  		    (mew-smtp-send-message pnm))))
! 	      (setq err t))))
! 	(if (not err)
! 	    (run-hooks 'mew-real-send-hook)
! 	  (mew-current-set-window-config)
! 	  (switch-to-buffer buf)
! 	  (delete-other-windows))))))
  
  (defun mew-draft-make-message (&optional privacy signer)
    "Compose a MIME message then put it into a queue folder."