(delete-region (point-min) (point)))
(quoted-printable-decode-region (point-min) (point-max))
(unless (let ((pgg-default-user-id
(delete-region (point-min) (point)))
(quoted-printable-decode-region (point-min) (point-max))
(unless (let ((pgg-default-user-id