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

[Stefan Monnier]

> +  (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