Re: wl can't work on XEmacs/FreeBSD

At Fri, 28 Oct 2016 19:43:30 +0900 (JST),
Tatsuya Kinoshita wrote:
> 
> [1  <text/plain; iso-2022-jp (7bit)>]
> On October 28, 2016, [Wanderlust:14661], kzhr (at d1.dion.ne.jp) wrote:
> > (setq wl-draft-send-confirm-type 'y-or-n-p)
> > 
> 
> wanderlust/flim
> (smtp-send-bufferkill-bufferwrong-number-of-arguments)
> 
> -- 
> 
> [2 flim-xemacs.patch <text/x-patch; us-ascii (quoted-printable)>]
> diff --git a/smtp.el b/smtp.el
> index e9ebb42..d667e2e 100644
> --- a/smtp.el
> +++ b/smtp.el
> @@ -381,7 +381,7 @@ BUFFER may be a buffer or a buffer name which contains mail message."
>  	  (setq smtp-connection-alist
>  		(delq (assq buffer smtp-connection-alist)
>  		      smtp-connection-alist))
> -	  (kill-buffer))))))
> +	  (kill-buffer (current-buffer)))))))
>  
>  (defun smtp-submit-package (package)
>    (unwind-protect
> @@ -445,7 +445,7 @@ BUFFER may be a buffer or a buffer name which contains mail message."
>  	    (setq smtp-connection-alist
>  		  (delq (assq buffer smtp-connection-alist)
>  			smtp-connection-alist))
> -	    (kill-buffer)))
> +	    (kill-buffer (current-buffer))))
>  	(setq servers (cdr servers)))))
>  
>  ;;; @ hook methods for `smtp-submit-package'



root@smtp:/usr/local/lib/xemacs/xemacs-packages/lisp/flim # patch -p1 < ~kiri/tmp/wl/flim-xemacs.patch 
Hmm...  Looks like a unified diff to me...
The text leading up to this was:
--------------------------
|diff --git a/smtp.el b/smtp.el
|index e9ebb42..d667e2e 100644
|--- a/smtp.el
|+++ b/smtp.el
--------------------------
Patching file smtp.el using Plan A...
Hunk #1 failed at 381.
Hunk #2 failed at 445.
2 out of 2 hunks failed--saving rejects to smtp.el.rej
done
root@smtp:/usr/local/lib/xemacs/xemacs-packages/lisp/flim # 

smtp.el 

 smtp.el  [1] 
Message-Id: <[email protected]> 
 FLIM  1.14.9 

[1] https://people.freebsd.org/~kiri/xemacs/smtp.el

---
KIRIYAMA Kazuhiko