signal(error ("mc-encrypt-generic: recipients not string or nil"))
  error("mc-encrypt-generic: recipients not string or nil")
  mc-encrypt-generic(("rajiv") nil nil nil nil)
  (let (default-enable-multibyte-characters) (mc-encrypt-generic (or ... ...) nil nil nil (message-options-get ...)))
  (if mm-mule4-p (let (... ...) (unwind-protect ... ... ...)) (let (default-enable-multibyte-characters) (mc-encrypt-generic ... nil nil nil ...)))
  (mm-with-unibyte-current-buffer-mule4 (mc-encrypt-generic (or ... ...) nil nil nil (message-options-get ...)))
  (let ((mc-pgp-always-sign ...)) (mm-with-unibyte-current-buffer-mule4 (mc-encrypt-generic ... nil nil nil ...)))
  mml2015-mailcrypt-encrypt((part (encrypt . "pgpmime") (tag-location . 358) (contents . "\n;alskdf;lsakf\n\n-- \n\"Have you ever fought an IDEA, Picard?\"\n      -- Gowron, Star Trek TNG.\n")))
  mml2015-encrypt((part (encrypt . "pgpmime") (tag-location . 358) (contents . "\n;alskdf;lsakf\n\n-- \n\"Have you ever fought an IDEA, Picard?\"\n      -- Gowron, Star Trek TNG.\n")))
  mml-pgpmime-encrypt-buffer((part (encrypt . "pgpmime") (tag-location . 358) (contents . "\n;alskdf;lsakf\n\n-- \n\"Have you ever fought an IDEA, Picard?\"\n      -- Gowron, Star Trek TNG.\n")))
  mml-generate-mime-1((part (encrypt . "pgpmime") (tag-location . 358) (contents . "\n;alskdf;lsakf\n\n-- \n\"Have you ever fought an IDEA, Picard?\"\n      -- Gowron, Star Trek TNG.\n")))
  mml-generate-mime()
  (let ((new ...)) (when new (delete-region ... ...) (insert new) (goto-char ...) (if ... ... ... ... ...)))
  (save-restriction (narrow-to-region (point) (point-max)) (let (...) (when new ... ... ... ...)))
  (let ((mail-parse-charset ...) (case-fold-search t) lines content-type-p) (message-goto-body) (save-restriction (narrow-to-region ... ...) (let ... ...)) (save-restriction (message-narrow-to-headers-or-head) (message-remove-header "Mime-Version") (goto-char ...) (insert "MIME-Version: 1.0\n") (when lines ...) (setq content-type-p ...)) (save-restriction (message-narrow-to-headers-or-head) (message-remove-first-header "Content-Type") (message-remove-first-header "Content-Transfer-Encoding")) (unless content-type-p (goto-char ...) (when ... ... ...)))
  (if message-inhibit-body-encoding nil (let (... ... lines content-type-p) (message-goto-body) (save-restriction ... ...) (save-restriction ... ... ... ... ... ...) (save-restriction ... ... ...) (unless content-type-p ... ...)))
  (unless message-inhibit-body-encoding (let (... ... lines content-type-p) (message-goto-body) (save-restriction ... ...) (save-restriction ... ... ... ... ... ...) (save-restriction ... ... ...) (unless content-type-p ... ...)))
  message-encode-message-body()
  (save-excursion (set-buffer tembuf) (erase-buffer) (insert (with-current-buffer mailbuf ...)) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (when ... ...) (message-remove-header message-ignored-mail-headers t) (let ... ...)) (goto-char (point-max)) (or (= ... 10) (insert 10)) (when (save-restriction ... ...) (message-insert-courtesy-copy)) (if (or ... ... ...) (mm-with-unibyte-current-buffer ... ...) (message-send-mail-partially)))
  (unwind-protect (save-excursion (set-buffer tembuf) (erase-buffer) (insert ...) (message-encode-message-body) (save-restriction ... ... ... ...) (goto-char ...) (or ... ...) (when ... ...) (if ... ... ...)) (kill-buffer tembuf))
  (let* ((tembuf ...) (case-fold-search nil) (news ...) (mailbuf ...) (message-this-is-mail t) (message-posting-charset ...) (headers message-required-mail-headers)) (save-restriction (message-narrow-to-headers) (if ... ... ...) (let ... ...) (run-hooks ...)) (unwind-protect (save-excursion ... ... ... ... ... ... ... ... ...) (kill-buffer tembuf)) (set-buffer mailbuf) (push (quote mail) message-sent-message-via))
  message-send-mail(nil)
  message-send-via-mail(nil)
  funcall(message-send-via-mail nil)
  (setq success (funcall (caddr elem) arg))
  (and (or (not ...) (if ... ... ...)) (setq success (funcall ... arg)))
  (if (and (or ... ...) (setq success ...)) (progn (setq sent t)))
  (when (and (or ... ...) (setq success ...)) (setq sent t))
  (progn (when (and ... ...) (setq sent t)))
  (if (funcall (cadr elem)) (progn (when ... ...)))
  (when (funcall (cadr elem)) (when (and ... ...) (setq sent t)))
  (while (and success (setq elem ...)) (when (funcall ...) (when ... ...)))
  (let ((alist message-send-method-alist) (success t) elem sent dont-barf-on-no-method (message-options message-options)) (while (and success ...) (when ... ...)) (unless (or sent ... ...) (error "No methods specified to send by")) (when (or dont-barf-on-no-method ...) (message-do-fcc) (save-excursion ...) (message "Sending...done") (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t))
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit)