Function: mail-source-bind-common

mail-source-bind-common is a macro defined in mail-source.el.gz.

Signature

(mail-source-bind-common SOURCE &rest BODY)

Documentation

Return a let form that binds all common variables.

See mail-source-bind.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
(defmacro mail-source-bind-common (source &rest body)
  "Return a `let' form that binds all common variables.
See `mail-source-bind'."
  (declare (indent 1) (debug (sexp body)))
  ;; FIXME: AFAICT this is a Rube Goldberg'esque way to bind and initialize the
  ;; `plugged` variable.
  (let ((bindings (mail-source-bind-common-1)))
    `(with-suppressed-warnings ((lexical ,@(mapcar #'car bindings)))
       (dlet ,bindings
         (mail-source-set-common-1 ,source)
         ,@body))))