(c-mode          . "c")

    (python-mode     . "python")

    (nxml-mode       . "xml")

    (c++-mode        . "cpp")))

         (url-request-method "POST")

         (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))

         (url-request-data

          (format "title=%s&content=%s&lexer=%s&author=%s"

                  (url-hexify-string (buffer-file-name))                                         ; title

                  (url-hexify-string (buffer-substring-no-properties start end))                 ; content

                  (url-hexify-string (or (assoc-default major-mode pastebin-type-assoc) "text")) ; lexer

                  (url-hexify-string (user-full-name)))))                                        ; author

    (url-retrieve pastebin-url (lambda (arg)

                                 (cond

                                  ((equal :error (car arg))

                                   (signal (cdr arg)))

                                  ((equal :redirect (car arg))

                                   (let ((redirected (cadr arg)))

                                     (message redirected)

                                     (with-temp-buffer

                                       (insert redirected)

                                       (clipboard-kill-ring-save (point-min) (point-max))))))))))