Re: [Emacs-diffs] /srv/bzr/emacs/trunk r111099: gmm-utils.el (gmm-flet): Remove.

[Stefan Monnier <monnier@iro.umontreal.ca>]

> +  (let ((orig-json-alist-p (symbol-function 'json-alist-p)))
> +    (fset 'json-alist-p
> +	  (lambda (list) (gnus-sync-json-alist-p list))) ; temp patch
> +    (unwind-protect
> +	(let ((url-request-method method)
> +	      (url-request-extra-headers headers)
> +	      (url-request-data (if kvdata (json-encode kvdata) nil)))
> +	  (with-current-buffer (url-retrieve-synchronously url)
> +	    (let ((data (gnus-sync-lesync-parse)))
> +	      (gnus-message
> +	       12 "gnus-sync-lesync-call: %s URL %s sent %S got %S"
> +	       method url `((headers . ,headers) (data ,kvdata)) data)
> +	      (kill-buffer (current-buffer))
> +	      data)))
> +      (fset 'json-alist-p orig-json-alist-p))))

Why not use `letf'?

> +	(fset 'mail-abbrev-in-expansion-header-p (lambda (&rest args) t))
> +	(unwind-protect
> +	    (read-from-minibuffer prompt initial-contents)
> +	  (fset 'mail-abbrev-in-expansion-header-p orig-m-a-i-e-h-p)))

Same here.


        Stefan