(setq headers (buffer-substring (point-min) (point)))
(forward-line) ;; skip header/body separator
(kill-region (point-min) (point)))
(setq headers (buffer-substring (point-min) (point)))
(forward-line) ;; skip header/body separator
(kill-region (point-min) (point)))
(unless (let ((pgg-gpg-user-id (message-options-get 'message-sender)))
(pgg-sign-region (point-min) (point-max) t))
(pop-to-buffer pgg-errors-buffer)
(error "Encrypt error"))
(kill-region (point-min) (point-max))
(unless (let ((pgg-gpg-user-id (message-options-get 'message-sender)))
(pgg-sign-region (point-min) (point-max) t))
(pop-to-buffer pgg-errors-buffer)
(error "Encrypt error"))
(kill-region (point-min) (point-max))